xref: /dports/math/reduce/Reduce-svn5758-src/contrib/rubi-red/TR1.1 sin^m (a+b sin)^n.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   2686172,      52848]
NotebookOptionsPosition[   2627401,      51472]
NotebookOutlinePosition[   2629090,      51523]
CellTagsIndexPosition[   2629047,      51520]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["TR1.1",
   FontFamily->"Arial"]], "None"], "    ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9,
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9,
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9,
   3.5450834895895033`*^9}, {3.5454961263762493`*^9,
   3.5454961321462574`*^9}, {3.5454963863166127`*^9,
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9,
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9,
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 3.5463149794195285`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
   3.5291962665099535`*^9}, {3.5291997050223927`*^9,
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9,
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9,
   3.5472297585730677`*^9, 3.547229903793271*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.01.5, CRC 290, A&S 4.3.113", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.508355661955892*^9, 3.508355663305894*^9}, {
   3.5104240724965897`*^9, 3.510424073176591*^9}, {3.513094859183631*^9,
   3.513094859994833*^9}, 3.5130991663737097`*^9, {3.514149253800121*^9,
   3.5141492542901216`*^9}, {3.51459628299404*^9, 3.5145962845940423`*^9}, {
   3.541729942271918*^9, 3.5417299426775184`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   RowBox[{"Sin", "[",
    RowBox[{"c", "+",
     RowBox[{"d", " ", "x"}]}], "]"}],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "d"]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.5098474822889233`*^9, {
   3.509909292936032*^9, 3.5099092939812336`*^9}, {3.5099093650549583`*^9,
   3.509909365476159*^9}, {3.5099094331022778`*^9, 3.509909433570279*^9},
   3.5151673335332727`*^9, {3.541729778830431*^9, 3.54172978410324*^9},
   3.541730096056988*^9, {3.5472297595430694`*^9, 3.5472297611130714`*^9}, {
   3.547229904793273*^9, 3.5472299057432737`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"sin", "[",
     RowBox[{"c_.", "+",
      RowBox[{"d_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}]}], "/", "d"}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9,
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.5417298013412704`*^9, 3.5417298017780714`*^9}, {3.5417301333410535`*^9,
   3.54173014270107*^9}, {3.5462976810838175`*^9, 3.54629768298382*^9},
   3.5467337010721283`*^9, {3.547229761893073*^9, 3.5472297668230796`*^9}, {
   3.5472299093232794`*^9, 3.5472299108232813`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"0", "<", "m", "<", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, {3.5472257438874474`*^9,
   3.547225761207472*^9}, 3.5485441494685097`*^9, {3.5485442183986063`*^9,
   3.5485442183986063`*^9}, {3.549036085458572*^9, 3.5490360915893826`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.541786614186118*^9, 3.541786628256138*^9}, {3.5462980033342686`*^9,
   3.5462980035242686`*^9}, {3.546735095729898*^9, 3.54673511411395*^9}, {
   3.547225759157469*^9, 3.547225759377469*^9}, {3.5490360949745884`*^9,
   3.549036097501793*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.508355661955892*^9, 3.508355663305894*^9}, {
   3.5104240724965897`*^9, 3.510424073176591*^9}, {3.513094859183631*^9,
   3.513094859994833*^9}, 3.5130991663737097`*^9, {3.514149253800121*^9,
   3.5141492542901216`*^9}, {3.51459628299404*^9, 3.5145962845940423`*^9}, {
   3.541729942271918*^9, 3.5417299426775184`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SqrtBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", " ",
        RowBox[{"EllipticE", "[",
         RowBox[{
          RowBox[{
           FractionBox["\[Pi]", "4"], "-",
           RowBox[{
            FractionBox["1", "2"], " ",
            RowBox[{"(",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], ")"}]}]}], ",", "2"}], "]"}]}],
       "d"]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.5098474822889233`*^9, {
   3.509909292936032*^9, 3.5099092939812336`*^9}, {3.5099093650549583`*^9,
   3.509909365476159*^9}, {3.5099094331022778`*^9, 3.509909433570279*^9},
   3.5151673335332727`*^9, {3.541729778830431*^9, 3.54172978410324*^9},
   3.541730096056988*^9, 3.54178664403616*^9, 3.541786724876273*^9, {
   3.5467350966199493`*^9, 3.546735115707041*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"Pi", "/", "2"}], "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], ",", "x_Symbol"}], "]"}],
  " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{
     RowBox[{"EllipticE", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",", "2"}], "]"}],
     "/", "d"}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9,
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.5417298013412704`*^9, 3.5417298017780714`*^9}, {3.5417301333410535`*^9,
   3.54173014270107*^9}, {3.5417867688963346`*^9, 3.5417868178164034`*^9}, {
   3.54673486113348*^9, 3.546734861376494*^9}, {3.5467349070151043`*^9,
   3.5467349315035048`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], ",", "x_Symbol"}], "]"}],
  " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"EllipticE", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Pi", "/", "4"}], "-",
        RowBox[{
         RowBox[{"(",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}]}], ",", "2"}], "]"}],
     "/", "d"}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9,
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.5417298013412704`*^9, 3.5417298017780714`*^9}, {3.5417301333410535`*^9,
   3.54173014270107*^9}, {3.5417867688963346`*^9, 3.541786776216345*^9},
   3.546297726693881*^9, {3.5467351017322416`*^9, 3.546735122234414*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"0", "<", "m", "<", "1"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]",
        FractionBox["1", "2"]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9},
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9,
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9,
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9,
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9,
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9,
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9,
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9,
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9,
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9,
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9,
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9,
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9},
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9,
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9,
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9},
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9},
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.549036110980217*^9, 3.54903612427144*^9}, {3.551480730291853*^9,
   3.5514807350671263`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"0", "<", "m", "<", "1"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]",
    FractionBox["1", "2"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5514807427035627`*^9,
   3.5514807427035627`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "-", "1"}]]}],
       RowBox[{"d", " ",
        SuperscriptBox[
         RowBox[{"(",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"], ")"}],
         FractionBox[
          RowBox[{"m", "-", "1"}], "2"]]}]]}]}]}],
   RowBox[{"Hypergeometric2F1", "[",
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", "m"}], "2"], ",",
     FractionBox["1", "2"], ",",
     FractionBox["3", "2"], ",",
     SuperscriptBox[
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9,
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9,
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9,
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9,
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9,
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9,
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9,
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9,
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9},
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9,
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9},
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9},
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9},
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9,
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9,
   3.5363617697768087`*^9}, {3.5363666287016163`*^9,
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9,
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9,
   3.536694495295528*^9}, 3.536980387788585*^9, 3.536980543328803*^9, {
   3.536980609078895*^9, 3.536980616128905*^9}, {3.541649113828012*^9,
   3.5416491983381305`*^9}, {3.541784911249734*^9, 3.5417849123597355`*^9}, {
   3.5417850837099752`*^9, 3.541785086039978*^9}, 3.541785407620428*^9, {
   3.5462979670942173`*^9, 3.5462979721642246`*^9}, {3.546300486527745*^9,
   3.5463004893777485`*^9}, 3.54630054724783*^9, 3.54854416359853*^9, {
   3.5485444249588957`*^9, 3.548544427518899*^9}, 3.549036276090907*^9, {
   3.5490363163857775`*^9, 3.5490363204729843`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "-", "1"}], ")"}]}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^",
        RowBox[{"(",
         RowBox[{
          RowBox[{"(",
           RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], ")"}]}]}], ")"}]}],
    "*",
    RowBox[{"Hypergeometric2F1", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"1", "-", "m"}], ")"}], "/", "2"}], ",",
      RowBox[{"1", "/", "2"}], ",",
      RowBox[{"3", "/", "2"}], ",",
      RowBox[{
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"0", "<", "m", "<", "1"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]",
     RowBox[{"1", "/", "2"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9,
   3.4980706418045526`*^9, 3.498320518570386*^9, 3.4983254473373594`*^9, {
   3.4983257317882595`*^9, 3.498325739588273*^9}, 3.4983258972265496`*^9,
   3.498327107991476*^9, {3.5144655337954865`*^9, 3.514465569098348*^9},
   3.514465744255456*^9, {3.5416469646850033`*^9, 3.5416469818250275`*^9},
   3.5416492697082305`*^9, {3.5416494755985184`*^9, 3.541649535918603*^9},
   3.541649648488761*^9, 3.5416496916688213`*^9, {3.541785098139995*^9,
   3.5417850984799957`*^9}, 3.541785182770114*^9, 3.5417854688205137`*^9,
   3.5462977398238993`*^9, {3.546297973554227*^9, 3.546297980984237*^9}, {
   3.5463004996277633`*^9, 3.5463005532478385`*^9}, {3.546300585177883*^9,
   3.5463005906178904`*^9}, {3.546315104787699*^9, 3.546315106110775*^9}, {
   3.5472273633697147`*^9, 3.54722736743972*^9}, {3.5472662655699863`*^9,
   3.547266266979988*^9}, 3.547918566054429*^9, {3.547918635926425*^9,
   3.5479186411567245`*^9}, 3.5485289098501673`*^9, {3.5485377636975684`*^9,
   3.548537774797584*^9}, 3.5485434454575243`*^9, {3.548544432458906*^9,
   3.548544441878919*^9}, {3.5485517889250784`*^9, 3.54855179539909*^9},
   3.549036298336546*^9, {3.5490363292558002`*^9, 3.549036358225051*^9}, {
   3.549036409985942*^9, 3.549036443557201*^9}, {3.551480746636788*^9,
   3.551480751439062*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, {3.5472257438874474`*^9,
   3.547225761207472*^9}, 3.5485441494685097`*^9, {3.5485442183986063`*^9,
   3.5485442183986063`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[Element]",
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.54173007448215*^9, 3.5417300747317505`*^9}, 3.541730224086413*^9, {
   3.5417303473110294`*^9, 3.5417303497914333`*^9}, 3.5417303800242867`*^9, {
   3.5417304398347917`*^9, 3.5417304523616133`*^9}, {3.541731844320859*^9,
   3.541731844320859*^9}, {3.541785615460719*^9, 3.5417856169007215`*^9},
   3.5417859063311267`*^9, {3.5417860615813437`*^9, 3.541786068891354*^9}, {
   3.5417864158458405`*^9, 3.5417864160558405`*^9}, {3.5462978974541197`*^9,
   3.546297898854122*^9}, {3.5462981037744093`*^9, 3.5462981040444098`*^9},
   3.547225830427569*^9, 3.547225942097725*^9, 3.547229780763099*^9,
   3.5472299146732864`*^9, 3.5485441500685105`*^9, {3.548544231078624*^9,
   3.548544231838625*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"], "\[Equal]",
   RowBox[{
    RowBox[{"-",
     FractionBox["1", "d"]}],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"1", "-",
       SuperscriptBox[
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], ")"}],
     FractionBox[
      RowBox[{"m", "-", "1"}], "2"]], " ",
    RowBox[{
     SubscriptBox["\[PartialD]", "x"],
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9,
   3.5102501580436487`*^9, {3.510254519679755*^9, 3.5102545228597593`*^9}, {
   3.54173151495748*^9, 3.5417315168138833`*^9}, {3.5417857321808825`*^9,
   3.5417857726609397`*^9}, {3.5462978996541233`*^9, 3.546297901144125*^9}, {
   3.5472297893331113`*^9, 3.5472297930531163`*^9}, {3.5472299207332954`*^9,
   3.5472299224132977`*^9}, {3.5485441530985146`*^9,
   3.5485441530985146`*^9}, {3.5485442383486342`*^9, 3.5485442428286405`*^9}}],

Cell[TextData[{
 "Note: Although not essential, this rule for odd ",
 Cell[BoxData[
  RowBox[{"m", ">", "1"}]]],
 " requires fewer steps and produces simpler antiderivatives than the \
reduction rule for ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"Sin", "[",
    RowBox[{"c", "+",
     RowBox[{"d", " ", "x"}]}], "]"}], "m"]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9,
    3.497576391597533*^9}, 3.509847486078929*^9, {3.5099093157276716`*^9,
    3.509909318800877*^9}, {3.5099093924018064`*^9, 3.509909402370224*^9}, {
    3.509909454443115*^9, 3.5099094563775187`*^9}, {3.510254527619766*^9,
    3.5102545284397674`*^9}, 3.515167425103401*^9, {3.5417315235998955`*^9,
    3.541731524426697*^9}, {3.5417857114108534`*^9, 3.5417857159608603`*^9}, {
    3.546297909434137*^9, 3.546297910194138*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9,
   3.4975766144178452`*^9, {3.49757671762799*^9, 3.4975767846480837`*^9}, {
   3.4975768494507804`*^9, 3.4975769045208573`*^9}, {3.514059115062192*^9,
   3.514059117572195*^9}, {3.514463868305361*^9, 3.5144638997862163`*^9}, {
   3.5150245181044073`*^9, 3.5150245197275*^9}, 3.515024656880345*^9, {
   3.5151943490841937`*^9, 3.5151943495241947`*^9}, {3.541731518202286*^9,
   3.541731518202286*^9}, {3.541785569820656*^9, 3.5417855745206623`*^9}, {
   3.5462979024741273`*^9, 3.5462979024741273`*^9}, {3.5462981175644283`*^9,
   3.54629811881443*^9}, {3.547226002027809*^9, 3.547226012777824*^9}, {
   3.5472265301385484`*^9, 3.547226557078586*^9}, {3.547229794183118*^9,
   3.547229794183118*^9}, {3.547229930463309*^9, 3.547229930463309*^9}, {
   3.5485441547285175`*^9, 3.5485441547285175`*^9}, {3.5485442492486496`*^9,
   3.5485442492486496`*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]",
    "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.497576396827541*^9, 3.4975764493076143`*^9}, 3.497576946310916*^9, {
   3.506712458158085*^9, 3.5067124653984957`*^9}, {3.506712506537651*^9,
   3.5067125078695664`*^9}, {3.5067127618547792`*^9,
   3.5067127622653694`*^9}, {3.5102492925924373`*^9,
   3.5102493125924654`*^9}, {3.510254523809761*^9, 3.510254525009763*^9}, {
   3.510424098436626*^9, 3.5104240988966265`*^9}, {3.5150246497749386`*^9,
   3.5150246514040318`*^9}, {3.5417315220710926`*^9,
   3.5417315226950936`*^9}, {3.5417858612210636`*^9, 3.541785861691064*^9}, {
   3.541786043661319*^9, 3.5417860542013335`*^9}, {3.5462979080541353`*^9,
   3.546297908714136*^9}, {3.548544260388665*^9, 3.548544261668667*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox["1", "d"]}]}]}],
   RowBox[{"Subst", "[",
    RowBox[{
     RowBox[{"\[Integral]",
      RowBox[{
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"1", "-",
          SuperscriptBox["x", "2"]}], ")"}],
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"]],
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9,
   3.497576391597533*^9}, 3.509847486078929*^9, {3.5099093157276716`*^9,
   3.509909318800877*^9}, {3.5099093924018064`*^9, 3.509909402370224*^9}, {
   3.509909454443115*^9, 3.5099094563775187`*^9}, {3.510254527619766*^9,
   3.5102545284397674`*^9}, 3.515167425103401*^9, {3.5417315235998955`*^9,
   3.541731524426697*^9}, {3.5417857114108534`*^9, 3.5417857159608603`*^9}, {
   3.546297909434137*^9, 3.546297910194138*^9}, {3.54722979531312*^9,
   3.547229801253128*^9}, {3.54722993175331*^9, 3.547229932533312*^9},
   3.5485441563085194`*^9, 3.548544267268675*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "d"}], "*",
    RowBox[{"Subst", "[",
     RowBox[{
      RowBox[{"Int", "[",
       RowBox[{
        RowBox[{"Expand", "[",
         RowBox[{
          RowBox[{
           RowBox[{"(",
            RowBox[{"1", "-",
             RowBox[{"x", "^", "2"}]}], ")"}], "^",
           RowBox[{"(",
            RowBox[{
             RowBox[{"(",
              RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], ")"}]}], ",", "x"}],
          "]"}], ",", "x"}], "]"}], ",", "x", ",",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "1"}], " ", "&&", " ",
    RowBox[{"OddQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.497576340197461*^9, {3.5020443872559056`*^9, 3.5020443882231073`*^9},
   3.509847488328932*^9, {3.5099093200488796`*^9, 3.5099093252904882`*^9}, {
   3.509909412042241*^9, 3.5099094173774505`*^9}, {3.5099094584523225`*^9,
   3.50990946269553*^9}, {3.510254532869774*^9, 3.510254538269781*^9}, {
   3.5417315289195046`*^9, 3.5417315344419146`*^9}, {3.5417315647371674`*^9,
   3.5417315795727935`*^9}, {3.5417856389207525`*^9,
   3.5417856393807526`*^9}, {3.541786000801259*^9, 3.541786005191265*^9},
   3.5462977282938833`*^9, {3.5462979111541395`*^9, 3.5462979168041472`*^9}, {
   3.5463014451790867`*^9, 3.5463014478090906`*^9}, {3.547229802383129*^9,
   3.5472298110031414`*^9}, {3.5472299361933165`*^9,
   3.5472299407833233`*^9}, {3.548544274508685*^9, 3.5485442854786997`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[NotElement]",
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, {3.546298061184349*^9,
   3.5462980943443956`*^9}, {3.546298957235604*^9, 3.5462989584756055`*^9}, {
   3.54722578855751*^9, 3.547225826937564*^9}, {3.5472259609177513`*^9,
   3.5472259739277697`*^9}, 3.5472298121731434`*^9, 3.5472299464733315`*^9,
   3.548544157528521*^9, {3.548544296598716*^9, 3.5485442971287165`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.54173007448215*^9, 3.5417300747317505`*^9}, 3.541730224086413*^9, {
   3.5417864129858365`*^9, 3.541786414225838*^9}, {3.5462978662540765`*^9,
   3.5462978678040786`*^9}, {3.5462980013342657`*^9, 3.546298001594266*^9}, {
   3.5472257848475046`*^9, 3.5472257851375055`*^9}, {3.547225828747566*^9,
   3.5472258289375668`*^9}, 3.5472298131031446`*^9, 3.5472299473933325`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.513.5, CRC 296", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761332771716`*^9}],

Cell["\<\
Note: Although this is just a special case of the following rule, it is \
simpler and saves a trivial step.\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.5130948677012463`*^9, 3.513094868777648*^9}, {3.5130985654428687`*^9,
   3.5130985665528708`*^9}, {3.5130991696337147`*^9,
   3.5130991703437157`*^9}, {3.514149257920127*^9, 3.514149258420127*^9}, {
   3.5145964170042276`*^9, 3.5145964181642294`*^9}, {3.5417300030496244`*^9,
   3.541730003455225*^9}, {3.548530949543024*^9, 3.54853106087318*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.5130948677012463`*^9, 3.513094868777648*^9}, {3.5130985654428687`*^9,
   3.5130985665528708`*^9}, {3.5130991696337147`*^9,
   3.5130991703437157`*^9}, {3.514149257920127*^9, 3.514149258420127*^9}, {
   3.5145964170042276`*^9, 3.5145964181642294`*^9}, {3.5417300030496244`*^9,
   3.541730003455225*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "2"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["x", "2"]}]}]}]}], "-",
  FractionBox[
   RowBox[{
    RowBox[{"Cos", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], " ",
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}]}],
   RowBox[{"2", " ", "d"}]]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.5104280288041296`*^9,
   3.5104280295541306`*^9}, {3.5118052381591825`*^9, 3.5118052503691998`*^9},
   3.515167386363347*^9, {3.5417300856361694`*^9, 3.5417300912209797`*^9}, {
   3.547229814033146*^9, 3.547229815923148*^9}, {3.547229948333334*^9,
   3.547229949813336*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"x", "/", "2"}], " ", "-", " ",
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"2", "*", "d"}], ")"}]}]}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, {
   3.510428025654125*^9, 3.5104280263541265`*^9}, {3.5118052594092126`*^9,
   3.5118052744592333`*^9}, {3.5417300081196337`*^9, 3.541730025264064*^9}, {
   3.541730185023944*^9, 3.5417301979719667`*^9}, 3.546297727523882*^9,
   3.546733814462614*^9, {3.5472298174131503`*^9, 3.547229822643158*^9}, {
   3.5472299539133415`*^9, 3.5472299559133444`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[NotElement]",
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.54173007448215*^9, 3.5417300747317505`*^9}, 3.541730224086413*^9, {
   3.5417303872002993`*^9, 3.5417303962951155`*^9}, {3.5417304415507946`*^9,
   3.541730453500416*^9}, {3.5417314856138287`*^9, 3.5417314856138287`*^9}, {
   3.541785619510725*^9, 3.541785621680728*^9}, {3.541786028341297*^9,
   3.541786034311306*^9}, {3.5417864196958456`*^9, 3.541786419905846*^9}, {
   3.5462979182541494`*^9, 3.5462979197741513`*^9}, {3.54629812591444*^9,
   3.5462981261344404`*^9}, 3.5472259863377867`*^9, {3.547226121417976*^9,
   3.547226125687982*^9}, 3.547229823473159*^9, 3.5472299569633455`*^9,
   3.548544158308522*^9, {3.5485443147187414`*^9, 3.5485443164187436`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.2, CRC 299", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9,
   3.4975766144178452`*^9}],

Cell[TextData[{
 "Reference: G&R 2.552.3 inverted special case when ",
 Cell[BoxData[
  RowBox[{"a", "=", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, 3.497583103771538*^9,
   3.49758316261162*^9, 3.497923625588915*^9, {3.4982410640439453`*^9,
   3.498241080323968*^9}, {3.5053540835659466`*^9, 3.505354083875947*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[NotElement]",
    "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.497583245131736*^9, 3.4975832480817394`*^9}, {
   3.504471143260519*^9, 3.5044711443605204`*^9}, {3.504482109666358*^9,
   3.50448211089636*^9}, 3.5049885403707232`*^9, {3.506712216921203*^9,
   3.506712230961392*^9}, {3.5067123979715405`*^9, 3.5067124241692114`*^9},
   3.5067125107336845`*^9, {3.5067127658004527`*^9, 3.506712766261115*^9}, {
   3.510249931643332*^9, 3.510249940363344*^9}, {3.5102527005472083`*^9,
   3.510252712257225*^9}, 3.510254739550063*^9, {3.5104241131166463`*^9,
   3.510424113586647*^9}, {3.510427054232765*^9, 3.5104270592727723`*^9}, {
   3.5130947799198923`*^9, 3.513094781152294*^9}, 3.513098569812875*^9, {
   3.5130991132136354`*^9, 3.513099113923637*^9}, {3.5130992337838044`*^9,
   3.513099234983806*^9}, 3.5141492899501715`*^9, 3.515024654061184*^9, {
   3.5417309893457565`*^9, 3.541731015600603*^9}, {3.541785875061083*^9,
   3.5417858756410837`*^9}, {3.5417860402713137`*^9,
   3.5417860402713137`*^9}, {3.546297923954157*^9, 3.546297924424158*^9}, {
   3.5472261324079914`*^9, 3.5472261324079914`*^9}, {3.5485443225687523`*^9,
   3.548544323678754*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "1"}]]}],
        RowBox[{"d", " ", "m"}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "1"}], "m"], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "-", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5095014878340373`*^9, 3.5095014885516386`*^9}, {3.509501723296851*^9,
   3.5095017455424905`*^9}, {3.510167018471958*^9, 3.5101670221519637`*^9}, {
   3.510167325332388*^9, 3.5101673371024046`*^9}, {3.5102509934548187`*^9,
   3.5102511286150074`*^9}, {3.5102512230551395`*^9,
   3.5102512252151427`*^9}, {3.510251266585201*^9, 3.510251502655531*^9}, {
   3.510251603195672*^9, 3.510251604205673*^9}, {3.5102519162461104`*^9,
   3.5102519201161156`*^9}, {3.5102520180262527`*^9, 3.510252061526314*^9},
   3.5102540815591416`*^9, {3.5151674394434214`*^9, 3.5151674412534237`*^9}, {
   3.5417310165054045`*^9, 3.5417310206082115`*^9}, {3.54173117353528*^9,
   3.5417312486182127`*^9}, 3.5417313831684484`*^9, {3.5462979252241592`*^9,
   3.5462979280841627`*^9}, {3.54722982436316*^9, 3.5472298268431635`*^9}, {
   3.5472299887933903`*^9, 3.547229990293392*^9}, 3.548544158928523*^9, {
   3.548544330608763*^9, 3.5485443357087708`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.510252135446417*^9, 3.5102521410864253`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*", "m"}], ")"}]}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"m", "-", "1"}], ")"}], "/", "m"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"m", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "1"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"OddQ", "[", "m", "]"}], "]"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, 3.4975831484616003`*^9, {3.4979216146049824`*^9,
   3.4979216448222356`*^9}, 3.4979236340597296`*^9, {3.5067062863534656`*^9,
   3.5067062877354527`*^9}, {3.5067123638124228`*^9, 3.506712370982733*^9}, {
   3.514464069311714*^9, 3.514464109434984*^9}, {3.51446563282446*^9,
   3.5144656445712805`*^9}, 3.5144657311826324`*^9, {3.5417310746467066`*^9,
   3.5417311266415977`*^9}, {3.5417859561311965`*^9,
   3.5417859627212057`*^9}, {3.546297687203826*^9, 3.546297687833827*^9}, {
   3.546297929274165*^9, 3.5462979340541716`*^9}, {3.5463014548691006`*^9,
   3.5463014570391035`*^9}, {3.5472261088979588`*^9,
   3.5472261131279645`*^9}, {3.5472298280531654`*^9, 3.547229834173174*^9}, {
   3.547229994173398*^9, 3.5472299966534014`*^9}, {3.5485443409287777`*^9,
   3.548544355488798*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, {3.546297534403612*^9, 3.546297545453627*^9}, {
   3.5462981954745374`*^9, 3.5462981956945376`*^9}, 3.548544160798526*^9, {
   3.548544366248813*^9, 3.548544366248813*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"-", "1"}], "<", "m", "<", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, {3.5472257438874474`*^9,
   3.547225761207472*^9}, 3.5485441494685097`*^9, {3.5485442183986063`*^9,
   3.5485442183986063`*^9}, {3.549036085458572*^9, 3.5490360915893826`*^9}, {
   3.549036523554141*^9, 3.549036533725359*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.541786614186118*^9, 3.541786628256138*^9}, {3.541786846246443*^9,
   3.541786854406454*^9}, {3.5462982075745544`*^9, 3.5462982078345547`*^9}, {
   3.546735019762553*^9, 3.5467350447699833`*^9}, {3.5472569246453185`*^9,
   3.547256924785319*^9}, {3.5479184951733747`*^9, 3.547918495410388*^9},
   3.5490365255821447`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.508355661955892*^9, 3.508355663305894*^9}, {
   3.5104240724965897`*^9, 3.510424073176591*^9}, {3.513094859183631*^9,
   3.513094859994833*^9}, 3.5130991663737097`*^9, {3.514149253800121*^9,
   3.5141492542901216`*^9}, {3.51459628299404*^9, 3.5145962845940423`*^9}, {
   3.541729942271918*^9, 3.5417299426775184`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", " ",
        RowBox[{"EllipticF", "[",
         RowBox[{
          RowBox[{
           FractionBox["\[Pi]", "4"], "-",
           RowBox[{
            FractionBox["1", "2"], " ",
            RowBox[{"(",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], ")"}]}]}], ",", "2"}], "]"}]}],
       "d"]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.5098474822889233`*^9, {
   3.509909292936032*^9, 3.5099092939812336`*^9}, {3.5099093650549583`*^9,
   3.509909365476159*^9}, {3.5099094331022778`*^9, 3.509909433570279*^9},
   3.5151673335332727`*^9, {3.541729778830431*^9, 3.54172978410324*^9},
   3.541730096056988*^9, 3.54178664403616*^9, 3.541786724876273*^9,
   3.541786863216467*^9, 3.541786898366516*^9, {3.546735020828614*^9,
   3.5467350474201345`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"Pi", "/", "2"}], "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{
     RowBox[{"EllipticF", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",", "2"}], "]"}],
     "/", "d"}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9,
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.5417298013412704`*^9, 3.5417298017780714`*^9}, {3.5417301333410535`*^9,
   3.54173014270107*^9}, {3.5417867688963346`*^9, 3.5417868178164034`*^9}, {
   3.5417869391765733`*^9, 3.541786939876574*^9}, {3.5418046552633452`*^9,
   3.5418046559333463`*^9}, {3.5467350050977144`*^9, 3.5467350519783955`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"EllipticF", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Pi", "/", "4"}], "-",
        RowBox[{
         RowBox[{"(",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}]}], ",", "2"}], "]"}],
     "/", "d"}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9,
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.5417298013412704`*^9, 3.5417298017780714`*^9}, {3.5417301333410535`*^9,
   3.54173014270107*^9}, {3.5417867688963346`*^9, 3.541786776216345*^9},
   3.5417869350265675`*^9, {3.541804652133341*^9, 3.541804652303341*^9},
   3.546297730333886*^9, {3.5467350270739713`*^9, 3.5467350573537035`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"-", "1"}], "<", "m", "<", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9},
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9,
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9,
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9,
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9,
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9,
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9,
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9,
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9,
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9,
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9,
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9,
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9},
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9,
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9,
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9},
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9},
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.549036110980217*^9, 3.54903612427144*^9}, {3.5490365773898363`*^9,
   3.5490365773898363`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", "1"}], "<", "m", "<", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5490365816798434`*^9,
   3.5490365816798434`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]]}],
       RowBox[{"d", " ",
        SuperscriptBox[
         RowBox[{"(",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"], ")"}],
         FractionBox[
          RowBox[{"m", "+", "1"}], "2"]]}]]}]}]}],
   RowBox[{"Hypergeometric2F1", "[",
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", "m"}], "2"], ",",
     FractionBox["1", "2"], ",",
     FractionBox["3", "2"], ",",
     SuperscriptBox[
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9,
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9,
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9,
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9,
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9,
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9,
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9,
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9,
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9},
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9,
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9},
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9},
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9},
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9,
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9,
   3.5363617697768087`*^9}, {3.5363666287016163`*^9,
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9,
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9,
   3.536694495295528*^9}, 3.536980387788585*^9, 3.536980543328803*^9, {
   3.536980609078895*^9, 3.536980616128905*^9}, {3.541649113828012*^9,
   3.5416491983381305`*^9}, {3.541784911249734*^9, 3.5417849123597355`*^9}, {
   3.5417850837099752`*^9, 3.541785086039978*^9}, 3.541785407620428*^9, {
   3.5462979670942173`*^9, 3.5462979721642246`*^9}, {3.546300486527745*^9,
   3.5463004893777485`*^9}, 3.54630054724783*^9, 3.54854416359853*^9, {
   3.5485444249588957`*^9, 3.548544427518899*^9}, 3.549036276090907*^9, {
   3.5490363163857775`*^9, 3.5490363204729843`*^9}, 3.549036657901577*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^",
        RowBox[{"(",
         RowBox[{
          RowBox[{"(",
           RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], ")"}]}]}], ")"}]}],
    "*",
    RowBox[{"Hypergeometric2F1", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"1", "-", "m"}], ")"}], "/", "2"}], ",",
      RowBox[{"1", "/", "2"}], ",",
      RowBox[{"3", "/", "2"}], ",",
      RowBox[{
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"(",
     RowBox[{
      RowBox[{"Not", "[",
       RowBox[{"RationalQ", "[", "m", "]"}], "]"}], " ", "||", " ",
      RowBox[{
       RowBox[{"-", "1"}], "<", "m", "<", "0"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9,
   3.4980706418045526`*^9, 3.498320518570386*^9, 3.4983254473373594`*^9, {
   3.4983257317882595`*^9, 3.498325739588273*^9}, 3.4983258972265496`*^9,
   3.498327107991476*^9, {3.5144655337954865`*^9, 3.514465569098348*^9},
   3.514465744255456*^9, {3.5416469646850033`*^9, 3.5416469818250275`*^9},
   3.5416492697082305`*^9, {3.5416494755985184`*^9, 3.541649535918603*^9},
   3.541649648488761*^9, 3.5416496916688213`*^9, {3.541785098139995*^9,
   3.5417850984799957`*^9}, 3.541785182770114*^9, 3.5417854688205137`*^9,
   3.5462977398238993`*^9, {3.546297973554227*^9, 3.546297980984237*^9}, {
   3.5463004996277633`*^9, 3.5463005532478385`*^9}, {3.546300585177883*^9,
   3.5463005906178904`*^9}, {3.546315104787699*^9, 3.546315106110775*^9}, {
   3.5472273633697147`*^9, 3.54722736743972*^9}, {3.5472662655699863`*^9,
   3.547266266979988*^9}, 3.547918566054429*^9, {3.547918635926425*^9,
   3.5479186411567245`*^9}, 3.5485289098501673`*^9, {3.5485377636975684`*^9,
   3.548537774797584*^9}, 3.5485434454575243`*^9, {3.548544432458906*^9,
   3.548544441878919*^9}, {3.5485517889250784`*^9, 3.54855179539909*^9},
   3.549036298336546*^9, {3.5490363292558002`*^9, 3.549036358225051*^9}, {
   3.549036409985942*^9, 3.549036443557201*^9}, {3.549036583926247*^9,
   3.549036607591489*^9}, {3.549036679710416*^9, 3.5490366873076286`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
   3.5193207456364026`*^9}, {3.5193282921909866`*^9,
   3.5193283252786446`*^9}, {3.5193283634207115`*^9,
   3.5193283676639194`*^9}, {3.5193286295571795`*^9,
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9,
   3.5295294742328963`*^9}, 3.5415539341135683`*^9, 3.5417297751644244`*^9, {
   3.54173007448215*^9, 3.5417300747317505`*^9}, 3.541730224086413*^9,
   3.541730374954278*^9, {3.5417304378691883`*^9, 3.541730451425612*^9}, {
   3.541730489255678*^9, 3.541730489255678*^9}, {3.541730871222349*^9,
   3.5417308721895514`*^9}, {3.541786142211457*^9, 3.541786167181492*^9}, {
   3.54178700129666*^9, 3.54178700153666*^9}, {3.546297949904194*^9,
   3.5462979503841944`*^9}, {3.5462982384845977`*^9, 3.5462982537846193`*^9},
   3.5472298538432016`*^9, 3.5472300094434195`*^9, {3.5472569260353203`*^9,
   3.547256926195321*^9}, {3.547257237915757*^9, 3.5472572388857584`*^9}, {
   3.5472575306661673`*^9, 3.5472575346861725`*^9}, {3.547264079880925*^9,
   3.547264086060934*^9}, {3.5479184923032103`*^9, 3.5479185073180695`*^9},
   3.5485441615885267`*^9, {3.5485443799888325`*^9, 3.5485443799888325`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.3, CRC 309", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761332771716`*^9, 3.4980704159005556`*^9,
   3.4980705234471445`*^9, 3.4980706229285192`*^9, 3.4983254541701717`*^9,
   3.49834776104484*^9}],

Cell[TextData[{
 "Reference: G&R 2.552.3 special case when ",
 Cell[BoxData[
  RowBox[{"a", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976406080004325`*^9,
   3.4976407686675158`*^9, {3.4976412761676073`*^9, 3.497641276370407*^9}, {
   3.4976413811245914`*^9, 3.4976414279246736`*^9}, 3.4976415918497615`*^9,
   3.4976416712695007`*^9, {3.4979240714220977`*^9, 3.497924071656098*^9}, {
   3.498241383594393*^9, 3.4982413927744055`*^9}, {3.505354077065938*^9,
   3.505354077695939*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "<",
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9},
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.504471038210372*^9,
   3.504471041430376*^9}, 3.504482107256355*^9, 3.504988537290719*^9, {
   3.5083553588354673`*^9, 3.5083553595954685`*^9}, {3.5099090689040384`*^9,
   3.509909077577654*^9}, 3.510250354103923*^9, {3.510250514474148*^9,
   3.5102505279141665`*^9}, {3.510254606139876*^9, 3.5102546080298786`*^9}, {
   3.51025471607003*^9, 3.510254716890031*^9}, {3.5102547498400774`*^9,
   3.510254756550087*^9}, {3.510261384357441*^9, 3.510261385037442*^9}, {
   3.5104241170266523`*^9, 3.510424117466653*^9}, {3.5130947759106855`*^9,
   3.5130947772210875`*^9}, 3.513097560521462*^9, {3.513099308343909*^9,
   3.51309930918391*^9}, {3.5130995693542747`*^9, 3.5130995696342745`*^9},
   3.514149286590167*^9, 3.5150246165200367`*^9, {3.5417304750752535`*^9,
   3.5417305016109*^9}, {3.541730873343953*^9, 3.5417308740147543`*^9}, {
   3.5417861698614955`*^9, 3.5417861698614955`*^9}, {3.5462979534141984`*^9,
   3.5462979534141984`*^9}, {3.5472640934009438`*^9,
   3.5472640934009438`*^9}, {3.547918510567255*^9, 3.547918510567255*^9}, {
   3.548544386028841*^9, 3.548544386028841*^9}}],

Cell[BoxData[
 RowBox[{" ",
  RowBox[{
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"\[DifferentialD]",
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "+", "1"}]]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "2"}],
     RowBox[{"m", "+", "1"}]],
    RowBox[{"\[Integral]",
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"m", "+", "2"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5095014878340373`*^9, 3.5095014885516386`*^9}, {3.509501723296851*^9,
   3.5095017455424905`*^9}, {3.510167018471958*^9, 3.5101670221519637`*^9}, {
   3.510167325332388*^9, 3.5101673371024046`*^9}, {3.5102509934548187`*^9,
   3.5102511286150074`*^9}, {3.5102512230551395`*^9,
   3.5102512252151427`*^9}, {3.510251266585201*^9, 3.510251502655531*^9}, {
   3.510251603195672*^9, 3.510251604205673*^9}, {3.5102519162461104`*^9,
   3.5102519201161156`*^9}, {3.5102520180262527`*^9, 3.510252061526314*^9}, {
   3.510253854598824*^9, 3.510253940268944*^9}, {3.510253978068997*^9,
   3.510254075089133*^9}, {3.515167407833377*^9, 3.515167419883394*^9},
   3.5417306986704464`*^9, {3.5417307349873104`*^9, 3.5417308059362345`*^9}, {
   3.5462979542341995`*^9, 3.546297956594203*^9}, {3.5472298547232027`*^9,
   3.547229859333209*^9}, {3.547230016453429*^9, 3.5472300182234316`*^9},
   3.5485441621985273`*^9, {3.5485443943488526`*^9, 3.548544398908859*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"m", "+", "2"}], ")"}], "/",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"m", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976406000756187`*^9,
   3.4976407755003276`*^9, {3.497641256215172*^9, 3.4976412598187785`*^9},
   3.4976414964243937`*^9, 3.4976416664178925`*^9, {3.4979216146205826`*^9,
   3.4979216448378353`*^9}, 3.4979240644956856`*^9, {3.5067063135225325`*^9,
   3.5067063148344193`*^9}, {3.5144641832699137`*^9,
   3.5144642240483856`*^9}, {3.514465597022397*^9, 3.5144656097052193`*^9}, {
   3.541730525494542*^9, 3.541730546648179*^9}, {3.5417306032138786`*^9,
   3.5417306203427086`*^9}, 3.546297735933894*^9, {3.546297957514204*^9,
   3.5462979612042093`*^9}, {3.546301464039113*^9, 3.5463014664891167`*^9}, {
   3.547229860643211*^9, 3.54722986711322*^9}, {3.5472300233634386`*^9,
   3.5472300270434437`*^9}, {3.547257186275685*^9, 3.5472571995957036`*^9}, {
   3.5472641029309573`*^9, 3.5472641122909703`*^9}, 3.547918513430419*^9, {
   3.5485444042388663`*^9, 3.5485444184288864`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.546297406753433*^9,
   3.5462974070434337`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, {3.549036967655721*^9,
   3.5490369727569304`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"0", "<", "n", "<", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, {3.549036967655721*^9,
   3.5490369727569304`*^9}, {3.54903826028119*^9, 3.5490382662716007`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9,
   3.5472318067199373`*^9}, 3.5472661069697638`*^9, {3.547266198189892*^9,
   3.5472661985598927`*^9}, 3.54726636822013*^9, {3.5490369892461596`*^9,
   3.5490370099629955`*^9}, {3.549038210860303*^9, 3.5490382178023157`*^9},
   3.5490382683932047`*^9, {3.549038336892925*^9, 3.5490383372673254`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SqrtBox[
      RowBox[{"b", " ",
       RowBox[{"f", "[", "x", "]"}]}]],
     SqrtBox[
      RowBox[{"f", "[", "x", "]"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9,
   3.5472312497351556`*^9}, {3.548960814469925*^9, 3.5489608182295313`*^9}, {
   3.5490371289288044`*^9, 3.5490371330004115`*^9}, {3.549038317814091*^9,
   3.549038324334903*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5490372839462767`*^9,
   3.5490372839462767`*^9}, 3.5490383335545187`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SqrtBox[
    RowBox[{"b", " ",
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox[
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9,
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.5489607970914946`*^9, 3.5489608045015078`*^9}, 3.5490370965899477`*^9, {
   3.549038294772851*^9, 3.5490383061608706`*^9}, 3.549038479071574*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"b_", "*",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}]}], "]"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"b", "*",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "]"}], ",", "x"}], "]"}]}], " ", "/;",
    "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.547232641271106*^9, 3.547232662001135*^9}, 3.5472663892101593`*^9, {
   3.548960903733282*^9, 3.5489609235453167`*^9}, {3.5490370623946877`*^9,
   3.549037068821899*^9}, {3.5490371531556473`*^9, 3.5490371568216534`*^9},
   3.549037493985046*^9, {3.549037853494876*^9, 3.549037854228077*^9}, {
   3.549038345223339*^9, 3.5490383875150137`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"0", "<", "n", "<", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]",
        FractionBox["1", "2"]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9,
   3.5472318067199373`*^9}, 3.5472661069697638`*^9, {3.547266198189892*^9,
   3.5472661985598927`*^9}, 3.54726636822013*^9, {3.5490369892461596`*^9,
   3.5490370099629955`*^9}, {3.5490382710296087`*^9, 3.549038273276013*^9}, {
   3.5514804900271106`*^9, 3.551480520693865*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "x", "]"}]}], ")"}],
      RowBox[{"n", "-", "1"}]],
     SuperscriptBox[
      RowBox[{"f", "[", "x", "]"}],
      RowBox[{"n", "-", "1"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9,
   3.5472312497351556`*^9}, {3.548960814469925*^9, 3.5489608182295313`*^9}, {
   3.5490371289288044`*^9, 3.5490371330004115`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"0", "<", "n", "<", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]",
    FractionBox["1", "2"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5490372839462767`*^9,
   3.5490372839462767`*^9}, {3.551480526611203*^9, 3.551480526611203*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{"b",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
        RowBox[{"n", "-", "1"}]]}],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"n", "-", "1"}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9,
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.5489607970914946`*^9, 3.5489608045015078`*^9}, 3.5490370965899477`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"b_", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"b", "*",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"n", "-", "1"}], ")"}]}], "/",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"n", "-", "1"}], ")"}]}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}]}],
   " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"0", "<", "n", "<", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]",
     RowBox[{"1", "/", "2"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.547232641271106*^9, 3.547232662001135*^9}, 3.5472663892101593`*^9, {
   3.548960903733282*^9, 3.5489609235453167`*^9}, {3.5490370623946877`*^9,
   3.549037068821899*^9}, {3.5490371531556473`*^9, 3.5490371568216534`*^9},
   3.549037493985046*^9, {3.549037853494876*^9, 3.549037854228077*^9}, {
   3.549054466100546*^9, 3.5490544663405466`*^9}, {3.5514805373698187`*^9,
   3.551480544726239*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450649786895857`*^9, 3.545064986639597*^9}, {3.545066031121059*^9,
   3.5450660335610623`*^9}, 3.5454973526179657`*^9, {3.545503990667259*^9,
   3.5455039981972694`*^9}, 3.5455052729790545`*^9, 3.545505442339291*^9, {
   3.5455064354906816`*^9, 3.5455064379106855`*^9}, 3.545515726821439*^9, {
   3.545600330501642*^9, 3.5456003429616594`*^9}, {3.5456041289679403`*^9,
   3.545604130941053*^9}, 3.5462956733410063`*^9, {3.5462968199126115`*^9,
   3.5462968219026146`*^9}, {3.547266164689845*^9, 3.5472661774998627`*^9}, {
   3.5490369768753376`*^9, 3.5490369787785406`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 3 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9,
   3.5455051376488647`*^9}, {3.5456005712019787`*^9,
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.4982393791815863`*^9, 3.498239383051592*^9}, {
   3.498240152312669*^9, 3.4982401612626815`*^9}, 3.4987612880523596`*^9, {
   3.498761948883285*^9, 3.498761976013323*^9}, {3.505936081778288*^9,
   3.5059360824123244`*^9}, 3.50596679279029*^9, 3.506195715879625*^9, {
   3.5072434262848907`*^9, 3.507243426534491*^9}, {3.5073303681657257`*^9,
   3.507330407975782*^9}, {3.5075715513171773`*^9, 3.5075715650271964`*^9}, {
   3.5075716142272654`*^9, 3.507571619647273*^9}, {3.507580938536789*^9,
   3.50758093920679*^9}, {3.5075833309018*^9, 3.507583346985429*^9}, {
   3.5075993071840444`*^9, 3.507599307904045*^9}, {3.5136238475607247`*^9,
   3.5136238475607247`*^9}, {3.5142259248823304`*^9,
   3.5142259248823304`*^9}, {3.5142522403563457`*^9, 3.514252266126382*^9}, {
   3.514252365746521*^9, 3.51425237200653*^9}, 3.5142526257268853`*^9,
   3.5142558168413525`*^9, {3.514598142866644*^9, 3.5145981469766493`*^9}, {
   3.5145981919067125`*^9, 3.5145981930867143`*^9}, {3.5146368879674587`*^9,
   3.514636892241866*^9}, {3.5455039784272423`*^9, 3.545503983537249*^9}, {
   3.5456004709418383`*^9, 3.5456004717118397`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
          RowBox[{"n", "-", "1"}]]}],
        RowBox[{"d", " ", "n"}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ",
     RowBox[{"(",
      RowBox[{"n", "-", "1"}], ")"}]}], "n"],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
      RowBox[{"n", "-", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
   3.4975830009913936`*^9}, {3.4987607563116155`*^9, 3.498760763041625*^9}, {
   3.499305498308893*^9, 3.499305517262926*^9}, {3.5059666670951004`*^9,
   3.505966716827945*^9}, {3.5061955618794093`*^9, 3.506195570159421*^9}, {
   3.5072431872612705`*^9, 3.5072432404261637`*^9}, {3.5072432976002645`*^9,
   3.507243301266271*^9}, {3.5073303069156404`*^9, 3.507330321715661*^9}, {
   3.507442381782913*^9, 3.507442392375332*^9}, 3.5075807801865673`*^9, {
   3.5075809222567663`*^9, 3.5075809253967705`*^9}, {3.507581708877867*^9,
   3.5075817131678734`*^9}, 3.507583132911872*^9, {3.507583209907988*^9,
   3.5075832236516123`*^9}, {3.5075992725639963`*^9,
   3.5075992769640017`*^9}, {3.510507751378793*^9, 3.510507771081628*^9},
   3.510508890991995*^9, {3.510508922036049*^9, 3.5105089452800903`*^9},
   3.5105089757001433`*^9, {3.5142257979137073`*^9, 3.5142258077261243`*^9}, {
   3.5142526409569063`*^9, 3.5142526458869133`*^9}, {3.5142558354813786`*^9,
   3.514255880171441*^9}, {3.5145980839965615`*^9, 3.5145980911865716`*^9}, {
   3.514636932599137*^9, 3.514636936046743*^9}, {3.515167673643749*^9,
   3.515167683553763*^9}, {3.5455038508570633`*^9, 3.545503915727154*^9},
   3.545503966837226*^9, {3.54560049336187*^9, 3.545600523871913*^9}, {
   3.5456006112720346`*^9, 3.545600611502035*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"b_", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*", "n"}], ")"}]}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{
        RowBox[{"b", "^", "2"}], "*",
        RowBox[{"(",
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}], "/", "n"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"n", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, 3.4975831484616003`*^9, 3.4975832895717974`*^9, {
   3.4979216146049824`*^9, 3.4979216448222356`*^9}, 3.4979236654001846`*^9, {
   3.4981987086091685`*^9, 3.4981987164091825`*^9}, {3.4981987562360525`*^9,
   3.498198756563653*^9}, {3.4982411011539974`*^9, 3.498241103034*^9}, {
   3.5017330383946285`*^9, 3.501733038800229*^9}, {3.501733070701085*^9,
   3.501733075100292*^9}, {3.5031145982909107`*^9, 3.5031146095385303`*^9}, {
   3.503883100784115*^9, 3.5038831023441176`*^9}, {3.5043676148075085`*^9,
   3.504367618347513*^9}, 3.5053446400637827`*^9, {3.505344689333851*^9,
   3.5053447136938853`*^9}, 3.5053456710052257`*^9, 3.508439032390652*^9, {
   3.509847523238981*^9, 3.5098475246289825`*^9}, 3.511459116976429*^9,
   3.511805548999618*^9, {3.5120532760509987`*^9, 3.512053278951003*^9},
   3.512054082220134*^9, {3.5134422284957695`*^9, 3.5134422298957715`*^9}, {
   3.5141356760929937`*^9, 3.5141356805234013`*^9}, {3.514137621831835*^9,
   3.514137631141848*^9}, {3.514147337857438*^9, 3.5141473571874657`*^9}, {
   3.514152750191185*^9, 3.5141527505311856`*^9}, 3.514177998879638*^9,
   3.514583249914508*^9, 3.5146451165524626`*^9, 3.541090446501709*^9,
   3.5410905255090475`*^9, 3.541090623071619*^9, {3.541090860660036*^9,
   3.541090861689638*^9}, {3.5454912109410563`*^9, 3.5454912109510565`*^9}, {
   3.5455038224470234`*^9, 3.5455038387370462`*^9}, {3.5456005874820013`*^9,
   3.545600622562051*^9}, 3.5456006541320953`*^9, 3.5456008731224017`*^9,
   3.5462955775908723`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, {3.549036967655721*^9,
   3.5490369727569304`*^9}, {3.549037200798131*^9, 3.549037204261337*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"0", "<", "n", "<", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9,
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, {3.549036967655721*^9,
   3.5490369727569304`*^9}, {3.54903826028119*^9, 3.5490382662716007`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9,
   3.5472318067199373`*^9}, 3.5472661069697638`*^9, {3.547266198189892*^9,
   3.5472661985598927`*^9}, 3.54726636822013*^9, {3.5490369892461596`*^9,
   3.5490370099629955`*^9}, {3.549038210860303*^9, 3.5490382178023157`*^9},
   3.5490382683932047`*^9, {3.549038336892925*^9, 3.5490383372673254`*^9}, {
   3.5490384500711236`*^9, 3.5490384579335375`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SqrtBox[
      RowBox[{"f", "[", "x", "]"}]],
     SqrtBox[
      RowBox[{"b", " ",
       RowBox[{"f", "[", "x", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9,
   3.5472312497351556`*^9}, {3.548960814469925*^9, 3.5489608182295313`*^9}, {
   3.5490371289288044`*^9, 3.5490371330004115`*^9}, {3.549038317814091*^9,
   3.549038324334903*^9}, {3.549038536464075*^9, 3.5490385403640823`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5490372839462767`*^9,
   3.5490372839462767`*^9}, 3.5490383335545187`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      SqrtBox[
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9,
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.5489607970914946`*^9, 3.5489608045015078`*^9}, 3.5490370965899477`*^9, {
   3.549038294772851*^9, 3.5490383061608706`*^9}, {3.5490385030332165`*^9,
   3.549038526277257*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"b_", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"b", "*",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"1", "/",
       RowBox[{"Sqrt", "[",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], ",", "x"}], "]"}]}], " ",
    "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.547232641271106*^9, 3.547232662001135*^9}, 3.5472663892101593`*^9, {
   3.548960903733282*^9, 3.5489609235453167`*^9}, {3.5490370623946877`*^9,
   3.549037068821899*^9}, {3.5490371531556473`*^9, 3.5490371568216534`*^9},
   3.549037493985046*^9, {3.549037853494876*^9, 3.549037854228077*^9}, {
   3.549038345223339*^9, 3.5490383875150137`*^9}, {3.549038553390105*^9,
   3.5490385639045234`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"-", "1"}], "<", "n", "<", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9,
   3.5472318067199373`*^9}, 3.5472661069697638`*^9, {3.547266198189892*^9,
   3.5472661985598927`*^9}, 3.54726636822013*^9, {3.5490369892461596`*^9,
   3.5490370099629955`*^9}, {3.5490372273961773`*^9, 3.549037230640983*^9}, {
   3.5490384245026784`*^9, 3.5490384257974806`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "x", "]"}]}], ")"}],
      RowBox[{"n", "-", "1"}]],
     SuperscriptBox[
      RowBox[{"f", "[", "x", "]"}],
      RowBox[{"n", "-", "1"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9,
   3.5472312497351556`*^9}, {3.548960814469925*^9, 3.5489608182295313`*^9}, {
   3.5490371289288044`*^9, 3.5490371330004115`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", "1"}], "<", "n", "<", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9,
   3.5473171298465743`*^9}, {3.548551779580662*^9, 3.548551779580662*^9}, {
   3.549036451185614*^9, 3.549036451185614*^9}, {3.5490372839462767`*^9,
   3.5490373045851135`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
       RowBox[{"n", "+", "1"}]],
      RowBox[{"b", " ",
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"n", "+", "1"}]]}]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9,
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.5489607970914946`*^9, 3.5489608045015078`*^9}, 3.5490370965899477`*^9, {
   3.549037438292948*^9, 3.549037447964965*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"b_", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"n", "+", "1"}], ")"}]}], "/",
     RowBox[{"(",
      RowBox[{"b", "*",
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}]}],
   " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"(",
     RowBox[{
      RowBox[{"Not", "[",
       RowBox[{"RationalQ", "[", "n", "]"}], "]"}], " ", "||", " ",
      RowBox[{
       RowBox[{"-", "1"}], "<", "n", "<", "0"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.547232641271106*^9, 3.547232662001135*^9}, 3.5472663892101593`*^9, {
   3.548960903733282*^9, 3.5489609235453167`*^9}, {3.5490370623946877`*^9,
   3.549037068821899*^9}, {3.5490371531556473`*^9, 3.5490371568216534`*^9}, {
   3.5490373124787273`*^9, 3.5490373353327675`*^9}, {3.5490374665445976`*^9,
   3.5490374714430065`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9},
   3.545496835607242*^9, {3.545505444879295*^9, 3.545505445119295*^9}, {
   3.545505639229567*^9, 3.5455056444395742`*^9}, {3.5455068311112356`*^9,
   3.5455068403012486`*^9}, {3.5455157795484548`*^9, 3.545515785354787*^9}, {
   3.5456041640039434`*^9, 3.5456041642679586`*^9}, {3.5456043654454656`*^9,
   3.54560436639952*^9}, 3.5462962197317715`*^9, {3.546296928652764*^9,
   3.5462969303927665`*^9}, 3.5472661680398493`*^9, 3.549037208036544*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.552.3", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976406080004325`*^9,
   3.4976407686675158`*^9, {3.4976412761676073`*^9, 3.497641276370407*^9}, {
   3.4976413811245914`*^9, 3.4976414279246736`*^9}, 3.4976415918497615`*^9,
   3.4976416712695007`*^9, 3.497641808362542*^9, 3.49764211453668*^9, {
   3.497924167175066*^9, 3.4979241674870663`*^9}, {3.5053542426761694`*^9,
   3.50535424295617*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 1 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"a", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.502990148351678*^9, 3.5029901655429077`*^9},
   3.505345087524409*^9, 3.512064342062512*^9, {3.5454307013060207`*^9,
   3.545430711346035*^9}, {3.54550558430949*^9, 3.5455056165795355`*^9}, {
   3.545604344880289*^9, 3.5456043540838156`*^9}, {3.5480100196202984`*^9,
   3.5480100207602997`*^9}, {3.548010304980698*^9, 3.5480103053506985`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "<",
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9},
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9,
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9,
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9,
   3.5062138967830486`*^9}, {3.5062141332678576`*^9,
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9,
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9,
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9,
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5456043699197216`*^9,
   3.5456043707737703`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
         RowBox[{"n", "+", "1"}]]}],
       RowBox[{"b", " ", "d", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"(",
     RowBox[{"n", "+", "2"}], ")"}],
    RowBox[{
     SuperscriptBox["b", "2"],
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
      RowBox[{"n", "+", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.509829149023255*^9, 3.5098292074833364`*^9}, {
   3.510174642911626*^9, 3.51017464554803*^9}, {3.5101749019344807`*^9,
   3.5101749115128975`*^9}, {3.5151682059644947`*^9,
   3.5151682096244993`*^9}, {3.5165572858550477`*^9,
   3.5165572982414694`*^9}, {3.5165573471007557`*^9, 3.51655734967476*^9}, {
   3.5165574453897276`*^9, 3.5165574940930133`*^9}, {3.516557561453932*^9,
   3.5165575717343493`*^9}, {3.516557624244042*^9, 3.5165576267244463`*^9}, {
   3.545505496799368*^9, 3.545505530739415*^9}, {3.5456041761706395`*^9,
   3.5456043045279813`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"b_", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"n", "+", "2"}], ")"}], "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"b", "^", "2"}], "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"n", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976406000756187`*^9,
   3.4976407755003276`*^9, {3.497641256215172*^9, 3.4976412598187785`*^9},
   3.4976414964243937`*^9, 3.4976416664178925`*^9, 3.497641799704527*^9, {
   3.497641972467231*^9, 3.497641974682435*^9}, 3.497642107953469*^9, {
   3.4976421580451565`*^9, 3.49764215997956*^9}, {3.4979216146361823`*^9,
   3.4979216448378353`*^9}, 3.4979241751310797`*^9, {3.4979242573432245`*^9,
   3.497924266984041*^9}, {3.498241439764471*^9, 3.4982414602545*^9}, {
   3.5031146206925497`*^9, 3.503114629912166*^9}, {3.5031577379184756`*^9,
   3.5031577418808823`*^9}, {3.503158883390085*^9, 3.503158888428894*^9},
   3.5053446400137825`*^9, {3.5053446892738514`*^9, 3.505344713643885*^9},
   3.505345556345065*^9, 3.508439139200802*^9, {3.5098475120089655`*^9,
   3.5098475136889677`*^9}, 3.5114592311065884`*^9, 3.5118056919098177`*^9,
   3.5141779771176*^9, 3.5145876116205716`*^9, 3.516558062505211*^9,
   3.541090517116233*^9, 3.541090638890046*^9, {3.541090866307246*^9,
   3.5410908672432475`*^9}, {3.54109091423053*^9, 3.541090921406543*^9}, {
   3.545491210931056*^9, 3.545491210931056*^9}, {3.545505469249329*^9,
   3.54550547733934*^9}, {3.545505677859621*^9, 3.5455056788096223`*^9}, {
   3.5456043833954926`*^9, 3.545604453043476*^9}, 3.546295577650872*^9,
   3.5462968894727087`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9,
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9},
   3.5450660285410557`*^9, {3.5450660990311537`*^9, 3.5450661016011577`*^9}, {
   3.545066337891488*^9, 3.545066338141489*^9}, 3.545497351757964*^9,
   3.545505795729786*^9, {3.5455059918600607`*^9, 3.5455059920500607`*^9}, {
   3.5455158779400826`*^9, 3.5455158779400826`*^9}, {3.5462949534499984`*^9,
   3.5462949534499984`*^9}, {3.546295608680916*^9, 3.546295608880916*^9}, {
   3.5462973341233315`*^9, 3.546297336803335*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663330114813`*^9, 3.545066333181482*^9}, 3.5454973467679577`*^9,
   3.5455060996602116`*^9, {3.545506368460588*^9, 3.5455063686605883`*^9}, {
   3.5455156688931255`*^9, 3.5455156932105165`*^9}, {3.5456041264867983`*^9,
   3.5456041270568304`*^9}, 3.5462951666302967`*^9, {3.5462955433508244`*^9,
   3.5462955475408306`*^9}, 3.546295672131005*^9, {3.546297343073344*^9,
   3.54629735472336*^9}, {3.5500031247437434`*^9, 3.550003124945755*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5454973476679587`*^9,
   3.54550609866021*^9, 3.545515717353897*^9, {3.5462951934803343`*^9,
   3.5462951934803343`*^9}, {3.54629524743041*^9, 3.54629524743041*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 3b with ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   FractionBox["1", "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9,
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9,
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9,
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9,
   3.5017328811347513`*^9}, {3.5017335581083407`*^9,
   3.5017335953768063`*^9}, {3.501733875319298*^9, 3.501733886769718*^9},
   3.5087868231739407`*^9, {3.513883533542144*^9, 3.5138835815022106`*^9}, {
   3.5138844630034447`*^9, 3.5138844634634457`*^9}, {3.5480100515403433`*^9,
   3.5480100524403443`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4982407708135347`*^9, 3.4982407708135347`*^9}, {3.504588159968884*^9,
   3.5045881608888855`*^9}, {3.5045900936916113`*^9, 3.504590093951612*^9}, {
   3.5136154813728604`*^9, 3.513615482761263*^9}, {3.546295202420347*^9,
   3.5462952029403477`*^9}, {3.5462952405704*^9, 3.546295241780402*^9},
   3.5462965156621857`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", " ", "b", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{"d", " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}],
            "]"}]}]}]]}]]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.497921614589382*^9,
   3.497921644806636*^9}, 3.4979225240085793`*^9, {3.505355146147434*^9,
   3.5053551625874577`*^9}, 3.5053551976475067`*^9, 3.505362928562543*^9, {
   3.513379464725625*^9, 3.5133794651656256`*^9}, 3.5151818333396654`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"a_", "+",
      RowBox[{"b_.", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*", "b", "*",
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497922520046173*^9, {
   3.5053551461574345`*^9, 3.505355162597458*^9}, 3.505355197657507*^9,
   3.50536293377255*^9, 3.513379506135683*^9, 3.541088902624998*^9,
   3.5410889380058603`*^9, 3.5462952110303593`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663330114813`*^9, 3.545066333181482*^9}, 3.5454973467679577`*^9,
   3.5455060996602116`*^9, {3.545506368460588*^9, 3.5455063686605883`*^9}, {
   3.5455156688931255`*^9, 3.5455156932105165`*^9}, {3.5456041264867983`*^9,
   3.5456041270568304`*^9}, 3.5462951666302967`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"a", "+", "b"}], ">", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5454973476679587`*^9,
   3.54550609866021*^9, 3.545515717353897*^9, 3.546295167980299*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    RowBox[{"EllipticE", "[",
     RowBox[{"z", ",", "n"}], "]"}]}], "=",
   SqrtBox[
    RowBox[{"1", "-",
     RowBox[{"n", " ",
      SuperscriptBox[
       RowBox[{"Sin", "[", "z", "]"}], "2"]}]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"1", "-",
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]],
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{
        FractionBox[
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "2"], "-",
        FractionBox["\[Pi]", "4"]}], "]"}], "2"]}]}], "=",
   RowBox[{
    FractionBox["a",
     RowBox[{"a", "+", "b"}]], "+",
    FractionBox[
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{"a", "+", "b"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.497582725161008*^9, 3.497582728721012*^9},
   3.497582802891116*^9, {3.509893685281507*^9, 3.509893685281507*^9}, {
   3.5151263553521*^9, 3.5151263553521*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"a", "+", "b"}], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4982408115335917`*^9,
   3.4982408115335917`*^9}, {3.504396309416292*^9, 3.5043963109862947`*^9}, {
   3.504413193550866*^9, 3.5044131942308674`*^9}, {3.5044133130510335`*^9,
   3.504413313411034*^9}, {3.508348841306343*^9, 3.508348842436345*^9}, {
   3.513095047017943*^9, 3.5130950482379446`*^9}, {3.513377117822339*^9,
   3.51337711822234*^9}, {3.514597917336328*^9, 3.5145979175763283`*^9}, {
   3.5145980146964645`*^9, 3.5145980151564655`*^9}, {3.5151812744218836`*^9,
   3.5151812752174854`*^9}, {3.5450645020089183`*^9, 3.545064502608919*^9},
   3.5462965065121727`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", " ",
        SqrtBox[
         RowBox[{"a", "+", "b"}]]}], "d"]}]}]}],
   RowBox[{"EllipticE", "[",
    RowBox[{
     RowBox[{
      FractionBox["\[Pi]", "4"], "-",
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"]}], ",",
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4979216297526093`*^9, 3.497922801283467*^9,
   3.500665297613958*^9, 3.505344687833849*^9, 3.505346451676318*^9,
   3.5098471638084774`*^9, {3.5098934921012363`*^9, 3.50989350168125*^9}, {
   3.509893619231415*^9, 3.5098936260614243`*^9}, 3.5098937648316183`*^9, {
   3.5151262912359877`*^9, 3.515126312561225*^9}, 3.5151675961336403`*^9, {
   3.515711026402997*^9, 3.515711035997014*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"a_", "+",
      RowBox[{"b_.", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"Pi", "/", "2"}], "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a", "+", "b"}], "]"}], "/", "d"}], "*",
    RowBox[{"EllipticE", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4979216297526093`*^9,
   3.4979227505677776`*^9, {3.503114419966997*^9, 3.503114433570221*^9},
   3.505344687843849*^9, 3.505346458346328*^9, 3.505409319744323*^9,
   3.5074317977549033`*^9, 3.50984716543848*^9, 3.5098939458618717`*^9,
   3.5118053855293894`*^9, 3.5141774554954824`*^9, {3.5151261677929707`*^9,
   3.515126186778204*^9}, {3.5156892546264534`*^9, 3.5156892662864695`*^9}, {
   3.5410967919740477`*^9, 3.5410968164348907`*^9}, 3.541096872470189*^9, {
   3.545064286118616*^9, 3.5450642902186213`*^9}, 3.5450653886701593`*^9, {
   3.5467379647819986`*^9, 3.546737972441437*^9}, 3.5473431884010725`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"a_", "+",
      RowBox[{"b_.", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a", "+", "b"}], "]"}], "/", "d"}], "*",
    RowBox[{"EllipticE", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Pi", "/", "4"}], "-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}]}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4979216297526093`*^9,
   3.4979227505677776`*^9, {3.503114419966997*^9, 3.503114433570221*^9},
   3.505344687843849*^9, 3.505346458346328*^9, 3.505409319744323*^9,
   3.5074317977549033`*^9, 3.50984716543848*^9, 3.5098939458618717`*^9,
   3.5118053855293894`*^9, 3.5141774554954824`*^9, {3.5151262434531035`*^9,
   3.5151262526259193`*^9}, {3.5156892571864567`*^9,
   3.5156892634864655`*^9}, {3.5157110412230234`*^9, 3.515711048617436*^9}, {
   3.541096819882497*^9, 3.541096862642172*^9}, {3.5450642748886003`*^9,
   3.5450642756486015`*^9}, 3.5450653840801535`*^9, {3.5462952954604774`*^9,
   3.546295295930478*^9}, 3.546297200653145*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"\[Not]",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "x", "]"}]}]}]],
     SqrtBox[
      FractionBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"f", "[", "x", "]"}]}]}],
       RowBox[{"a", "+", "b"}]]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}}],

Cell[TextData[{
 "Note: Since ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["a",
     RowBox[{"a", "+", "b"}]], "+",
    FractionBox["b",
     RowBox[{"a", "+", "b"}]]}], "\[Equal]", "1", ">", "0"}]]],
 ", the above rule applies to the resulting integrand."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.497582428440592*^9,
   3.4975824695406494`*^9}, 3.4975829172612762`*^9, 3.4979216297682095`*^9, {
   3.497923045626696*^9, 3.4979230482631006`*^9}, {3.5067957598589277`*^9,
   3.5067957686215277`*^9}, {3.5141774305510387`*^9,
   3.5141774314090405`*^9}, {3.515025759901434*^9, 3.515025766066787*^9}, {
   3.5151944538143406`*^9, 3.515194454914342*^9}, {3.546295338580538*^9,
   3.54629536882058*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"\[Not]",
    RowBox[{"(",
     RowBox[{
      RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4982408276436143`*^9,
   3.4982408276436143`*^9}, {3.504396314346299*^9, 3.504396315826301*^9}, {
   3.504413197760872*^9, 3.504413198360873*^9}, {3.5044133170010395`*^9,
   3.5044133173010397`*^9}, {3.5083488469763513`*^9,
   3.5083488473063517`*^9}, {3.513095050507948*^9, 3.5130950522779503`*^9}, {
   3.513377121572345*^9, 3.5133771223323455`*^9}, {3.5145979213763337`*^9,
   3.5145979216063337`*^9}, {3.5145980193364706`*^9,
   3.5145980195364714`*^9}, {3.5151812787898912`*^9,
   3.5151812795542927`*^9}, {3.5450644968489113`*^9, 3.545064497488912*^9},
   3.546296510982179*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SqrtBox[
       FractionBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}],
        RowBox[{"a", "+", "b"}]]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{
       FractionBox["a",
        RowBox[{"a", "+", "b"}]], "+",
       RowBox[{
        FractionBox["b",
         RowBox[{"a", "+", "b"}]],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"Sqrt", "[",
     RowBox[{"a_", "+",
      RowBox[{"b_.", "*",
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a", "+",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{
        RowBox[{"a", "/",
         RowBox[{"(",
          RowBox[{"a", "+", "b"}], ")"}]}], "+",
        RowBox[{
         RowBox[{"b", "/",
          RowBox[{"(",
           RowBox[{"a", "+", "b"}], ")"}]}], "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], ",", "x"}], "]"}]}],
   " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"PositiveQ", "[",
      RowBox[{"a", "+", "b"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9},
   3.54629632595192*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9},
   3.5450660285410557`*^9, {3.5450660990311537`*^9, 3.5450661016011577`*^9}, {
   3.545066337891488*^9, 3.545066338141489*^9}, 3.545497351757964*^9,
   3.545505795729786*^9, {3.5455059918600607`*^9, 3.5455059920500607`*^9}, {
   3.5455158779400826`*^9, 3.5455158779400826`*^9}, {3.5462949534499984`*^9,
   3.5462949534499984`*^9}, {3.5462949860700445`*^9,
   3.5462949906100507`*^9}, {3.546295614880924*^9, 3.546295615080925*^9}, {
   3.5462973612333694`*^9, 3.5462973695733814`*^9}, {3.5462994976863604`*^9,
   3.546299523796397*^9}, {3.546300239397399*^9, 3.546300240897401*^9}, {
   3.546300301207485*^9, 3.5463003047474904`*^9}, {3.550003126381837*^9,
   3.550003155499502*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450663314814796`*^9, 3.5450663316414795`*^9}, 3.5454973458879566`*^9,
   3.5455060521401453`*^9, {3.545506115790234*^9, 3.5455061198002396`*^9}, {
   3.5455063983806295`*^9, 3.545506431110676*^9}, 3.5455157244893055`*^9,
   3.545604122578574*^9, 3.546295670321002*^9, 3.54629734027334*^9,
   3.5500031338762655`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 12 with ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9,
   3.5038813546802473`*^9}, {3.5049162938617954`*^9,
   3.5049163006634073`*^9}, {3.5049224814485416`*^9,
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9},
   3.505345123294459*^9, {3.5102680075767136`*^9, 3.510268048246771*^9}, {
   3.510286142802781*^9, 3.5102861557352037`*^9}, {3.5102870731364155`*^9,
   3.5102871063020735`*^9}, {3.5120545232307515`*^9, 3.512054526910756*^9}, {
   3.5141426032508097`*^9, 3.5141426115508213`*^9}, {3.5455061287802525`*^9,
   3.545506135720262*^9}, {3.54801004206033*^9, 3.5480100452603345`*^9}}],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for integrands of the form ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(",
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
    3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
    3.4975830009913936`*^9}, {3.497921614589382*^9, 3.497921644806636*^9},
    3.497923590660453*^9, {3.5053551461774344`*^9, 3.505355162597458*^9},
    3.5053551976675067`*^9, 3.505362939562558*^9, {3.513379512025691*^9,
    3.513379515495696*^9}, {3.5151820485888433`*^9, 3.515182051927249*^9}, {
    3.5165785415965185`*^9, 3.516578588456584*^9}, 3.5463000771471715`*^9, {
    3.546301352338957*^9, 3.546301371018983*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.500564276738323*^9, 3.500564276738323*^9}, {3.500564478977479*^9,
   3.500564478977479*^9}, {3.5012690944074793`*^9, 3.501269096907482*^9}, {
   3.502989419757598*^9, 3.5029894266684093`*^9}, {3.504382491914279*^9,
   3.5043824931842804`*^9}, 3.5044145181527205`*^9, 3.5044145651527863`*^9, {
   3.5048326294605317`*^9, 3.5048326318105345`*^9}, {3.504832848270838*^9,
   3.504832848820839*^9}, {3.5048395473922195`*^9, 3.504839551752225*^9}, {
   3.5048396769524*^9, 3.504839677692402*^9}, {3.508452034081811*^9,
   3.508452034081811*^9}, 3.5098354484687543`*^9, 3.509911360347663*^9, {
   3.5101827988991985`*^9, 3.5101828019568033`*^9}, {3.5101832031707087`*^9,
   3.5101832041847105`*^9}, {3.5117201893934717`*^9,
   3.5117201893934717`*^9}, {3.513095241718216*^9, 3.513095242088216*^9},
   3.514142335340435*^9, {3.5141424490905943`*^9, 3.51414246048061*^9}, {
   3.514743996101736*^9, 3.5147439975317383`*^9}, {3.5147440486318097`*^9,
   3.514744051131813*^9}, {3.5147478342170925`*^9, 3.5147478342170925`*^9}, {
   3.514750376522465*^9, 3.5147503771424665`*^9}, {3.514846444067275*^9,
   3.514846444067275*^9}, {3.516667472845967*^9, 3.516667473703968*^9}, {
   3.51684679198973*^9, 3.516846798265088*^9}, {3.545415861632052*^9,
   3.545415862724054*^9}, {3.545430100045179*^9, 3.54543010057518*^9}, {
   3.545596072835681*^9, 3.545596085505699*^9}, {3.545596126945757*^9,
   3.5455962223758907`*^9}, {3.5462983818147984`*^9, 3.546298383654801*^9},
   3.546298452334897*^9, {3.5480125360188236`*^9, 3.548012547198839*^9}, {
   3.5480125819288883`*^9, 3.5480127290690937`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9},
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9,
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9,
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9,
   3.5062138967830486`*^9}, {3.5062141332678576`*^9,
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9, {
   3.5141416582394867`*^9, 3.5141416778495145`*^9}, {3.514146583716383*^9,
   3.514146584846384*^9}, {3.51414758915779*^9, 3.514147589647791*^9},
   3.5141476759479117`*^9, 3.514597994066436*^9, 3.5151812601010585`*^9, {
   3.545066159221238*^9, 3.5450661596212387`*^9}, 3.545506123330245*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{"2",
           SuperscriptBox["a", "2"]}], "+",
          SuperscriptBox["b", "2"]}], ")"}], "x"}], "2"]}]}]}]}], "-",
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ",
    RowBox[{"Cos", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}],
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}]}],
   RowBox[{"2", "d"}]], "+",
  RowBox[{"2", "a", " ", "b",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9,
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9,
   3.510183019686386*^9}, {3.5141366663504972`*^9, 3.514136709830558*^9}, {
   3.5141367652306356`*^9, 3.5141367807606573`*^9}, {3.5141369190408506`*^9,
   3.514137030991008*^9}, {3.5141375883017883`*^9, 3.5141375939117956`*^9}, {
   3.51414390318263*^9, 3.5141439034726305`*^9}, {3.5151675869436274`*^9,
   3.5151675899036317`*^9}, {3.545506144970275*^9, 3.5455061553402896`*^9}, {
   3.545506471100732*^9, 3.5455065262408085`*^9}, {3.545506556690851*^9,
   3.545506560730857*^9}, {3.5457114080705347`*^9, 3.5457114118105392`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "*",
        RowBox[{"a", "^", "2"}]}], "+",
       RowBox[{"b", "^", "2"}]}], ")"}], "*",
     RowBox[{"x", "/", "2"}]}], " ", "-", " ",
    RowBox[{
     RowBox[{"b", "^", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "+", " ",
    RowBox[{"2", "*", "a", "*", "b", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9,
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9},
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9},
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9,
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9},
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9,
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9,
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, {3.510267358245805*^9,
   3.510267363695812*^9}, 3.5102674525359364`*^9, {3.51026851924743*^9,
   3.510268522147434*^9}, 3.510268653627618*^9, {3.5102687229377155`*^9,
   3.510268727847722*^9}, 3.510286783854707*^9, {3.510286855412032*^9,
   3.5102868598424406`*^9}, {3.510286899944911*^9, 3.510286906169322*^9},
   3.512054537890772*^9, {3.5120545820108337`*^9, 3.512054602120862*^9}, {
   3.5141374185915504`*^9, 3.514137419971552*^9}, 3.514137457461605*^9,
   3.5141375596417475`*^9, {3.514137613991824*^9, 3.514137617741829*^9}, {
   3.514141592499395*^9, 3.5141415948793983`*^9}, {3.5141439065226345`*^9,
   3.5141439068526354`*^9}, 3.516821192057212*^9, {3.5450638743880396`*^9,
   3.545063878378045*^9}, 3.5455066383309655`*^9, {3.545506709431065*^9,
   3.545506722691084*^9}, {3.5457114181305485`*^9, 3.545711420790552*^9},
   3.5462955775708723`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9},
   3.5450660285410557`*^9, {3.5450660990311537`*^9, 3.5450661016011577`*^9}, {
   3.545066337891488*^9, 3.545066338141489*^9}, 3.545497351757964*^9,
   3.545505795729786*^9, {3.5455059918600607`*^9, 3.5455059920500607`*^9}, {
   3.5455158779400826`*^9, 3.5455158779400826`*^9}, {3.5462949534499984`*^9,
   3.5462949534499984`*^9}, {3.5462949860700445`*^9,
   3.5462949906100507`*^9}, {3.546295614880924*^9, 3.546295615080925*^9}, {
   3.5462973612333694`*^9, 3.5462973695733814`*^9}, {3.5462994976863604`*^9,
   3.546299523796397*^9}, {3.546300239397399*^9, 3.546300240897401*^9}, {
   3.546300301207485*^9, 3.5463003047474904`*^9}, {3.550003126381837*^9,
   3.5500031265868487`*^9}, 3.550003167113167*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9},
   3.545496835607242*^9, {3.545505444879295*^9, 3.545505445119295*^9}, {
   3.545505639229567*^9, 3.5455056444395742`*^9}, {3.5455068311112356`*^9,
   3.5455068403012486`*^9}, {3.5455157795484548`*^9, 3.545515785354787*^9}, {
   3.545604160836763*^9, 3.5456041610407743`*^9}, {3.546299449516293*^9,
   3.5462994497762938`*^9}, {3.5462995291664047`*^9,
   3.5462995755064697`*^9}, {3.546300060107148*^9, 3.546300060727149*^9}, {
   3.54630028306746*^9, 3.546300293027474*^9}, 3.5500031984559593`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.555.? inverted", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, 3.497583103771538*^9,
   3.4979235780400314`*^9, {3.498240948743784*^9, 3.4982409612938013`*^9}, {
   3.5045896721978087`*^9, 3.5045896726178093`*^9}, {3.5165796775681086`*^9,
   3.5165797222881713`*^9}}],

Cell[TextData[{
 "Derivation: Rule 3b with ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9,
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9,
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9,
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9,
   3.5017328811347513`*^9}, {3.5017335581083407`*^9, 3.5017335953768063`*^9},
   3.508786823183941*^9, {3.5138842955432105`*^9, 3.513884350713288*^9}, {
   3.5138844713934565`*^9, 3.5138844716834574`*^9}, {3.516578653306675*^9,
   3.516578656026678*^9}, {3.5463000855771837`*^9, 3.5463000855771837`*^9}, {
   3.546725933536254*^9, 3.546725934018282*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.49824098175383*^9, 3.4982410100538692`*^9}, {
   3.501806521764586*^9, 3.501806522825388*^9}, {3.5043673081970787`*^9,
   3.5043673130770855`*^9}, {3.504589937681393*^9, 3.5045899401413965`*^9}, {
   3.504590096691616*^9, 3.5045900978716173`*^9}, {3.513618073827199*^9,
   3.5136180745271997`*^9}, {3.514145798415283*^9, 3.514145798415283*^9}, {
   3.5141534525486174`*^9, 3.51415345975583*^9}, {3.5165786695766973`*^9,
   3.5165786740467033`*^9}, {3.516579783398257*^9, 3.5165797839482574`*^9}, {
   3.516579949528489*^9, 3.5165799503584905`*^9}, 3.5165802603489246`*^9, {
   3.5168328599368615`*^9, 3.516832866074213*^9}, {3.5462999911670513`*^9,
   3.5462999911670513`*^9}, {3.5463000992772026`*^9,
   3.5463000992772026`*^9}, {3.546300359687567*^9, 3.546300359687567*^9}, {
   3.5463173395375195`*^9, 3.54631733970953*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "-", "1"}]]}],
        RowBox[{"d", " ", "n"}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"a", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", " ", "n"}], "-", "1"}], ")"}]}], "n"],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
   3.4975830009913936`*^9}, {3.497921614589382*^9, 3.497921644806636*^9},
   3.497923590660453*^9, {3.5053551461774344`*^9, 3.505355162597458*^9},
   3.5053551976675067`*^9, 3.505362939562558*^9, {3.513379512025691*^9,
   3.513379515495696*^9}, {3.5151820485888433`*^9, 3.515182051927249*^9}, {
   3.5165785415965185`*^9, 3.516578588456584*^9}, 3.5463000771471715`*^9, {
   3.546301352338957*^9, 3.546301371018983*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*", "n"}], ")"}]}]}], " ", "+", "\n", "  ",
    RowBox[{"a", "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{
        RowBox[{"2", "*", "n"}], "-", "1"}], ")"}], "/", "n"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"n", "-", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, {3.497921614589382*^9, 3.497921644806636*^9},
   3.497923569444416*^9, {3.4982410296338973`*^9, 3.4982410322139006`*^9},
   3.501806517926979*^9, {3.504367290927055*^9, 3.5043672999870677`*^9}, {
   3.504589927381379*^9, 3.50458992787138*^9}, {3.505355146187434*^9,
   3.5053551626074576`*^9}, 3.5053551976875067`*^9, 3.505362943012563*^9, {
   3.5133795214257045`*^9, 3.513379523885708*^9}, {3.514145770335244*^9,
   3.514145770585244*^9}, 3.5141534394757943`*^9, {3.516578784936859*^9,
   3.5165787866568613`*^9}, {3.5410884359969783`*^9, 3.541088452860608*^9},
   3.5455832533922076`*^9, {3.546300007347074*^9, 3.546300017197088*^9}, {
   3.5463003697575817`*^9, 3.5463003755675898`*^9}, {3.5463013825489993`*^9,
   3.5463013928090134`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5450638651180267`*^9, {
   3.545064163248444*^9, 3.5450641908184824`*^9}, 3.5450645478389826`*^9, {
   3.5450649786895857`*^9, 3.545064986639597*^9}, {3.545066031121059*^9,
   3.5450660335610623`*^9}, 3.5454973526179657`*^9, {3.545503990667259*^9,
   3.5455039981972694`*^9}, 3.5455052729790545`*^9, 3.545505442339291*^9, {
   3.5455064354906816`*^9, 3.5455064379106855`*^9}, 3.545515726821439*^9, {
   3.5456003352216487`*^9, 3.545600355601677*^9}, {3.545600423321772*^9,
   3.545600423321772*^9}, {3.545604133051173*^9, 3.5456041344842553`*^9},
   3.546295674541008*^9, {3.5462984333848705`*^9, 3.5462984358048735`*^9}, {
   3.5463002319973884`*^9, 3.5463002342273912`*^9}, {3.546300274577448*^9,
   3.546300290957471*^9}, 3.5500031998000364`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 3 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9,
   3.5455051376488647`*^9}, {3.548010066360364*^9, 3.548010067570366*^9}, {
   3.5480103064507*^9, 3.5480103068407*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.4982393791815863`*^9, 3.498239383051592*^9}, {
   3.498240152312669*^9, 3.4982401612626815`*^9}, 3.4987612880523596`*^9, {
   3.498761948883285*^9, 3.498761976013323*^9}, {3.505936081778288*^9,
   3.5059360824123244`*^9}, 3.50596679279029*^9, 3.506195715879625*^9, {
   3.5072434262848907`*^9, 3.507243426534491*^9}, {3.5073303681657257`*^9,
   3.507330407975782*^9}, {3.5075715513171773`*^9, 3.5075715650271964`*^9}, {
   3.5075716142272654`*^9, 3.507571619647273*^9}, {3.507580938536789*^9,
   3.50758093920679*^9}, {3.5075833309018*^9, 3.507583346985429*^9}, {
   3.5075993071840444`*^9, 3.507599307904045*^9}, {3.5136238475607247`*^9,
   3.5136238475607247`*^9}, {3.5142259248823304`*^9,
   3.5142259248823304`*^9}, {3.5142522403563457`*^9, 3.514252266126382*^9}, {
   3.514252365746521*^9, 3.51425237200653*^9}, 3.5142526257268853`*^9,
   3.5142558168413525`*^9, {3.514598142866644*^9, 3.5145981469766493`*^9}, {
   3.5145981919067125`*^9, 3.5145981930867143`*^9}, {3.5146368879674587`*^9,
   3.514636892241866*^9}, {3.5455039784272423`*^9, 3.545503983537249*^9}, {
   3.5456003616016855`*^9, 3.5456003616016855`*^9}, {3.5456004253217745`*^9,
   3.5456004253217745`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "-", "1"}]]}],
        RowBox[{"d", " ", "n"}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1", "n"],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], " ", "n"}], "+",
       RowBox[{
        SuperscriptBox["b", "2"], " ",
        RowBox[{"(",
         RowBox[{"n", "-", "1"}], ")"}]}], "+",
       RowBox[{"a", " ", "b", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
   3.4975830009913936`*^9}, {3.4987607563116155`*^9, 3.498760763041625*^9}, {
   3.499305498308893*^9, 3.499305517262926*^9}, {3.5059666670951004`*^9,
   3.505966716827945*^9}, {3.5061955618794093`*^9, 3.506195570159421*^9}, {
   3.5072431872612705`*^9, 3.5072432404261637`*^9}, {3.5072432976002645`*^9,
   3.507243301266271*^9}, {3.5073303069156404`*^9, 3.507330321715661*^9}, {
   3.507442381782913*^9, 3.507442392375332*^9}, 3.5075807801865673`*^9, {
   3.5075809222567663`*^9, 3.5075809253967705`*^9}, {3.507581708877867*^9,
   3.5075817131678734`*^9}, 3.507583132911872*^9, {3.507583209907988*^9,
   3.5075832236516123`*^9}, {3.5075992725639963`*^9,
   3.5075992769640017`*^9}, {3.510507751378793*^9, 3.510507771081628*^9},
   3.510508890991995*^9, {3.510508922036049*^9, 3.5105089452800903`*^9},
   3.5105089757001433`*^9, {3.5142257979137073`*^9, 3.5142258077261243`*^9}, {
   3.5142526409569063`*^9, 3.5142526458869133`*^9}, {3.5142558354813786`*^9,
   3.514255880171441*^9}, {3.5145980839965615`*^9, 3.5145980911865716`*^9}, {
   3.514636932599137*^9, 3.514636936046743*^9}, {3.515167673643749*^9,
   3.515167683553763*^9}, {3.5455038508570633`*^9, 3.545503915727154*^9},
   3.545503966837226*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*", "n"}], ")"}]}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/", "n"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "^", "2"}], "*", "n"}], "+",
           RowBox[{
            RowBox[{"b", "^", "2"}], "*",
            RowBox[{"(",
             RowBox[{"n", "-", "1"}], ")"}]}], "+",
           RowBox[{"a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"2", "*", "n"}], "-", "1"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, 3.4975831484616003`*^9, 3.4975832895717974`*^9, {
   3.4979216146049824`*^9, 3.4979216448222356`*^9}, 3.4979236654001846`*^9, {
   3.4981987086091685`*^9, 3.4981987164091825`*^9}, {3.4981987562360525`*^9,
   3.498198756563653*^9}, {3.4982411011539974`*^9, 3.498241103034*^9}, {
   3.5017330383946285`*^9, 3.501733038800229*^9}, {3.501733070701085*^9,
   3.501733075100292*^9}, {3.5031145982909107`*^9, 3.5031146095385303`*^9}, {
   3.503883100784115*^9, 3.5038831023441176`*^9}, {3.5043676148075085`*^9,
   3.504367618347513*^9}, 3.5053446400637827`*^9, {3.505344689333851*^9,
   3.5053447136938853`*^9}, 3.5053456710052257`*^9, 3.508439032390652*^9, {
   3.509847523238981*^9, 3.5098475246289825`*^9}, 3.511459116976429*^9,
   3.511805548999618*^9, {3.5120532760509987`*^9, 3.512053278951003*^9},
   3.512054082220134*^9, {3.5134422284957695`*^9, 3.5134422298957715`*^9}, {
   3.5141356760929937`*^9, 3.5141356805234013`*^9}, {3.514137621831835*^9,
   3.514137631141848*^9}, {3.514147337857438*^9, 3.5141473571874657`*^9}, {
   3.514152750191185*^9, 3.5141527505311856`*^9}, 3.514177998879638*^9,
   3.514583249914508*^9, 3.5146451165524626`*^9, 3.541090446501709*^9,
   3.5410905255090475`*^9, 3.541090623071619*^9, {3.541090860660036*^9,
   3.541090861689638*^9}, {3.5454912109410563`*^9, 3.5454912109510565`*^9}, {
   3.5455038224470234`*^9, 3.5455038387370462`*^9}, {3.545600363381688*^9,
   3.545600369891697*^9}, {3.5456004272817774`*^9, 3.545600452051812*^9},
   3.5462955776008725`*^9, {3.546300315777506*^9, 3.5463003171475077`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9},
   3.5450660285410557`*^9, {3.5450660990311537`*^9, 3.5450661016011577`*^9}, {
   3.545066337891488*^9, 3.545066338141489*^9}, 3.545497351757964*^9,
   3.545505795729786*^9, {3.5455059918600607`*^9, 3.5455059920500607`*^9}, {
   3.5455158779400826`*^9, 3.5455158779400826`*^9}, {3.5462949534499984`*^9,
   3.5462949534499984`*^9}, {3.5462949860700445`*^9,
   3.5462949906100507`*^9}, {3.546295614880924*^9, 3.546295615080925*^9}, {
   3.5462973612333694`*^9, 3.5462973695733814`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, 3.545497342177951*^9,
   3.545515777055312*^9, {3.5462990410957212`*^9, 3.5462990443057256`*^9},
   3.546299443516285*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, 3.5450606610380955`*^9, 3.545060729428616*^9,
   3.5450609209813523`*^9, {3.545060951947407*^9, 3.545060952321808*^9},
   3.5454973441779537`*^9, 3.545515796981452*^9, {3.5462988636854725`*^9,
   3.5462988636854725`*^9}, {3.5462990295257053`*^9, 3.5462990495457335`*^9},
   3.546315453644653*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.555.3', CRC 337', A&S 4.3.134'/5'", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, 3.4979222572169113`*^9, {3.515603311397254*^9,
   3.5156033183572636`*^9}, {3.5156034225574093`*^9, 3.5156034228274097`*^9}}],

Cell[TextData[{
 "Derivation: Rule 1b with ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9,
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9,
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9,
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9,
   3.5017328811347513`*^9}, {3.5017335581083407`*^9,
   3.5017335953768063`*^9}, {3.501733875319298*^9, 3.501733886769718*^9}, {
   3.5017340709904413`*^9, 3.501734096262486*^9}, 3.508786823163941*^9, {
   3.513882931481301*^9, 3.513882974681361*^9}, {3.513884456003435*^9,
   3.5138844562234354`*^9}, {3.548010074540375*^9, 3.548010075430376*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.498240714363456*^9, 3.498240714363456*^9}, {
   3.504588147288866*^9, 3.504588147958867*^9}, 3.504590081521595*^9,
   3.5136155872190466`*^9, 3.514736574158182*^9, {3.546298849535453*^9,
   3.546298858115465*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"d", " ",
        RowBox[{"(",
         RowBox[{"b", "+",
          RowBox[{"a", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}],
         ")"}]}]]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.4979216145737824`*^9, 3.4979216447910357`*^9},
   3.497922266920128*^9, {3.5053551460674343`*^9, 3.5053551625674577`*^9},
   3.5053551975975065`*^9, 3.505362823262396*^9, {3.513379457125614*^9,
   3.513379457835615*^9}, 3.5151817786459694`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}]}], "/",
    RowBox[{"(",
     RowBox[{"d", "*",
      RowBox[{"(",
       RowBox[{"b", "+",
        RowBox[{"a", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, {3.4979216145737824`*^9,
   3.4979216447910357`*^9}, 3.4979222491204967`*^9, {3.5053551460774345`*^9,
   3.5053551625774574`*^9}, 3.5053551976075068`*^9, 3.5053628266724005`*^9,
   3.513379480405647*^9, {3.5410889128430157`*^9, 3.5410889286458435`*^9},
   3.5463015033991685`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, 3.545497342177951*^9,
   3.545515777055312*^9, {3.546299050905735*^9, 3.5462990510957355`*^9},
   3.546315454913725*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], ">", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545060696949359*^9,
   3.545060704889773*^9}, 3.545497343227953*^9, 3.5455157955793715`*^9,
   3.5463154708816385`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], ">", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, 3.545060656186487*^9, 3.545060708025378*^9,
   3.545497366417985*^9, 3.545515801057685*^9, 3.546315487270576*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although this rule produces a more complicated antiderivative than \
the following rule, it is continuous provided  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], ">", "0"}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9, 3.4980156457105*^9, {
   3.4980207183018446`*^9, 3.498020768767933*^9}, 3.498059955917454*^9, {
   3.4980603297565107`*^9, 3.4980603534217525`*^9}, {3.4980604729647627`*^9,
   3.4980604821687784`*^9}, {3.498062467701068*^9, 3.4980625074811373`*^9}, {
   3.498062720437112*^9, 3.49806273658314*^9}, {3.498062866812169*^9,
   3.4980628951574183`*^9}, {3.513377847463361*^9, 3.51337785408337*^9}, {
   3.513378298423992*^9, 3.513378308944007*^9}, {3.5133783881541176`*^9,
   3.513378425854171*^9}, {3.51337857547438*^9, 3.5133785987544127`*^9}, {
   3.5150252809040365`*^9, 3.5150252853722925`*^9}, {3.5151811966413474`*^9,
   3.515181199808153*^9}, {3.51519438221424*^9, 3.515194382634241*^9}, {
   3.54629853986502*^9, 3.5462985471050296`*^9}, {3.5462986427551637`*^9,
   3.5462986558151817`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, 3.497639786159789*^9, {3.5043963739063826`*^9,
   3.504396376326386*^9}, {3.504413073930699*^9, 3.5044130746907*^9}, {
   3.5098947021629305`*^9, 3.5098947030329323`*^9}, {3.51309431747268*^9,
   3.5130943178158803`*^9}, {3.513094997527874*^9, 3.5130949981778746`*^9}, {
   3.5133770949823074`*^9, 3.513377095502308*^9}, {3.5133782686539507`*^9,
   3.513378269123951*^9}, {3.51459648291432*^9, 3.514596484034322*^9}, {
   3.5151812028969584`*^9, 3.5151812036301594`*^9}, {3.5450661406012125`*^9,
   3.5450661413112135`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["x",
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}]]]}]}]}]}], "+",
  RowBox[{
   FractionBox["2",
    RowBox[{"d", " ",
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}]]}]],
   RowBox[{"ArcTan", "[",
    FractionBox[
     RowBox[{"b", " ",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{"a", "+",
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}]], "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.497921629705809*^9, 3.497922342845462*^9, 3.4980128262865524`*^9,
   3.5053446395437813`*^9, {3.5053446876538486`*^9, 3.505344713213885*^9},
   3.5053459961156807`*^9, 3.5098471285884285`*^9, 3.515167507293516*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"x", "/",
     RowBox[{"Rt", "[",
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "-",
        RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"2", "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"Rt", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "^", "2"}], "-",
           RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}], ")"}]}], "*",
     RowBox[{"ArcTan", "[",
      RowBox[{"b", "*",
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "/",
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"Rt", "[",
           RowBox[{
            RowBox[{
             RowBox[{"a", "^", "2"}], "-",
             RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}], "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", " ", "+", " ",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}]}], "]"}]}]}], " ",
   "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.497921629705809*^9, 3.497922290023769*^9,
   3.4980130216868258`*^9, {3.4980208106228065`*^9, 3.498020814366813*^9}, {
   3.4980626680522194`*^9, 3.4980626702362237`*^9}, {3.498062841914525*^9,
   3.49806284476933*^9}, 3.5053446395537815`*^9, {3.505344687663849*^9,
   3.5053447132238846`*^9}, 3.5053459995156856`*^9, 3.5098471414484463`*^9, {
   3.513398117248828*^9, 3.513398157216098*^9}, {3.54109669082347*^9,
   3.541096703334692*^9}, {3.5450597792933474`*^9, 3.545059780229349*^9},
   3.545065301200037*^9, 3.5462955776108723`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], ">", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, 3.5450606589788923`*^9, 3.5450607104589825`*^9, {
   3.5450610621772003`*^9, 3.545061062473601*^9}, 3.5454973682579875`*^9,
   3.545515802311757*^9, 3.546315488332637*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.551.3a, A&S 4.3.131a", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9}],

Cell["Reference: G&R 2.553.3a, A&S 4.3.133a", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, 3.497639786159789*^9, {3.5043963804663916`*^9,
   3.504396382116394*^9}, {3.5044130786807055`*^9, 3.5044130791307063`*^9}, {
   3.509893023890581*^9, 3.5098930241605816`*^9}, {3.509894710462942*^9,
   3.509894710792943*^9}, {3.513094321341487*^9, 3.5130943216066875`*^9}, {
   3.513094999937877*^9, 3.513095002687881*^9}, {3.513377098152312*^9,
   3.5133770986723127`*^9}, {3.51337850404428*^9, 3.5133785043542805`*^9}, {
   3.513378646324479*^9, 3.5133786471244802`*^9}, {3.514596520734373*^9,
   3.5145965210743732`*^9}, 3.515181227779002*^9, {3.545066144721218*^9,
   3.545066145381219*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox["2",
      RowBox[{"d", " ",
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}]]}]]}]}],
   RowBox[{"ArcTan", "[",
    FractionBox[
     RowBox[{"b", "+",
      RowBox[{"a", " ",
       RowBox[{"Tan", "[",
        RowBox[{
         FractionBox["1", "2"], " ",
         RowBox[{"(",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], ")"}]}], "]"}]}]}],
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}]]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.497921629705809*^9, 3.497922342845462*^9, 3.505344687683849*^9, {
   3.505346079315797*^9, 3.505346090775813*^9}, 3.509847143598449*^9,
   3.515167542223565*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{
     RowBox[{"ArcTan", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "-", "b"}], ")"}], "*",
       RowBox[{
        RowBox[{"Tan", "[",
         RowBox[{
          RowBox[{"(",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "/",
        RowBox[{"Rt", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "^", "2"}], "-",
           RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"PosQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.497921629705809*^9, 3.497922290023769*^9, {
   3.4980123935259466`*^9, 3.4980123977059526`*^9}, {3.498020817549219*^9,
   3.4980208202948236`*^9}, {3.5098926299200296`*^9,
   3.5098926316600323`*^9}, {3.509892811650284*^9, 3.509892811780284*^9}, {
   3.541096762599196*^9, 3.5410967787920246`*^9}, {3.5450599892697163`*^9,
   3.5450599947453256`*^9}, 3.5450653458700995`*^9, {3.5467368500652404`*^9,
   3.5467368557635665`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{
     RowBox[{"ArcTan", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "+",
         RowBox[{"a", "*",
          RowBox[{"Tan", "[",
           RowBox[{
            RowBox[{"(",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}]}]}], ")"}],
       "/",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ",", "2"}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"PosQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.497921629705809*^9, 3.497922290023769*^9, {
   3.4980123935259466`*^9, 3.4980123977059526`*^9}, {3.498020817549219*^9,
   3.4980208202948236`*^9}, 3.505344687693849*^9, {3.5053461149158473`*^9,
   3.5053461261058626`*^9}, 3.509847144988451*^9, {3.5450600136057587`*^9,
   3.5450600145573606`*^9}, 3.5462955776108723`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"\[Not]",
       RowBox[{"(",
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "2"], "-",
          SuperscriptBox["b", "2"]}], ">", "0"}], ")"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, 3.5450606610380955`*^9, 3.545060729428616*^9,
   3.5450609209813523`*^9, {3.545060951947407*^9, 3.545060952321808*^9},
   3.5454973441779537`*^9, 3.545515796981452*^9, 3.546315472905754*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.551.3b', A&S 4.3.131b'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9}],

Cell["Reference: G&R 2.553.3b', A&S 4.3.133b'", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4979223905815454`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"\[Not]",
   RowBox[{"(",
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], "-",
      SuperscriptBox["b", "2"]}], ">", "0"}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.5043963859263997`*^9, 3.504396387816402*^9}, {3.5044130826407113`*^9,
   3.504413083060712*^9}, {3.509893030860591*^9, 3.509893031120591*^9}, {
   3.5098947184829535`*^9, 3.509894718752954*^9}, {3.5130950087778893`*^9,
   3.51309500927789*^9}, {3.5133771015723166`*^9, 3.5133771022023177`*^9}, {
   3.513378507704285*^9, 3.5133785079842854`*^9}, {3.514596527664383*^9,
   3.5145965280543833`*^9}, 3.5151812308834076`*^9, {3.545066147711222*^9,
   3.545066148301223*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{"a", "+",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox["2",
       RowBox[{"d", " ",
        SqrtBox[
         RowBox[{
          SuperscriptBox["b", "2"], "-",
          SuperscriptBox["a", "2"]}]]}]]}]}]}],
   RowBox[{"ArcTanh", "[",
    FractionBox[
     RowBox[{"b", "+",
      RowBox[{"a", " ",
       RowBox[{"Tan", "[",
        RowBox[{
         FractionBox["1", "2"], " ",
         RowBox[{"(",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], ")"}]}], "]"}]}]}],
     SqrtBox[
      RowBox[{
       SuperscriptBox["b", "2"], "-",
       SuperscriptBox["a", "2"]}]]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, 3.497921629705809*^9, 3.4979224338404217`*^9,
   3.505344687703849*^9, {3.5053462036959715`*^9, 3.505346204905973*^9},
   3.509847146268453*^9, 3.5136162220309615`*^9, {3.514226290593773*^9,
   3.514226292138175*^9}, 3.515167558533588*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"ArcTanh", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "-", "b"}], ")"}], "*",
       RowBox[{
        RowBox[{"Tan", "[",
         RowBox[{
          RowBox[{"(",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "/",
        RowBox[{"Rt", "[",
         RowBox[{
          RowBox[{
           RowBox[{"b", "^", "2"}], "-",
           RowBox[{"a", "^", "2"}]}], ",", "2"}], "]"}]}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-",
          RowBox[{"a", "^", "2"}]}], ",", "2"}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NegQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497921629721409*^9,
   3.497922399317561*^9, {3.4980131795470467`*^9, 3.4980131835270524`*^9}, {
   3.4980154763502626`*^9, 3.498015479210266*^9}, {3.509892709560141*^9,
   3.509892711770144*^9}, {3.5098928069102774`*^9, 3.509892807060278*^9}, {
   3.5450601208403473`*^9, 3.545060125426755*^9}, {3.546736924256484*^9,
   3.5467369323159447`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"ArcTanh", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "+",
         RowBox[{"a", "*",
          RowBox[{"Tan", "[",
           RowBox[{
            RowBox[{"(",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}]}]}], ")"}],
       "/",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-",
          RowBox[{"a", "^", "2"}]}], ",", "2"}], "]"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{
          RowBox[{"b", "^", "2"}], "-",
          RowBox[{"a", "^", "2"}]}], ",", "2"}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NegQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497921629721409*^9,
   3.497922399317561*^9, {3.4980131795470467`*^9, 3.4980131835270524`*^9}, {
   3.4980154763502626`*^9, 3.498015479210266*^9}, 3.5053446877238493`*^9, {
   3.505346235096015*^9, 3.5053462441360283`*^9}, 3.509847147538455*^9, {
   3.545060166392427*^9, 3.5450601679212294`*^9}, 3.5462955776208725`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663345114837`*^9, 3.545066334651484*^9}, 3.545497349207961*^9, {
   3.5455060863601933`*^9, 3.5455060922202015`*^9}, {3.5455063729305944`*^9,
   3.5455063731005945`*^9}, {3.5455157780793705`*^9, 3.545515783781697*^9}, {
   3.5462992775760527`*^9, 3.5462992873360662`*^9}, {3.5462993989062223`*^9,
   3.5462994041562295`*^9}, 3.546299445946288*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663345114837`*^9, 3.545066334651484*^9}, 3.545497349207961*^9, {
   3.5455060863601933`*^9, 3.5455060922202015`*^9}, {3.5455063729305944`*^9,
   3.5455063731005945`*^9}, {3.5455157780793705`*^9, 3.545515783781697*^9}, {
   3.5462992775760527`*^9, 3.5462992873360662`*^9}, {3.5462993989062223`*^9,
   3.5462994041562295`*^9}, 3.546299445946288*^9, {3.546707186625992*^9,
   3.5467071895701604`*^9}, 3.5467073787109785`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663345114837`*^9, 3.545066334651484*^9}, 3.545497349207961*^9, {
   3.5455060863601933`*^9, 3.5455060922202015`*^9}, {3.5455063729305944`*^9,
   3.5455063731005945`*^9}, {3.5455157780793705`*^9, 3.545515783781697*^9}, {
   3.5462992775760527`*^9, 3.5462992873360662`*^9}, {3.5462993989062223`*^9,
   3.5462994041562295`*^9}, 3.546299445946288*^9, {3.546707186625992*^9,
   3.5467071895701604`*^9}, {3.5467073787109785`*^9, 3.5467074080986595`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5450647701792936`*^9,
   3.5454973500579624`*^9, 3.545506094250204*^9, 3.5455158087971277`*^9, {
   3.546315535897357*^9, 3.5463155557754946`*^9}, 3.546707200966812*^9, {
   3.546707250536648*^9, 3.546707259091137*^9}, 3.5467073886095448`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for ",
 Cell[BoxData[
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
    3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
    3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
    3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
    3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
    3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
    3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
    3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
    3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
    3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
    3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
    3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
    3.5194134927764077`*^9}, {3.5194141847624226`*^9,
    3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
    3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
    3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
    3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
    3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
    3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
    3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
    3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
    3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
    3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
    3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
    3.5328460582169604`*^9, {3.5328745920833416`*^9,
    3.5328746294142075`*^9}, {3.532875067275776*^9, 3.532875067650177*^9}, {
    3.532875139909504*^9, 3.532875150829523*^9}, {3.537656121233163*^9,
    3.537656121443164*^9}, 3.540263906712819*^9, {3.5402639787229204`*^9,
    3.5402639788829203`*^9}, {3.540319178473138*^9, 3.5403191846574917`*^9}, {
    3.540319223359705*^9, 3.5403192458899937`*^9}, {3.5403196532852955`*^9,
    3.5403196542853527`*^9}, {3.5404234472634363`*^9,
    3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
    3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
    3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
    3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
    3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
    3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
    3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
    3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
    3.546705921295619*^9}, 3.5467059830511513`*^9, 3.546706158641195*^9},
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9, 3.4980156457105*^9, {
   3.4980207183018446`*^9, 3.498020768767933*^9}, 3.498059955917454*^9, {
   3.4980603297565107`*^9, 3.4980603534217525`*^9}, {3.4980604729647627`*^9,
   3.4980604821687784`*^9}, {3.498062467701068*^9, 3.4980625074811373`*^9}, {
   3.498062720437112*^9, 3.49806273658314*^9}, {3.498062866812169*^9,
   3.4980628951574183`*^9}, {3.513377847463361*^9, 3.51337785408337*^9}, {
   3.513378298423992*^9, 3.513378308944007*^9}, {3.5133783881541176`*^9,
   3.513378425854171*^9}, {3.51337857547438*^9, 3.5133785987544127`*^9}, {
   3.513378680544527*^9, 3.5133787029645586`*^9}, {3.513378780694667*^9,
   3.5133787854946737`*^9}, {3.5134525742622547`*^9, 3.513452574812256*^9}, {
   3.5134526934224215`*^9, 3.513452694252423*^9}, {3.5134527406824875`*^9,
   3.5134527409424877`*^9}, {3.515190691093055*^9, 3.5151906945130596`*^9}, {
   3.5463165044197536`*^9, 3.54631653862671*^9}, {3.5467067398964405`*^9,
   3.5467067649068713`*^9}, {3.5467068402471805`*^9,
   3.5467068402471805`*^9}, {3.546707511830593*^9, 3.546707511830593*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, 3.4976400387242327`*^9, {
   3.504490585426359*^9, 3.5044905863663607`*^9}, {3.5046319134167933`*^9,
   3.504631913666794*^9}, {3.5134526721023912`*^9, 3.5134526728323927`*^9},
   3.5136155063017044`*^9, {3.5462991911259313`*^9, 3.546299192365933*^9}, {
   3.546299343046144*^9, 3.546299343646145*^9}, 3.546707269914756*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"a", " ",
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox["2",
      RowBox[{"d", " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"a", " ",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}],
   RowBox[{"Cos", "[",
    FractionBox[
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "2"], "]"}],
   RowBox[{"ArcTanh", "[",
    RowBox[{"Sin", "[",
     FractionBox[
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "2"], "]"}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9},
   3.4976400727478924`*^9, {3.497921614589382*^9, 3.497921644806636*^9},
   3.4979232754930997`*^9, {3.499129231529621*^9, 3.4991292377396297`*^9}, {
   3.500665326343998*^9, 3.5006653286340013`*^9}, 3.513376911742051*^9, {
   3.515181974176713*^9, 3.5151819769691176`*^9}, {3.546707272405898*^9,
   3.54670727383298*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"a", "*",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"Cos", "[",
     RowBox[{
      RowBox[{"(",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{"Sin", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "]"}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "-", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9,
   3.4976400203630004`*^9, {3.497921614589382*^9, 3.497921644806636*^9},
   3.4979232490822535`*^9, {3.499129515580019*^9, 3.4991295254700327`*^9}, {
   3.5133788447747574`*^9, 3.5133788449447575`*^9}, 3.5133790045949807`*^9,
   3.5410888914397783`*^9, 3.541088948223878*^9, {3.5463015109491787`*^9,
   3.5463015167491875`*^9}, {3.546707279101281*^9, 3.5467072816874294`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "-",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5450647701792936`*^9,
   3.5454973500579624`*^9, 3.545506094250204*^9, 3.5455158087971277`*^9, {
   3.546315535897357*^9, 3.5463155557754946`*^9}, 3.546707200966812*^9, {
   3.546707250536648*^9, 3.546707259091137*^9}, {3.546707334627457*^9,
   3.5467073416338577`*^9}, 3.5467073871844635`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for ",
 Cell[BoxData[
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
    3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
    3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
    3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
    3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
    3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
    3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
    3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
    3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
    3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
    3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
    3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
    3.5194134927764077`*^9}, {3.5194141847624226`*^9,
    3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
    3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
    3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
    3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
    3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
    3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
    3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
    3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
    3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
    3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
    3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
    3.5328460582169604`*^9, {3.5328745920833416`*^9,
    3.5328746294142075`*^9}, {3.532875067275776*^9, 3.532875067650177*^9}, {
    3.532875139909504*^9, 3.532875150829523*^9}, {3.537656121233163*^9,
    3.537656121443164*^9}, 3.540263906712819*^9, {3.5402639787229204`*^9,
    3.5402639788829203`*^9}, {3.540319178473138*^9, 3.5403191846574917`*^9}, {
    3.540319223359705*^9, 3.5403192458899937`*^9}, {3.5403196532852955`*^9,
    3.5403196542853527`*^9}, {3.5404234472634363`*^9,
    3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
    3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
    3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
    3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
    3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
    3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
    3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
    3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
    3.546705921295619*^9}, 3.5467059830511513`*^9, 3.546706158641195*^9},
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9, 3.4980156457105*^9, {
   3.4980207183018446`*^9, 3.498020768767933*^9}, 3.498059955917454*^9, {
   3.4980603297565107`*^9, 3.4980603534217525`*^9}, {3.4980604729647627`*^9,
   3.4980604821687784`*^9}, {3.498062467701068*^9, 3.4980625074811373`*^9}, {
   3.498062720437112*^9, 3.49806273658314*^9}, {3.498062866812169*^9,
   3.4980628951574183`*^9}, {3.513377847463361*^9, 3.51337785408337*^9}, {
   3.513378298423992*^9, 3.513378308944007*^9}, {3.5133783881541176`*^9,
   3.513378425854171*^9}, {3.51337857547438*^9, 3.5133785987544127`*^9}, {
   3.513378680544527*^9, 3.5133787029645586`*^9}, {3.513378780694667*^9,
   3.5133787854946737`*^9}, {3.5134525742622547`*^9, 3.513452574812256*^9}, {
   3.5134526934224215`*^9, 3.513452694252423*^9}, {3.5134527406824875`*^9,
   3.5134527409424877`*^9}, {3.515190691093055*^9, 3.5151906945130596`*^9}, {
   3.5463165044197536`*^9, 3.54631653862671*^9}, {3.5467067398964405`*^9,
   3.5467067649068713`*^9}, {3.5467068402471805`*^9,
   3.5467068402471805`*^9}, {3.546707511830593*^9, 3.546707511830593*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, {3.5044905820363545`*^9,
   3.5044905832563562`*^9}, {3.5046319107667894`*^9, 3.50463191104679*^9}, {
   3.5134526749623957`*^9, 3.5134526756323967`*^9}, {3.5136155083453083`*^9,
   3.5136155091721096`*^9}, {3.5462991977359405`*^9,
   3.5462991977359405`*^9}, {3.546299346206148*^9, 3.5462993467661495`*^9},
   3.546707289655885*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"a", "-",
      RowBox[{"a", " ",
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox["2",
       RowBox[{"d", " ",
        SqrtBox[
         RowBox[{"a", "-",
          RowBox[{"a", " ",
           RowBox[{"Cos", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}]}],
   RowBox[{"Sin", "[",
    FractionBox[
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "2"], "]"}],
   RowBox[{"ArcTanh", "[",
    RowBox[{"Cos", "[",
     FractionBox[
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "2"], "]"}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, {3.500665322063992*^9,
   3.500665324003995*^9}, {3.5133769023520374`*^9, 3.513376918972061*^9}, {
   3.5151819816179256`*^9, 3.5151819844727306`*^9}, {3.5467072915219917`*^9,
   3.546707304122712*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "-",
         RowBox[{"a", "*",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"Sin", "[",
     RowBox[{
      RowBox[{"(",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{"Cos", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "]"}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.51337883965475*^9,
   3.5133788398447504`*^9}, 3.513379001864977*^9, 3.541088893764182*^9,
   3.5410889501894817`*^9, 3.5463015267292013`*^9, {3.546707309100997*^9,
   3.546707313713261*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5450647701792936`*^9,
   3.5454973500579624`*^9, 3.545506094250204*^9, 3.5455158087971277`*^9, {
   3.546315535897357*^9, 3.5463155557754946`*^9}, {3.546707200966812*^9,
   3.5467072165997066`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, {3.5007815669041595`*^9,
   3.5007815669041595`*^9}, {3.5053561754188757`*^9, 3.505356175858876*^9},
   3.5133768939620256`*^9, 3.5136155132749166`*^9, {3.546299199625943*^9,
   3.546299199625943*^9}, {3.5462993491061525`*^9, 3.546299349706153*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox["2",
      RowBox[{"d", " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}],
   RowBox[{"Cos", "[",
    RowBox[{
     FractionBox[
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "2"], "-",
     FractionBox[
      RowBox[{"\[Pi]", " ", "b"}],
      RowBox[{"4", "a"}]]}], "]"}],
   RowBox[{"ArcTanh", "[",
    RowBox[{"Sin", "[",
     RowBox[{
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"], "-",
      FractionBox[
       RowBox[{"\[Pi]", " ", "b"}],
       RowBox[{"4", "a"}]]}], "]"}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.4991295982501345`*^9, 3.4991296038701425`*^9}, {3.5007806832629223`*^9,
   3.500780689482931*^9}, 3.500781551604138*^9, 3.500781748904414*^9, {
   3.5133769959521685`*^9, 3.5133769962021694`*^9}, 3.5151818902173653`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"Cos", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
      RowBox[{"Pi", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"4", "*", "a"}], ")"}]}]}]}], "]"}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{"Sin", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
       RowBox[{"Pi", "*",
        RowBox[{"b", "/",
         RowBox[{"(",
          RowBox[{"4", "*", "a"}], ")"}]}]}]}], "]"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.499129642150196*^9, 3.4991296506002073`*^9}, {3.5007807265629826`*^9,
   3.500780730282988*^9}, {3.5007815769341736`*^9, 3.5007816235942388`*^9}, {
   3.5007817605844307`*^9, 3.5007817609944315`*^9}, {3.5007817924544754`*^9,
   3.5007818323945312`*^9}, {3.5133788478747616`*^9, 3.5133788480347614`*^9},
   3.541088895838986*^9, 3.541088953403087*^9, 3.546301535239213*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9}, {
   3.5450663345114837`*^9, 3.545066334651484*^9}, 3.545497349207961*^9, {
   3.5455060863601933`*^9, 3.5455060922202015`*^9}, {3.5455063729305944`*^9,
   3.5455063731005945`*^9}, {3.5455157780793705`*^9, 3.545515783781697*^9},
   3.5463155060526505`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"a", "+", "b"}], ">", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9},
   3.5450645300089574`*^9, 3.545064588069039*^9, 3.5450647701792936`*^9,
   3.5454973500579624`*^9, 3.545506094250204*^9, 3.5455158087971277`*^9,
   3.546315535897357*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    RowBox[{"EllipticF", "[",
     RowBox[{"x", ",", "n"}], "]"}]}], "=",
   FractionBox["1",
    SqrtBox[
     RowBox[{"1", "-",
      RowBox[{"n", " ",
       SuperscriptBox[
        RowBox[{"Sin", "[", "x", "]"}], "2"]}]}]]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, {3.497921629815009*^9, 3.497921629815009*^9}, {
   3.49792329284033*^9, 3.4979232943847327`*^9}, {3.5053446395937815`*^9,
   3.5053446395937815`*^9}, {3.505344713233885*^9, 3.505344713233885*^9}, {
   3.505346510696401*^9, 3.505346510696401*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"1", "-",
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]],
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{
        FractionBox[
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "2"], "-",
        FractionBox["\[Pi]", "4"]}], "]"}], "2"]}]}], "=",
   RowBox[{
    FractionBox["a",
     RowBox[{"a", "+", "b"}]], "+",
    FractionBox[
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{"a", "+", "b"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.497582725161008*^9, 3.497582728721012*^9},
   3.497582802891116*^9, {3.509893685281507*^9, 3.509893685281507*^9}, {
   3.5151264190002117`*^9, 3.5151264190002117`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"a", "+", "b"}], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4982408987437143`*^9, 3.4982408987437143`*^9}, {3.5043962464162045`*^9,
   3.5043962850762587`*^9}, {3.504413252610949*^9, 3.5044132530909495`*^9}, {
   3.504413301361017*^9, 3.5044133020910187`*^9}, {3.508348863976375*^9,
   3.508348864916376*^9}, {3.5130950594779606`*^9, 3.513095060387962*^9}, {
   3.5133771350223637`*^9, 3.513377135282364*^9}, {3.5145979411963615`*^9,
   3.5145979414963617`*^9}, {3.5145980318864884`*^9, 3.514598032216489*^9}, {
   3.5151812964647226`*^9, 3.515181297213524*^9}, {3.545066161781242*^9,
   3.545066162341243*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox["2",
       RowBox[{"d", " ",
        SqrtBox[
         RowBox[{"a", "+", "b"}]]}]]}]}]}],
   RowBox[{"EllipticF", "[",
    RowBox[{
     RowBox[{
      FractionBox["\[Pi]", "4"], "-",
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"]}], ",",
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9,
   3.500665314513982*^9, 3.505344687743849*^9, 3.5053463635561953`*^9,
   3.5098471859085083`*^9, 3.50989404465201*^9, 3.515126412682201*^9,
   3.515167635823696*^9, {3.5157110639834633`*^9, 3.5157110666978683`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+", "b"}], "]"}]}], ")"}]}], "*",
    RowBox[{"EllipticF", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, 3.505344687753849*^9,
   3.5053463733062086`*^9, {3.5054092959542894`*^9, 3.5054093016142974`*^9}, {
   3.507431779004877*^9, 3.507431782924883*^9}, 3.5098471877485113`*^9,
   3.50989405898203*^9, 3.5118053931194*^9, 3.514177466743102*^9, {
   3.5151264479070625`*^9, 3.5151264611670856`*^9}, {3.515689278376487*^9,
   3.5156892815064907`*^9}, {3.5410968967282314`*^9, 3.541096919909872*^9}, {
   3.5450648402393913`*^9, 3.5450648659894276`*^9}, {3.5467380582103424`*^9,
   3.5467380649077253`*^9}, 3.5473431905210752`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+", "b"}], "]"}]}], ")"}]}], "*",
    RowBox[{"EllipticF", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Pi", "/", "4"}], "-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}]}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, 3.505344687753849*^9,
   3.5053463733062086`*^9, {3.5054092959542894`*^9, 3.5054093016142974`*^9}, {
   3.507431779004877*^9, 3.507431782924883*^9}, 3.5098471877485113`*^9,
   3.50989405898203*^9, 3.5118053931194*^9, 3.514177466743102*^9,
   3.515126438125846*^9, {3.515689285906497*^9, 3.515689289336502*^9}, {
   3.515711071877077*^9, 3.515711081892295*^9}, {3.541096900129038*^9,
   3.541096928193487*^9}, {3.545064796859331*^9, 3.5450647972893314`*^9},
   3.5450648301393776`*^9, 3.5462955776308727`*^9, 3.5462972093731565`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"\[Not]",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.545064721589226*^9,
   3.5454973509079638`*^9, 3.5455060961302066`*^9, 3.545515809524169*^9,
   3.546315537184431*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    FractionBox[
     SqrtBox[
      FractionBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"f", "[", "z", "]"}]}]}],
       RowBox[{"a", "+", "b"}]]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "z", "]"}]}]}]]]}], "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.508354612514423*^9,
   3.508354612514423*^9}}],

Cell[TextData[{
 "Note: Since ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["a",
     RowBox[{"a", "+", "b"}]], "+",
    FractionBox["b",
     RowBox[{"a", "+", "b"}]]}], "=",
   RowBox[{"1", ">", "0"}]}]]],
 ", rule f1 applies to the resulting integrand."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.497582428440592*^9,
   3.4975824695406494`*^9}, 3.4975829172612762`*^9, 3.497921629815009*^9, {
   3.4991291005894375`*^9, 3.4991291026694403`*^9}, {3.5067957135723715`*^9,
   3.5067957287842445`*^9}, {3.51417741964662*^9, 3.5141774204266214`*^9}, {
   3.515025892968045*^9, 3.5150258957342033`*^9}, {3.515194478564375*^9,
   3.5151944789643755`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"\[Not]",
    RowBox[{"(",
     RowBox[{
      RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4976405001418433`*^9, 3.497640503464649*^9}, {3.4982409098137293`*^9,
   3.4982409098137293`*^9}, {3.5043962887062635`*^9, 3.504396290556266*^9}, {
   3.5044132557009535`*^9, 3.5044132561509542`*^9}, {3.5044133044510217`*^9,
   3.504413305251023*^9}, {3.508348868626382*^9, 3.5083488694363823`*^9}, {
   3.5130950627779655`*^9, 3.5130950644079676`*^9}, {3.5133771393823695`*^9,
   3.51337713965237*^9}, {3.5145979469663696`*^9, 3.51459794723637*^9}, {
   3.5145980356764936`*^9, 3.514598035906494*^9}, {3.5151813011915307`*^9,
   3.5151813014255314`*^9}, {3.5450661638212447`*^9, 3.545066164471246*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox[
       RowBox[{
        FractionBox["a",
         RowBox[{"a", "+", "b"}]], "+",
        RowBox[{
         FractionBox["b",
          RowBox[{"a", "+", "b"}]],
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{
        FractionBox["a",
         RowBox[{"a", "+", "b"}]], "+",
        RowBox[{
         FractionBox["b",
          RowBox[{"a", "+", "b"}]],
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.4976403449059706`*^9, {3.4976403873536453`*^9, 3.4976403923456535`*^9}, {
   3.497921629815009*^9, 3.4979216298306093`*^9}, {3.5053446877738495`*^9,
   3.5053446877738495`*^9}, {3.509847190318515*^9, 3.509847192628518*^9},
   3.5118044003020062`*^9, {3.515167642193705*^9, 3.515167644383708*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a", "+",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"1", "/",
       RowBox[{"Sqrt", "[",
        RowBox[{
         RowBox[{"a", "/",
          RowBox[{"(",
           RowBox[{"a", "+", "b"}], ")"}]}], "+",
         RowBox[{
          RowBox[{"b", "/",
           RowBox[{"(",
            RowBox[{"a", "+", "b"}], ")"}]}], "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
     "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"PositiveQ", "[",
      RowBox[{"a", "+", "b"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.4976403184795237`*^9, {3.4979216298306093`*^9, 3.4979216298306093`*^9},
   3.4979234149105444`*^9, {3.505344687793849*^9, 3.505344687793849*^9}, {
   3.5098471944485207`*^9, 3.5098471966885233`*^9}, 3.511805396469404*^9,
   3.514177472234312*^9, {3.541097720378478*^9, 3.541097730799296*^9}, {
   3.545064662019142*^9, 3.545064680279168*^9}, 3.5462955776408725`*^9,
   3.54629721171316*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, 3.5450136030448647`*^9, {
   3.5450136641657715`*^9, 3.545013664399772*^9}, 3.5450137702459583`*^9, {
   3.5450606413352613`*^9, 3.5450606506328773`*^9}, {3.545064522708947*^9,
   3.5450645492289844`*^9}, {3.545064583839033*^9, 3.5450645840990334`*^9},
   3.5450660285410557`*^9, {3.5450660990311537`*^9, 3.5450661016011577`*^9}, {
   3.545066337891488*^9, 3.545066338141489*^9}, 3.545497351757964*^9,
   3.545505795729786*^9, {3.5455059918600607`*^9, 3.5455059920500607`*^9}, {
   3.5455158779400826`*^9, 3.5455158779400826`*^9}, {3.5462949534499984`*^9,
   3.5462949534499984`*^9}, {3.5462949860700445`*^9,
   3.5462949906100507`*^9}, {3.546295614880924*^9, 3.546295615080925*^9}, {
   3.5462973612333694`*^9, 3.5462973695733814`*^9}, {3.5462994976863604`*^9,
   3.546299523796397*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9},
   3.545496835607242*^9, {3.545505444879295*^9, 3.545505445119295*^9}, {
   3.545505639229567*^9, 3.5455056444395742`*^9}, {3.5455068311112356`*^9,
   3.5455068403012486`*^9}, {3.5455157795484548`*^9, 3.545515785354787*^9}, {
   3.545604160836763*^9, 3.5456041610407743`*^9}, {3.546299449516293*^9,
   3.5462994497762938`*^9}, {3.5462995291664047`*^9, 3.5462995755064697`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.555.?", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976406080004325`*^9,
   3.4976407686675158`*^9, {3.4976412761676073`*^9, 3.497641276370407*^9}, {
   3.4976413811245914`*^9, 3.4976414279246736`*^9}, 3.4976415918497615`*^9, {
   3.497924019318006*^9, 3.4979240196144066`*^9}, {3.498241234894184*^9,
   3.4982412543042116`*^9}, 3.504589662077794*^9, {3.5165796831181164`*^9,
   3.5165797012081413`*^9}}],

Cell[TextData[{
 "Derivation: Rule 1b with ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9,
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9,
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9,
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9,
   3.5017328811347513`*^9}, {3.5017335581083407`*^9,
   3.5017335953768063`*^9}, {3.501733875319298*^9, 3.501733886769718*^9},
   3.5087868231739407`*^9, {3.513883533542144*^9, 3.5138835815022106`*^9}, {
   3.5138838785526266`*^9, 3.513883898882655*^9}, {3.5138844660034494`*^9,
   3.51388446672345*^9}, {3.51657805700584*^9, 3.516578065425852*^9}, {
   3.5463000896571894`*^9, 3.5463000896571894`*^9}, {3.5467260552482157`*^9,
   3.5467260558792515`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9},
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9},
   3.4982412736942387`*^9, {3.503449288357001*^9, 3.5034492910090055`*^9}, {
   3.504589596062498*^9, 3.504589602782508*^9}, {3.5045900841715984`*^9,
   3.504590086031601*^9}, {3.5136180641471853`*^9, 3.5136180649371867`*^9}, {
   3.514145465634817*^9, 3.514145465634817*^9}, 3.516578098155897*^9, {
   3.516579786628261*^9, 3.516579787068262*^9}, {3.5165799465484853`*^9,
   3.5165799470384855`*^9}, 3.5165802572589197`*^9, {3.5462999861270447`*^9,
   3.5462999861270447`*^9}, {3.5463000969872*^9, 3.5463001089872165`*^9}, {
   3.5463174081184425`*^9, 3.546317408568468*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"b", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
       RowBox[{"a", " ", "d", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "1"}],
    RowBox[{"a", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, 3.497640636985284*^9, {3.49764069135378*^9,
   3.4976406986701927`*^9}, {3.497640801957974*^9, 3.497640818119602*^9}, {
   3.4976415480136843`*^9, 3.497641558013302*^9}, {3.4976416100549936`*^9,
   3.4976416105853944`*^9}, {3.4979216146205826`*^9, 3.4979216448222356`*^9},
   3.4979239295710487`*^9, {3.5053551461074343`*^9, 3.5053551625774574`*^9},
   3.5053551976175065`*^9, 3.5053628749424677`*^9, {3.5133794606456194`*^9,
   3.5133794610156198`*^9}, 3.513379498895673*^9, {3.5151820312260127`*^9,
   3.515182034798419*^9}, {3.5165776638252892`*^9, 3.5165776818253145`*^9}, {
   3.516577719195367*^9, 3.516577782755456*^9}, 3.516577813575499*^9, {
   3.54630011842723*^9, 3.546300137437256*^9}, {3.548010088610395*^9,
   3.548010088850395*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"a", "*", "d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    "\n", "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"n", "+", "1"}], ")"}], "/",
      RowBox[{"(",
       RowBox[{"a", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976406000756187`*^9,
   3.4976407755003276`*^9, {3.497641256215172*^9, 3.4976412598187785`*^9},
   3.4976414964243937`*^9, {3.4979216146205826`*^9, 3.4979216448378353`*^9},
   3.497923923643038*^9, {3.4982412812142496`*^9, 3.4982412833342524`*^9}, {
   3.5023216899473925`*^9, 3.502321690259393*^9}, {3.5045895838424816`*^9,
   3.5045895881124873`*^9}, {3.5053551461274347`*^9, 3.5053551625874577`*^9},
   3.5053551976375065`*^9, 3.505362881322477*^9, {3.513379488585658*^9,
   3.513379494735667*^9}, 3.514145459054808*^9, {3.5410884317069707`*^9,
   3.5410884457625957`*^9}, 3.5455832533222075`*^9, {3.5462999989370623`*^9,
   3.5463000005470643`*^9}, {3.54630147593913*^9, 3.5463014785491333`*^9},
   3.5463015431992245`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9},
   3.545496835607242*^9, {3.545505444879295*^9, 3.545505445119295*^9}, {
   3.545505639229567*^9, 3.5455056444395742`*^9}, {3.5455068311112356`*^9,
   3.5455068403012486`*^9}, {3.5455157795484548`*^9, 3.545515785354787*^9}, {
   3.545604160836763*^9, 3.5456041610407743`*^9}, {3.546299449516293*^9,
   3.5462994497762938`*^9}, {3.5462995291664047`*^9, 3.5462995620464506`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.552.3", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976406080004325`*^9,
   3.4976407686675158`*^9, {3.4976412761676073`*^9, 3.497641276370407*^9}, {
   3.4976413811245914`*^9, 3.4976414279246736`*^9}, 3.4976415918497615`*^9,
   3.4976416712695007`*^9, 3.497641808362542*^9, 3.49764211453668*^9, {
   3.497924167175066*^9, 3.4979241674870663`*^9}, {3.5053542426761694`*^9,
   3.50535424295617*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 1 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 ", and ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.502990148351678*^9, 3.5029901655429077`*^9},
   3.505345087524409*^9, 3.512064342062512*^9, {3.5454307013060207`*^9,
   3.545430711346035*^9}, {3.54550558430949*^9, 3.5455056165795355`*^9}, {
   3.548010098040408*^9, 3.548010098790409*^9}, {3.5480103078507023`*^9,
   3.548010308550703*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9},
   3.4976407280762444`*^9, {3.497641501151202*^9, 3.4976415155344276`*^9}, {
   3.497641730440405*^9, 3.4976417406740227`*^9}, {3.497641822620967*^9,
   3.4976418815034714`*^9}, {3.498241427414454*^9, 3.498241427414454*^9}, {
   3.504395896295714*^9, 3.50439590067572*^9}, 3.5044706093797717`*^9,
   3.5044710537703934`*^9, {3.5044821550764217`*^9, 3.504482155386422*^9}, {
   3.504988576070773*^9, 3.5049885764507737`*^9}, {3.506213896034247*^9,
   3.5062138967830486`*^9}, {3.5062141332678576`*^9,
   3.5062141507378817`*^9}, {3.5105084879028864`*^9, 3.510508488090087*^9}, {
   3.5130944226480646`*^9, 3.5130944467345066`*^9}, 3.51309510891803*^9,
   3.514147239737301*^9, {3.514487372506321*^9, 3.5144873727363214`*^9}, {
   3.5165576820821433`*^9, 3.5165576820821433`*^9}, {3.5165582083062663`*^9,
   3.5165582086338673`*^9}, 3.5165908254196434`*^9, {3.5454161012016726`*^9,
   3.5454161012016726`*^9}, {3.545430104665186*^9, 3.545430105025186*^9}, {
   3.545505660519597*^9, 3.545505660519597*^9}, {3.5462996004865046`*^9,
   3.5462996004865046`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "+", "1"}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}], " ",
         RowBox[{"(",
          RowBox[{
           SuperscriptBox["a", "2"], "-",
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}],
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], "-",
       RowBox[{"b", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "2"}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.509829149023255*^9, 3.5098292074833364`*^9}, {
   3.510174642911626*^9, 3.51017464554803*^9}, {3.5101749019344807`*^9,
   3.5101749115128975`*^9}, {3.5151682059644947`*^9,
   3.5151682096244993`*^9}, {3.5165572858550477`*^9,
   3.5165572982414694`*^9}, {3.5165573471007557`*^9, 3.51655734967476*^9}, {
   3.5165574453897276`*^9, 3.5165574940930133`*^9}, {3.516557561453932*^9,
   3.5165575717343493`*^9}, {3.516557624244042*^9, 3.5165576267244463`*^9}, {
   3.545505496799368*^9, 3.545505530739415*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}]}], "-",
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "2"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976406000756187`*^9,
   3.4976407755003276`*^9, {3.497641256215172*^9, 3.4976412598187785`*^9},
   3.4976414964243937`*^9, 3.4976416664178925`*^9, 3.497641799704527*^9, {
   3.497641972467231*^9, 3.497641974682435*^9}, 3.497642107953469*^9, {
   3.4976421580451565`*^9, 3.49764215997956*^9}, {3.4979216146361823`*^9,
   3.4979216448378353`*^9}, 3.4979241751310797`*^9, {3.4979242573432245`*^9,
   3.497924266984041*^9}, {3.498241439764471*^9, 3.4982414602545*^9}, {
   3.5031146206925497`*^9, 3.503114629912166*^9}, {3.5031577379184756`*^9,
   3.5031577418808823`*^9}, {3.503158883390085*^9, 3.503158888428894*^9},
   3.5053446400137825`*^9, {3.5053446892738514`*^9, 3.505344713643885*^9},
   3.505345556345065*^9, 3.508439139200802*^9, {3.5098475120089655`*^9,
   3.5098475136889677`*^9}, 3.5114592311065884`*^9, 3.5118056919098177`*^9,
   3.5141779771176*^9, 3.5145876116205716`*^9, 3.516558062505211*^9,
   3.541090517116233*^9, 3.541090638890046*^9, {3.541090866307246*^9,
   3.5410908672432475`*^9}, {3.54109091423053*^9, 3.541090921406543*^9}, {
   3.545491210931056*^9, 3.545491210931056*^9}, {3.545505469249329*^9,
   3.54550547733934*^9}, {3.545505677859621*^9, 3.5455056788096223`*^9},
   3.546295577650872*^9, {3.5462996044465103`*^9, 3.5462996056165113`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.5456047607340746`*^9, 3.545604778867112*^9}, {
   3.546301969769821*^9, 3.546302015009885*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.5012692292076674`*^9, 3.5012692361876774`*^9}, {3.503000515888104*^9,
   3.503000515888104*^9}, {3.5030010047587886`*^9, 3.503001015708804*^9}, {
   3.503001063418871*^9, 3.503001064418872*^9}, {3.504243197472898*^9,
   3.5042431987328997`*^9}, {3.5044146979829726`*^9, 3.5044146985729733`*^9},
   3.504482472366866*^9, 3.505193456354334*^9, 3.509828539372401*^9, {
   3.5101745056313844`*^9, 3.5101745056313844`*^9}, {3.5101794376000943`*^9,
   3.510179438036895*^9}, {3.511720227183525*^9, 3.511720227183525*^9}, {
   3.545417174155957*^9, 3.545417174155957*^9}, {3.5454188726401405`*^9,
   3.5454188726401405`*^9}, {3.545419213188739*^9, 3.545419215887543*^9}, {
   3.5454200243439665`*^9, 3.5454200243439665`*^9}, {3.5456047933699417`*^9,
   3.5456047936379566`*^9}, 3.54630199731986*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"\[Integral]",
      RowBox[{
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5454191112425594`*^9,
   3.545419113769764*^9}, {3.5456047972231617`*^9, 3.545604800429345*^9}, {
   3.5463019720298243`*^9, 3.5463019738898273`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_.", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"Defer", "[", "Int", "]"}], "[",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",",
     "x"}], "]"}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",",
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9,
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9,
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9,
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9},
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9,
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9,
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9},
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9,
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9,
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9,
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9},
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9,
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9},
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9,
   3.5454189017497916`*^9}, {3.545419127232588*^9, 3.54541915136583*^9},
   3.545419192393902*^9, {3.5454192425703907`*^9, 3.545419243584392*^9}, {
   3.54542002674397*^9, 3.545420034433981*^9}, {3.5454210176773586`*^9,
   3.545421021277364*^9}, {3.5454217048903217`*^9, 3.5454217071303253`*^9}, {
   3.5454217644704056`*^9, 3.5454217689004116`*^9}, {3.5455309252556715`*^9,
   3.5455309319756804`*^9}, {3.5455950324942245`*^9,
   3.5455950354242287`*^9}, {3.5456048055556383`*^9, 3.545604816504265*^9}, {
   3.546301980249836*^9, 3.5463019897698493`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, {3.5463150330395956`*^9, 3.546315033228606*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, 3.5454965509668436`*^9, 3.545496757657133*^9,
   3.545496990437459*^9, {3.546125024823584*^9, 3.546125025683585*^9},
   3.546125194843822*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5144736871714077`*^9, 3.5144736908686147`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox["1",
      SuperscriptBox["b", "m"]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
      RowBox[{"m", "+", "n"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038127194681015`*^9, 3.503812750902157*^9}, {3.503812801680246*^9,
   3.503812802335447*^9}, {3.5047496671454835`*^9, 3.504749688715514*^9}, {
   3.504749718855556*^9, 3.50474975738561*^9}, {3.5047638556975985`*^9,
   3.504763901217663*^9}, {3.508036862352049*^9, 3.5080368741144695`*^9}, {
   3.5080369099321327`*^9, 3.5080369437529917`*^9}, {3.5080372899175997`*^9,
   3.5080373156732454`*^9}, {3.5105229603279085`*^9, 3.510522986598355*^9}, {
   3.51052302367962*^9, 3.5105231196509886`*^9}, {3.510523163455866*^9,
   3.5105231707566786`*^9}, {3.510524911966773*^9, 3.510524925296792*^9}, {
   3.510525184087154*^9, 3.510525188787161*^9}, {3.510787470405632*^9,
   3.5107874992156725`*^9}, {3.510788066946467*^9, 3.5107880746864777`*^9}, {
   3.510788210246668*^9, 3.510788212636671*^9}, {3.510788384636912*^9,
   3.5107883946369257`*^9}, {3.5107885351071224`*^9,
   3.5107885379071264`*^9}, {3.5107893359082437`*^9, 3.5107893412382507`*^9},
   3.5107893780883026`*^9, 3.510845655897318*^9, {3.5144732957199206`*^9,
   3.514473295938321*^9}, {3.5144733271383758`*^9, 3.514473389632086*^9}, {
   3.5144734208321404`*^9, 3.514473425184548*^9}, {3.514473474153034*^9,
   3.514473504229887*^9}, {3.5151680954543395`*^9, 3.5151680980343432`*^9}, {
   3.5461251777937984`*^9, 3.546125187183811*^9}, {3.5461254243441434`*^9,
   3.5461254246941442`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"b", "^", "m"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "n"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812879274782*^9, 3.503812944763697*^9, {3.5047499105558243`*^9,
   3.5047499251058445`*^9}, 3.504749962655897*^9, 3.50475000012595*^9, {
   3.5047639369577127`*^9, 3.5047639996578007`*^9}, {3.508012492437707*^9,
   3.5080125039037275`*^9}, {3.50803744317267*^9, 3.5080375004559703`*^9}, {
   3.5080380525409403`*^9, 3.508038060340954*^9}, {3.510523241955203*^9,
   3.5105233462245812`*^9}, {3.5105249344968047`*^9,
   3.5105249997668962`*^9}, {3.510525218367202*^9, 3.510525225307212*^9},
   3.5105258453340836`*^9, 3.5105261705445385`*^9, 3.5105287370781317`*^9, {
   3.510787941316291*^9, 3.5107879840363507`*^9}, {3.510788306106802*^9,
   3.5107883445268555`*^9}, {3.510788495777067*^9, 3.510788532967119*^9}, {
   3.5107885649971647`*^9, 3.5107885715471735`*^9}, {3.5107893516982656`*^9,
   3.510789366068286*^9}, {3.5107896328306603`*^9, 3.5107896399606705`*^9}, {
   3.5107898766310015`*^9, 3.510789877641003*^9}, {3.5107904722018356`*^9,
   3.5107904864718556`*^9}, {3.5107906016920166`*^9, 3.5107906035620193`*^9},
   3.5108133336573973`*^9, {3.510813433138772*^9, 3.5108134492536*^9}, {
   3.5108135037444963`*^9, 3.510813509516506*^9}, {3.510813560575396*^9,
   3.5108135638826017`*^9}, {3.5108452158985453`*^9,
   3.5108453343027534`*^9}, {3.5108456732445483`*^9,
   3.5108456896245775`*^9}, {3.510845924108589*^9, 3.510845925356591*^9},
   3.5139582753849363`*^9, {3.5144735757092123`*^9, 3.5144736765009894`*^9}, {
   3.514473929112233*^9, 3.5144739317798376`*^9}, {3.514474664049924*^9,
   3.5144746883547664`*^9}, {3.514474786463339*^9, 3.514474821750601*^9}, {
   3.514480701215327*^9, 3.514480722275364*^9}, {3.5144826692469826`*^9,
   3.5144826753933935`*^9}, {3.514482761427544*^9, 3.514482763127947*^9}, {
   3.5144839879328985`*^9, 3.514484001598522*^9}, {3.5144840432037954`*^9,
   3.514484047774604*^9}, {3.514484851062791*^9, 3.5144848577428007`*^9}, {
   3.514493953352398*^9, 3.5144939967024584`*^9}, {3.514494454233099*^9,
   3.5144944881731462`*^9}, 3.5144963454557467`*^9, {3.5145667215746603`*^9,
   3.5145667230846624`*^9}, {3.5145668019447727`*^9,
   3.5145668201047983`*^9}, {3.514566854734847*^9, 3.5145668560148487`*^9},
   3.516821193357214*^9, {3.541896074432973*^9, 3.5418960757629747`*^9}, {
   3.5449827290444336`*^9, 3.544982734904442*^9}, 3.546106521254146*^9, {
   3.5461250507836204`*^9, 3.546125089773675*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9,
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9,
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9,
   3.5461053352552624`*^9}, {3.5463150330395956`*^9, 3.546315033228606*^9}, {
   3.5473155234256926`*^9, 3.5473155342443113`*^9}, {3.547315597120908*^9,
   3.5473156004600983`*^9}, {3.5473156558352656`*^9,
   3.5473156567713194`*^9}, {3.5473164933751707`*^9, 3.5473164933751707`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
       "\[And]", " ",
       RowBox[{
        RowBox[{"n", "-",
         FractionBox["1", "2"]}], "\[Element]",
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, 3.5460201927633896`*^9, {
   3.5460203100335536`*^9, 3.5460203443436017`*^9}, {3.546020448093747*^9,
   3.5460204510737514`*^9}, 3.5460205170338435`*^9, 3.5460207518641725`*^9, {
   3.5460226623068466`*^9, 3.5460226755968657`*^9}, {3.5460227177169247`*^9,
   3.5460227177169247`*^9}, {3.546023707982313*^9, 3.546023708262314*^9}, {
   3.546792386446255*^9, 3.5467924010864344`*^9}, {3.546792513166156*^9,
   3.546792513166156*^9}, {3.5468155143461714`*^9, 3.5468155145261717`*^9}, {
   3.547316201692487*^9, 3.547316219319495*^9}, {3.5473165991182184`*^9,
   3.5473165991182184`*^9}, {3.547316771379071*^9, 3.5473167909261894`*^9},
   3.5473169753797393`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
       "\[And]", " ",
       RowBox[{
        RowBox[{"n", "+",
         FractionBox["1", "2"]}], "\[Element]",
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454156634961042`*^9},
   3.5454967587771344`*^9, {3.5461251637537785`*^9, 3.54612516456378*^9},
   3.5461253929840994`*^9, {3.546214618327402*^9, 3.5462146288774166`*^9}, {
   3.54731553719248*^9, 3.547315538735568*^9}, {3.547315667657942*^9,
   3.547315668602996*^9}, 3.5473169596018367`*^9, {3.547317005052437*^9,
   3.547317005052437*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9,
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    FractionBox[
     SqrtBox[
      RowBox[{"b", " ",
       RowBox[{"f", "[", "z", "]"}]}]],
     SqrtBox[
      RowBox[{"f", "[", "z", "]"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9,
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9,
   3.5117152315916767`*^9}, {3.5117561659742937`*^9,
   3.5117561659742937`*^9}, {3.5118185923538933`*^9,
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9},
   3.5145721515462685`*^9, {3.545415611111212*^9, 3.545415612296814*^9}, {
   3.5454156443548703`*^9, 3.5454156450100718`*^9}, {3.54612527918394*^9,
   3.54612529305396*^9}, {3.546125371024069*^9, 3.546125374674074*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]",
   " ",
   RowBox[{
    RowBox[{"n", "+",
     FractionBox["1", "2"]}], "\[Element]",
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9,
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9},
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9,
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9},
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9,
   3.511715508166918*^9}, {3.5117295035766306`*^9, 3.511729505106633*^9}, {
   3.511750898236919*^9, 3.5117508991769204`*^9}, {3.5117555222533927`*^9,
   3.5117555300634036`*^9}, {3.5118334045968*^9, 3.511833408403207*^9},
   3.5145720728661585`*^9, {3.514856031797722*^9, 3.5148560328117237`*^9}, {
   3.5151816617393637`*^9, 3.515181662316565*^9}, {3.545415625915638*^9,
   3.5454156332008505`*^9}, {3.5454300704751377`*^9, 3.545430071215139*^9}, {
   3.546125159633773*^9, 3.546125160493774*^9}, {3.546214650777447*^9,
   3.546214650777447*^9}, {3.547315700922845*^9, 3.547315700922845*^9}, {
   3.5473170462477927`*^9, 3.5473170462477927`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{
       SuperscriptBox["b",
        RowBox[{"n", "-",
         FractionBox["1", "2"]}]],
       SqrtBox[
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]]}],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "n"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9,
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9,
   3.5098347898251967`*^9}, {3.5098348311028695`*^9,
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9},
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9},
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9,
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9,
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.5118158169600077`*^9,
   3.511815862160071*^9}, 3.511815909280137*^9, {3.5118176520325766`*^9,
   3.5118176689026003`*^9}, 3.5118179461929884`*^9, {3.511819812927603*^9,
   3.5118198181376104`*^9}, {3.5118198622576723`*^9, 3.511819864577675*^9}, {
   3.5145719907960434`*^9, 3.51457201659608*^9}, {3.514572326606514*^9,
   3.514572331676521*^9}, {3.51516810299435*^9, 3.515168104974353*^9}, {
   3.546125202673833*^9, 3.5461252302438717`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"b_", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "^",
     RowBox[{"(",
      RowBox[{"n", "-",
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"b", "*",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "n"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveIntegerQ", "[",
     RowBox[{"n", "+",
      RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9,
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9,
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9,
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9,
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.5117293456064095`*^9, 3.5117294275865245`*^9}, {3.5117296689768624`*^9,
   3.5117296728068676`*^9}, {3.5117302889377303`*^9, 3.5117303011477475`*^9},
   3.5117466386965055`*^9, {3.511750894036913*^9, 3.511750894676914*^9}, {
   3.5117511267572393`*^9, 3.5117511307372446`*^9}, {3.5117512119573584`*^9,
   3.511751214027361*^9}, {3.511751883348298*^9, 3.5117518878683043`*^9}, {
   3.5117519413583794`*^9, 3.511751948148389*^9}, {3.5117521986187396`*^9,
   3.511752203998747*^9}, {3.511755503353366*^9, 3.5117555064233704`*^9}, {
   3.5118335100217853`*^9, 3.5118335340614276`*^9}, 3.5145720383461103`*^9, {
   3.5145721800463085`*^9, 3.5145722335263834`*^9}, {3.5145723389965315`*^9,
   3.5145723423365355`*^9}, {3.5145724500966864`*^9, 3.514572450266687*^9},
   3.516820646406448*^9, {3.5418961167530327`*^9, 3.541896117983034*^9}, {
   3.5449827397744484`*^9, 3.544982749304462*^9}, 3.5461060983374033`*^9, {
   3.5461064994141073`*^9, 3.546106521269746*^9}, 3.546106612139906*^9,
   3.546125075313655*^9, {3.546125116593713*^9, 3.546125139913745*^9}, {
   3.5462146339374237`*^9, 3.5462146423374357`*^9}, {3.547315350968828*^9,
   3.5473153548750515`*^9}, {3.5473156828768125`*^9, 3.547315687131056*^9},
   3.5473170592375355`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
       "\[And]", " ",
       RowBox[{
        RowBox[{"n", "-",
         FractionBox["1", "2"]}], "\[Element]",
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.545415619784827*^9, 3.5454157083149824`*^9},
   3.5454967634471407`*^9, {3.546125151153761*^9, 3.5461251521137624`*^9},
   3.5461253959541035`*^9, {3.5462146659574685`*^9, 3.546214671897477*^9}, {
   3.5473155432078238`*^9, 3.547315544314887*^9}, {3.5473156744953327`*^9,
   3.547315675358382*^9}, 3.5473169607639036`*^9, {3.547317009933716*^9,
   3.547317009933716*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
   3.4983206021865325`*^9, {3.498326040356801*^9, 3.498326049592017*^9}, {
   3.4983263025932617`*^9, 3.498326308365272*^9}, {3.510260940930415*^9,
   3.51026094460042*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    FractionBox[
     SqrtBox[
      RowBox[{"f", "[", "z", "]"}]],
     SqrtBox[
      RowBox[{"b", " ",
       RowBox[{"f", "[", "z", "]"}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, {
   3.498320837060545*^9, 3.4983208718174057`*^9}, 3.4983264799655733`*^9, {
   3.4983265293864603`*^9, 3.4983265518504996`*^9}, {3.510260868510313*^9,
   3.510260895210351*^9}, {3.5102609859104776`*^9, 3.5102609865504785`*^9}, {
   3.511714714700369*^9, 3.5117147350740047`*^9}, {3.5117152169432507`*^9,
   3.5117152315916767`*^9}, {3.5117561659742937`*^9,
   3.5117561659742937`*^9}, {3.5118185923538933`*^9,
   3.5118186314339476`*^9}, {3.511818664503994*^9, 3.5118186916940317`*^9}, {
   3.5118187344240923`*^9, 3.5118187409841013`*^9}, {3.514569048341924*^9,
   3.5145690628419447`*^9}, {3.514572319246504*^9, 3.514572319846504*^9}, {
   3.545415686303344*^9, 3.545415693838157*^9}, {3.5461253188439956`*^9,
   3.546125323414002*^9}, {3.5461253628140574`*^9, 3.546125366284062*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]",
   " ",
   RowBox[{
    RowBox[{"n", "-",
     FractionBox["1", "2"]}], "\[Element]",
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9,
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9},
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9,
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9},
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511715292228983*^9, 3.511715334692258*^9}, {3.5117155048269134`*^9,
   3.511715508166918*^9}, {3.511729526906664*^9, 3.5117295274366646`*^9}, {
   3.511748932814161*^9, 3.511748933464162*^9}, {3.5117557724437428`*^9,
   3.5117557724437428`*^9}, {3.511832614206211*^9, 3.511832614206211*^9}, {
   3.511832746213642*^9, 3.511832746213642*^9}, {3.5144963686357794`*^9,
   3.514496369905781*^9}, {3.5144964549259*^9, 3.5144964623659105`*^9}, {
   3.514496962866611*^9, 3.5144969631666117`*^9}, {3.5144973205371118`*^9,
   3.514497323707116*^9}, {3.5144981061082115`*^9, 3.514498107108213*^9}, {
   3.51456888104169*^9, 3.51456888104169*^9}, {3.514572358146558*^9,
   3.5145723624865637`*^9}, {3.514856035354528*^9, 3.51485603646213*^9}, {
   3.5151816723941827`*^9, 3.515181672752983*^9}, {3.54541570104537*^9,
   3.5454157031357737`*^9}, {3.5454300730151415`*^9,
   3.5454300739051423`*^9}, {3.5461251557037673`*^9, 3.546125156553768*^9}, {
   3.546214680327489*^9, 3.546214680327489*^9}, {3.5473157085212793`*^9,
   3.5473157085212793`*^9}, {3.5473170935334973`*^9, 3.5473170935334973`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{
       SuperscriptBox["b",
        RowBox[{"n", "+",
         FractionBox["1", "2"]}]],
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]]}],
      SqrtBox[
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "n"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9,
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9,
   3.5098347898251967`*^9}, {3.5098348311028695`*^9,
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9},
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9},
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9,
   3.5101829454458556`*^9}, {3.511714482540761*^9, 3.5117145274688396`*^9}, {
   3.5117145862341433`*^9, 3.5117146153281946`*^9}, {3.5117147853060927`*^9,
   3.511714803090124*^9}, {3.5117151505963345`*^9, 3.5117151632479568`*^9}, {
   3.511715744517249*^9, 3.511715747287253*^9}, {3.51174841818344*^9,
   3.511748420833444*^9}, {3.511748497963552*^9, 3.5117484984135523`*^9}, {
   3.511818294033475*^9, 3.5118183236735168`*^9}, {3.5144968024863863`*^9,
   3.5144968510064545`*^9}, {3.5144968866465044`*^9, 3.514496913836542*^9}, {
   3.514568305910885*^9, 3.5145683164908996`*^9}, {3.5145683572009563`*^9,
   3.5145683609609623`*^9}, 3.514568478731127*^9, 3.514568528181196*^9, {
   3.5145685692312536`*^9, 3.5145686286113367`*^9}, {3.5145686608513813`*^9,
   3.5145686672213907`*^9}, {3.5151681094443593`*^9,
   3.5151681104843607`*^9}, {3.546125239623885*^9, 3.5461252659839215`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"b_", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "^",
     RowBox[{"(",
      RowBox[{"n", "+",
       RowBox[{"1", "/", "2"}]}], ")"}]}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"b", "*",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "n"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ",
    RowBox[{"NegativeIntegerQ", "[",
     RowBox[{"n", "-",
      RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9,
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9,
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.511715355721095*^9,
   3.5117153607131033`*^9}, {3.511715428066806*^9, 3.5117154599968505`*^9}, {
   3.511715511146922*^9, 3.5117155141269264`*^9}, {3.511715565286998*^9,
   3.5117155864270277`*^9}, {3.511715750947258*^9, 3.5117157539772625`*^9}, {
   3.511747293362056*^9, 3.5117472971996627`*^9}, {3.5117477460436506`*^9,
   3.5117477523148623`*^9}, {3.5117479077127256`*^9, 3.511747926872752*^9}, {
   3.5117482704932337`*^9, 3.511748288643259*^9}, {3.511748542813615*^9,
   3.511748551293627*^9}, {3.511750065125746*^9, 3.5117500670757484`*^9}, {
   3.5117558949839144`*^9, 3.511755900293922*^9}, 3.51183280157814*^9, {
   3.511832873725067*^9, 3.5118328862830887`*^9}, {3.5118329289491634`*^9,
   3.5118329301035657`*^9}, {3.514496374415787*^9, 3.514496375635789*^9}, {
   3.514496438775877*^9, 3.514496443085883*^9}, {3.514496942236582*^9,
   3.514496946806588*^9}, {3.514497149116872*^9, 3.5144971791969137`*^9},
   3.5144972624770308`*^9, {3.5144973102370973`*^9, 3.5144973301571255`*^9}, {
   3.514497805537791*^9, 3.5144978555678606`*^9}, 3.5144981017882056`*^9, {
   3.5145668229448023`*^9, 3.5145668520048428`*^9}, {3.5145683337309237`*^9,
   3.514568353430951*^9}, 3.5145688737116795`*^9, {3.514568913051735*^9,
   3.5145689928618464`*^9}, {3.5145723491465454`*^9, 3.514572351626549*^9},
   3.516820655546461*^9, {3.5418961219230394`*^9, 3.5418961224830403`*^9}, {
   3.544982754014468*^9, 3.5449827618644795`*^9}, 3.5461060983530035`*^9, {
   3.5461064994297075`*^9, 3.546106521269746*^9}, 3.546106612139906*^9,
   3.546125075353655*^9, {3.546125336594021*^9, 3.5461253523540425`*^9}, {
   3.546214683267493*^9, 3.5462146889675007`*^9}, {3.5473153225242014`*^9,
   3.5473153266344366`*^9}, {3.5473157111854315`*^9, 3.547315718008822*^9},
   3.5473171017279663`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ",
       "\[And]", " ",
       RowBox[{
        RowBox[{"n", "-",
         FractionBox["1", "2"]}], "\[NotElement]",
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, {3.545064157588436*^9,
   3.545064173278458*^9}, {3.545064245438559*^9, 3.545064245438559*^9}, {
   3.5450644846488943`*^9, 3.5450644846488943`*^9}, {3.5450645316189594`*^9,
   3.545064533688963*^9}, 3.545064591839044*^9, 3.5454973483879595`*^9,
   3.545506097840209*^9, 3.5455157193990145`*^9, 3.5462951690403004`*^9, {
   3.5462964020120263`*^9, 3.5462964133720427`*^9}, 3.5462966455623674`*^9, {
   3.5472311188349724`*^9, 3.54723116715504*^9}, {3.5472318015599303`*^9,
   3.5472318067199373`*^9}, {3.5472325709010077`*^9,
   3.5472325766810155`*^9}, {3.5472652760126*^9, 3.547265277682602*^9}, {
   3.547265325642669*^9, 3.547265351422705*^9}, {3.5473157817284665`*^9,
   3.547315808787014*^9}, {3.547316456343052*^9, 3.5473164563440523`*^9},
   3.547316510131129*^9, {3.5473169647091293`*^9, 3.547316965009146*^9}, {
   3.5473170148439965`*^9, 3.5473170148439965`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "x", "]"}]}], ")"}], "n"],
     SuperscriptBox[
      RowBox[{"f", "[", "x", "]"}], "n"]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, 3.497578119962559*^9, {3.5083546016044073`*^9,
   3.5083546016044073`*^9}, {3.5118050348148956`*^9,
   3.5118050348148956`*^9}, {3.5462953719105844`*^9,
   3.5462953727405853`*^9}, {3.546295419610651*^9, 3.546295448940692*^9}, {
   3.546296444592086*^9, 3.5462964544221*^9}, {3.547231239455141*^9,
   3.5472312497351556`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]",
   " ",
   RowBox[{
    RowBox[{"n", "-",
     FractionBox["1", "2"]}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.514496474085927*^9, 3.514496484855942*^9}, {
   3.5148560276013145`*^9, 3.514856028942917*^9}, {3.515181654360551*^9,
   3.5151816552341523`*^9}, {3.5454155814555597`*^9, 3.545415582563162*^9}, {
   3.545430066735132*^9, 3.545430067215133*^9}, {3.546125031993594*^9,
   3.546125032823595*^9}, {3.547265353742708*^9, 3.547265353742708*^9}, {
   3.5473158127892427`*^9, 3.5473158127892427`*^9}, {3.5473164670636654`*^9,
   3.5473164670636654`*^9}, {3.5473171298465743`*^9, 3.5473171298465743`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"b", " ",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "n"]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "n"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975823372004642`*^9,
   3.4975823431504726`*^9}, {3.4979216297682095`*^9,
   3.4979216297682095`*^9}, {3.505344687863849*^9, 3.505344687863849*^9}, {
   3.5074187348633986`*^9, 3.5074187409134073`*^9}, {3.5098471722784896`*^9,
   3.509847174858493*^9}, 3.51180499522484*^9, {3.5151676155136676`*^9,
   3.5151676298736877`*^9}, 3.541101803256009*^9, {3.541115802450629*^9,
   3.541115829936912*^9}, {3.5411170533806067`*^9, 3.541117065630624*^9}, {
   3.546296428072063*^9, 3.546296438832078*^9}, {3.546296483582141*^9,
   3.5462964919121523`*^9}, {3.547231194825079*^9, 3.547231229775128*^9}, {
   3.547232589761034*^9, 3.5472325935810394`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "/",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "n"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}], ",",
      "x"}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[",
      RowBox[{"n", "-",
       RowBox[{"1", "/", "2"}]}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9, {
   3.4979216297682095`*^9, 3.497921629783809*^9}, 3.4979230300422688`*^9, {
   3.505344687883849*^9, 3.505344687883849*^9}, 3.5074187847234683`*^9, {
   3.509847176848496*^9, 3.5098471799084997`*^9}, {3.511804078821556*^9,
   3.511804083061562*^9}, {3.5118050548249235`*^9, 3.511805058434929*^9},
   3.511805389089394*^9, {3.514174480826256*^9, 3.5141744852722635`*^9}, {
   3.5141751035821505`*^9, 3.514175106764556*^9}, 3.5141774512366753`*^9, {
   3.5410976974308376`*^9, 3.5410977100668592`*^9}, {3.5411018263752494`*^9,
   3.5411018402280736`*^9}, {3.541116030157608*^9, 3.541116035122864*^9}, {
   3.541117072180633*^9, 3.5411170753206377`*^9}, {3.5450643579287167`*^9,
   3.5450643666987286`*^9}, {3.5450644187188015`*^9,
   3.5450644238188086`*^9}, {3.5462953176805086`*^9, 3.546295320140512*^9}, {
   3.5462965514222355`*^9, 3.546296585122283*^9}, 3.5462967357824936`*^9, {
   3.547231380239341*^9, 3.5472314258094044`*^9}, 3.5472318122599454`*^9, {
   3.5472326044910545`*^9, 3.547232608911061*^9}, {3.5472327472812543`*^9,
   3.5472327734712915`*^9}, {3.5472653618527203`*^9,
   3.5472653696227307`*^9}, {3.547315815603404*^9, 3.547315816334446*^9}, {
   3.5473164515197763`*^9, 3.547316451722788*^9}, 3.5473171399381514`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454161483605556`*^9, 3.545416164506584*^9}, {
   3.5454163555601196`*^9, 3.545416365544137*^9}, {3.5454169374723415`*^9,
   3.5454169458807564`*^9}, {3.545417574686661*^9, 3.545417598882303*^9}, {
   3.545417754289776*^9, 3.545417754289776*^9}, {3.54541778467863*^9,
   3.5454177858642316`*^9}, {3.545418093543572*^9, 3.545418093543572*^9}, {
   3.5454192892300725`*^9, 3.5454192892300725`*^9}, {3.5454302686954155`*^9,
   3.5454302688754153`*^9}, 3.545496843067252*^9, {3.5455036683168077`*^9,
   3.5455036685068083`*^9}, {3.5455949509541106`*^9,
   3.5455949511841106`*^9}, {3.5457198152069645`*^9,
   3.5457198154999814`*^9}, {3.546059442036433*^9, 3.5460594424384565`*^9}, {
   3.5461052970351954`*^9, 3.5461053144604263`*^9}, {3.5461053461908817`*^9,
   3.5461053471268835`*^9}, {3.546124692073118*^9, 3.5461246922431183`*^9}, {
   3.546191618490012*^9, 3.546191618990013*^9}, {3.5461930417920046`*^9,
   3.546193042822006*^9}, {3.546199128980527*^9, 3.5461991297205276`*^9}, {
   3.546199707031336*^9, 3.5461997072613363`*^9}, {3.546315037540853*^9,
   3.546315037820869*^9}, 3.5463152177901626`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454161483605556`*^9, 3.545416164506584*^9}, {
   3.5454163555601196`*^9, 3.545416365544137*^9}, {3.5454169374723415`*^9,
   3.5454169458807564`*^9}, {3.545417574686661*^9, 3.545417598882303*^9}, {
   3.545417754289776*^9, 3.545417754289776*^9}, {3.54541778467863*^9,
   3.5454177858642316`*^9}, {3.545418093543572*^9, 3.545418093543572*^9}, {
   3.5454192892300725`*^9, 3.5454192892300725`*^9}, {3.5454302686954155`*^9,
   3.5454302688754153`*^9}, 3.545496843067252*^9, {3.5455036683168077`*^9,
   3.5455036685068083`*^9}, {3.5455949509541106`*^9,
   3.5455949511841106`*^9}, {3.5457198152069645`*^9,
   3.5457198154999814`*^9}, {3.546059442036433*^9, 3.5460594424384565`*^9}, {
   3.5461052970351954`*^9, 3.5461053144604263`*^9}, {3.5461053461908817`*^9,
   3.5461053471268835`*^9}, {3.546124692073118*^9, 3.5461246922431183`*^9}, {
   3.546191618490012*^9, 3.546191618990013*^9}, {3.5461930417920046`*^9,
   3.546193042822006*^9}, {3.546199128980527*^9, 3.5461991297205276`*^9}, {
   3.546199707031336*^9, 3.5461997072613363`*^9}, {3.546315037540853*^9,
   3.546315037820869*^9}, {3.5463152228574524`*^9, 3.5463152303418803`*^9}, {
   3.547415118421036*^9, 3.547415118826637*^9}, {3.5480976263826227`*^9,
   3.548097640232642*^9}, {3.5480980186531715`*^9, 3.5480980191131725`*^9},
   3.5481778156537595`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5454973450079556`*^9, {
   3.5454985936197033`*^9, 3.5454986135597315`*^9}, {3.5454987287398925`*^9,
   3.545498734959901*^9}, 3.5454992694506493`*^9, 3.5455015297338133`*^9,
   3.5455018032341967`*^9, 3.5455018638142815`*^9, {3.545501914164352*^9,
   3.5455019220743628`*^9}, {3.5455024566751113`*^9,
   3.5455024745051365`*^9}, {3.545502723515485*^9, 3.54550272724549*^9}, {
   3.545607251646547*^9, 3.5456072547447243`*^9}, {3.5456154995202985`*^9,
   3.5456155180833597`*^9}, {3.545615605164341*^9, 3.5456156097026005`*^9}, {
   3.5456157101093435`*^9, 3.545615719889903*^9}, {3.5456158791160097`*^9,
   3.5456158815921516`*^9}, {3.5456159667900248`*^9,
   3.5456159681611032`*^9}, {3.545616362933683*^9, 3.5456163631596956`*^9}, {
   3.5456164161897287`*^9, 3.545616426060293*^9}, 3.5460551721230836`*^9,
   3.5461915240998797`*^9, 3.5461918033502707`*^9, 3.5461930481420135`*^9,
   3.5462009332730527`*^9, 3.5462016152640076`*^9, 3.5463157036909547`*^9, {
   3.5465384364433966`*^9, 3.5465384376033983`*^9}, {3.5469012978469825`*^9,
   3.5469013047269917`*^9}, 3.5469058115133014`*^9, 3.5469058658233776`*^9, {
   3.546926483556588*^9, 3.5469264933846054`*^9}, {3.5474198675085*^9,
   3.547419868038901*^9}, {3.548097495292439*^9, 3.548097513612465*^9}, {
   3.5480980195731726`*^9, 3.5480980200231733`*^9}, 3.548177817198162*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
   3.509987368148217*^9, {3.5104261125494456`*^9, 3.510426116279451*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}], "z"], "\[Equal]",
   RowBox[{"b", "+",
    FractionBox["a", "z"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9,
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9,
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9,
   3.508432308345225*^9}, {3.5166724284966736`*^9, 3.51667246652954*^9}, {
   3.544997603799053*^9, 3.5449976318635025`*^9}, {3.5456073837761045`*^9,
   3.5456074329989195`*^9}, {3.5456074895631547`*^9,
   3.5456074915202665`*^9}, {3.5456158281470947`*^9, 3.545615853651553*^9}, {
   3.5456165778619757`*^9, 3.545616600080247*^9}, {3.5462016814041*^9,
   3.5462016845341043`*^9}, {3.546905902823429*^9, 3.5469059108934402`*^9}, {
   3.5480977228027573`*^9, 3.5480977502727957`*^9}}],

Cell["\<\
Note: Although this is just a special case of the following rule, it is \
simpler and saves a trivial step.\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.5130948677012463`*^9, 3.513094868777648*^9}, {3.5130985654428687`*^9,
   3.5130985665528708`*^9}, {3.5130991696337147`*^9,
   3.5130991703437157`*^9}, {3.514149257920127*^9, 3.514149258420127*^9}, {
   3.5145964170042276`*^9, 3.5145964181642294`*^9}, {3.5417300030496244`*^9,
   3.541730003455225*^9}, {3.548530949543024*^9, 3.54853106087318*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4992133873636045`*^9, 3.4992133892036066`*^9}, {3.4992162641476316`*^9,
   3.499216265707634*^9}, {3.4993685410928354`*^9, 3.4993685488628464`*^9}, {
   3.50031970240469*^9, 3.5003197069046965`*^9}, {3.5004320341975737`*^9,
   3.5004320353096375`*^9}, {3.5026784535032854`*^9, 3.502678461573297*^9}, {
   3.5027657904804587`*^9, 3.5027657904804587`*^9}, {3.5027672190193686`*^9,
   3.5027672190193686`*^9}, {3.5035496199411335`*^9,
   3.5035496486311736`*^9}, {3.504028649276944*^9, 3.5040286502597466`*^9},
   3.50403187501501*^9, 3.5043107662485094`*^9, {3.5047476342426376`*^9,
   3.504747635372639*^9}, {3.509473798840955*^9, 3.509473798840955*^9}, {
   3.509934658346775*^9, 3.5099346733567963`*^9}, 3.509938528846196*^9, {
   3.5099390241689568`*^9, 3.509939026446561*^9}, {3.5099391248983335`*^9,
   3.509939129625142*^9}, {3.5101741545371675`*^9, 3.5101741545371675`*^9}, {
   3.5101804637230964`*^9, 3.510180464175497*^9}, {3.5104307281279087`*^9,
   3.5104307283379087`*^9}, {3.510596793572122*^9, 3.5105967962521257`*^9}, {
   3.5105973346061244`*^9, 3.5105973348661246`*^9}, {3.5105983595375595`*^9,
   3.5105983595375595`*^9}, {3.511721168434842*^9, 3.511721168434842*^9}, {
   3.512153856312028*^9, 3.512153856982029*^9}, {3.5121539269621267`*^9,
   3.512153929892131*^9}, 3.513052839510186*^9, 3.514838602356208*^9, {
   3.545498534859621*^9, 3.5454985353796215`*^9}, {3.54549891314015*^9,
   3.5454989145401525`*^9}, {3.546105915634282*^9, 3.546105915634282*^9}, {
   3.5469058925234146`*^9, 3.5469058925234146`*^9}, 3.547419933529815*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}],
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "b"}]}], " ", "x"}]}], " ",
   "+",
  RowBox[{"a",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
   3.4975830009913936`*^9}, {3.4987607563116155`*^9, 3.498760763041625*^9}, {
   3.499305498308893*^9, 3.499305517262926*^9}, {3.5059666670951004`*^9,
   3.505966716827945*^9}, {3.5061955618794093`*^9, 3.506195570159421*^9}, {
   3.5072431872612705`*^9, 3.5072432404261637`*^9}, {3.5072432976002645`*^9,
   3.507243301266271*^9}, {3.5073303069156404`*^9, 3.507330321715661*^9},
   3.507580775876561*^9, {3.5075808517266674`*^9, 3.5075808618066816`*^9}, {
   3.507771267886224*^9, 3.507771338306322*^9}, {3.5077750940895863`*^9,
   3.5077750969995904`*^9}, {3.5077754105500293`*^9, 3.5077754262100515`*^9},
   3.5077754729201164`*^9, {3.5077759620108013`*^9, 3.5077759784608245`*^9}, {
   3.5077776770532026`*^9, 3.5077777072532444`*^9}, {3.509985239743236*^9,
   3.50998526384327*^9}, {3.509987215038003*^9, 3.509987346898187*^9},
   3.5104260735393915`*^9, {3.510428784095187*^9, 3.510428803355214*^9}, {
   3.5104289858954697`*^9, 3.5104289956154833`*^9}, {3.5104512488532076`*^9,
   3.5104512676132336`*^9}, 3.5104513282733183`*^9, {3.5104525757750654`*^9,
   3.51045259385509*^9}, {3.510453876910889*^9, 3.510453922550953*^9}, {
   3.510454085761182*^9, 3.510454091071189*^9}, {3.5104541579412823`*^9,
   3.510454168161297*^9}, {3.510530323854356*^9, 3.510530330164365*^9}, {
   3.510611025794151*^9, 3.510611090050664*^9}, 3.5130296375354767`*^9, {
   3.51302977621972*^9, 3.513029778341324*^9}, {3.5146863659895983`*^9,
   3.514686382307227*^9}, {3.5146867096738024`*^9, 3.5146867264438314`*^9}, {
   3.5148299940067673`*^9, 3.514830002346779*^9}, {3.514830047986843*^9,
   3.5148300908769026`*^9}, {3.515187578650267*^9, 3.5151875974302936`*^9}, {
   3.5455017850941715`*^9, 3.5455018359142427`*^9}, {3.545607266296385*^9,
   3.545607267808471*^9}, {3.545607596375264*^9, 3.5456075987734013`*^9}, {
   3.545615548917124*^9, 3.5456155698413205`*^9}, {3.5456156902972097`*^9,
   3.545615700853814*^9}, {3.5456157358138137`*^9, 3.545615746525426*^9}, {
   3.545615893294821*^9, 3.545615897229046*^9}, {3.54561644802955*^9,
   3.545616499650502*^9}, {3.5456165536185894`*^9, 3.5456165558037143`*^9}, {
   3.546201642024045*^9, 3.54620166694408*^9}, {3.5469013095569987`*^9,
   3.546901318197011*^9}, {3.547419868834502*^9, 3.547419870238505*^9}, {
   3.548097523072478*^9, 3.54809757473255*^9}, {3.5480977691328225`*^9,
   3.548097771142825*^9}, {3.548098020453174*^9, 3.548098021313175*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", "x"}], " ", "+", " ",
    RowBox[{"a", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, {3.4982401285726357`*^9, 3.4982401313526397`*^9}, {
   3.4987611327521424`*^9, 3.4987611393821516`*^9}, {3.4987611708821955`*^9,
   3.498761277792345*^9}, {3.498761669522894*^9, 3.4987616788229065`*^9}, {
   3.4987619391432714`*^9, 3.498761943263277*^9}, {3.499183308350725*^9,
   3.4991833124847326`*^9}, {3.499185161474782*^9, 3.499185164828788*^9}, {
   3.499305530288949*^9, 3.4993055385257635`*^9}, {3.505966844688258*^9,
   3.50596686517743*^9}, {3.5059669219046745`*^9, 3.5059669229497347`*^9}, {
   3.50596738600922*^9, 3.5059673883963566`*^9}, {3.5061955820294375`*^9,
   3.506195592559452*^9}, {3.507243361763177*^9, 3.5072433812008114`*^9}, {
   3.5073303887157545`*^9, 3.507330393995762*^9}, {3.507330454915848*^9,
   3.50733048518589*^9}, {3.507330529445952*^9, 3.5073305427059703`*^9}, {
   3.507330812806349*^9, 3.507330823296363*^9}, {3.5073309520265436`*^9,
   3.5073309814665847`*^9}, {3.5073313288470707`*^9,
   3.5073313330470767`*^9}, {3.5073320683081064`*^9,
   3.5073320876581335`*^9}, {3.5073327496090603`*^9,
   3.5073327527890644`*^9}, {3.5073328122591476`*^9,
   3.5073328126791487`*^9}, {3.5073328632292194`*^9,
   3.5073328824192457`*^9}, {3.5073338298225737`*^9, 3.507333833852579*^9}, {
   3.5073961002459946`*^9, 3.5073961026559973`*^9}, {3.5074422952495613`*^9,
   3.507442320646406*^9}, {3.507486395872465*^9, 3.50748644954254*^9}, {
   3.5074944725478563`*^9, 3.507494494559495*^9}, {3.5074946945677853`*^9,
   3.5074946980877905`*^9}, {3.507494901148075*^9, 3.5074949419981318`*^9}, {
   3.5074957249818935`*^9, 3.5074957317835054`*^9}, {3.507498957682372*^9,
   3.507498975294803*^9}, 3.5075767853545046`*^9, 3.507580831786639*^9, {
   3.5075809662868276`*^9, 3.5075809692668324`*^9}, {3.5077712489761972`*^9,
   3.5077712551362057`*^9}, {3.5077717557849126`*^9, 3.507771816284997*^9},
   3.507775224829769*^9, {3.507775455140092*^9, 3.5077754653101063`*^9},
   3.5077757871805563`*^9, {3.507775916570738*^9, 3.5077759642408047`*^9},
   3.507776008880867*^9, {3.50777771104325*^9, 3.5077777236732674`*^9}, {
   3.5099853835154386`*^9, 3.509985429525503*^9}, {3.5099854711155615`*^9,
   3.5099854898355875`*^9}, {3.50998619167657*^9, 3.5099861963665767`*^9}, {
   3.5099874380583153`*^9, 3.509987492538391*^9}, {3.51042615829951*^9,
   3.5104261867395496`*^9}, 3.5104262188695946`*^9, {3.510426269739666*^9,
   3.5104262761096745`*^9}, {3.5104290794356003`*^9,
   3.5104290888356133`*^9}, {3.5104291536757045`*^9, 3.510429159565713*^9}, {
   3.5104292694358664`*^9, 3.510429275025874*^9}, {3.5104293070859194`*^9,
   3.5104293377959623`*^9}, 3.510451422603451*^9, {3.5104515553536367`*^9,
   3.51045158679368*^9}, 3.5104518165940027`*^9, {3.5104518510140505`*^9,
   3.510451852984053*^9}, {3.5104520740643625`*^9, 3.5104520772343674`*^9}, {
   3.5104522225545707`*^9, 3.510452235864589*^9}, {3.5104526595251827`*^9,
   3.5104527673753333`*^9}, {3.5104536273705397`*^9,
   3.5104536289005423`*^9}, {3.510453910900937*^9, 3.5104539149709425`*^9}, {
   3.5104539640810113`*^9, 3.5104539889210463`*^9}, {3.5104542120713587`*^9,
   3.51045435582156*^9}, {3.5105298808437357`*^9, 3.510529881153736*^9}, {
   3.510530346304387*^9, 3.5105303713644223`*^9}, {3.510599863079664*^9,
   3.5105998667696695`*^9}, {3.510600124900031*^9, 3.510600127900035*^9}, {
   3.5106054943864355`*^9, 3.5106054979900417`*^9}, {3.5106059737876773`*^9,
   3.5106059774380836`*^9}, {3.510608000184437*^9, 3.5106080045836444`*^9}, {
   3.51060840628435*^9, 3.510608409139155*^9}, {3.5106111149639072`*^9,
   3.5106111844620295`*^9}, 3.5106112168320866`*^9, {3.5106112484377418`*^9,
   3.5106112639753695`*^9}, 3.5106116786084976`*^9, {3.513022655494813*^9,
   3.5130226559628134`*^9}, 3.5130232039761763`*^9, 3.513029881223504*^9, {
   3.513030062027822*^9, 3.513030064336626*^9}, {3.5130304180672474`*^9,
   3.513030466801733*^9}, {3.5130308460771995`*^9, 3.5130308478088026`*^9}, {
   3.5146673699537354`*^9, 3.5146673893437624`*^9}, {3.514667606319686*^9,
   3.514667654991771*^9}, {3.5146698303307924`*^9, 3.5146698317971954`*^9}, {
   3.514670305663508*^9, 3.5146703358835506`*^9}, {3.5146704479137073`*^9,
   3.5146704630337286`*^9}, 3.5146709820744553`*^9, {3.5146759715354824`*^9,
   3.5146760019655247`*^9}, {3.51467676301659*^9, 3.5146767697566*^9}, {
   3.5146859006703806`*^9, 3.5146859603716855`*^9}, {3.514686011914176*^9,
   3.5146860166409845`*^9}, {3.5146863874552364`*^9,
   3.5146864315877137`*^9}, {3.5146875848857403`*^9, 3.514687614057791*^9}, {
   3.5148248808272715`*^9, 3.514824884967277*^9}, {3.514824916447321*^9,
   3.514824919087325*^9}, {3.514825054837515*^9, 3.5148250635975275`*^9}, {
   3.514828109601799*^9, 3.514828113021804*^9}, {3.514828162133874*^9,
   3.514828163773876*^9}, {3.5148284380665493`*^9, 3.5148284440465574`*^9}, {
   3.5148300119167924`*^9, 3.5148300156267977`*^9}, {3.5148302555571337`*^9,
   3.5148303032572002`*^9}, 3.514830361697282*^9, {3.5454920420258284`*^9,
   3.5454920420358286`*^9}, {3.545499027990311*^9, 3.545499039540327*^9}, {
   3.5455023247949266`*^9, 3.5455023261349287`*^9}, {3.545502385005011*^9,
   3.5455024065650415`*^9}, {3.545584799878375*^9, 3.545584858868458*^9},
   3.5455848936785064`*^9, {3.545585117028819*^9, 3.5455851240588293`*^9},
   3.545587888748579*^9, {3.54560763877769*^9, 3.5456077075256214`*^9}, {
   3.5456156602564917`*^9, 3.545615664662744*^9}, {3.545615759567172*^9,
   3.5456157843105874`*^9}, {3.5456159067435904`*^9, 3.545615910180787*^9}, {
   3.5456166161211643`*^9, 3.545616657400525*^9}, {3.54612490765342*^9,
   3.54612490765342*^9}, {3.546124948943478*^9, 3.546124948953478*^9}, {
   3.546201698174124*^9, 3.5462017113341417`*^9}, {3.5469013411670427`*^9,
   3.546901396797121*^9}, 3.5469027785190554`*^9, {3.5469063492740545`*^9,
   3.546906352554059*^9}, 3.546926475428974*^9, {3.5474198708469057`*^9,
   3.5474198717673073`*^9}, {3.5479153404259334`*^9, 3.547915342723065*^9}, {
   3.5480973942922974`*^9, 3.548097394722298*^9}, {3.5480974306523485`*^9,
   3.548097433272352*^9}, {3.548097682842702*^9, 3.5480977141227455`*^9}, {
   3.5480977895528507`*^9, 3.548097791992854*^9}, 3.548098021823176*^9, {
   3.5480980733432484`*^9, 3.5480980738532486`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545059739482077*^9,
   3.5450597467048903`*^9}, {3.545060027396183*^9, 3.545060028035784*^9}, {
   3.545060112853133*^9, 3.545060112853133*^9}, {3.5450601569544106`*^9,
   3.5450601580464125`*^9}, {3.5450602208677225`*^9, 3.545060232349343*^9}, {
   3.5450606692749104`*^9, 3.5450606695869107`*^9}, 3.5454973450079556`*^9, {
   3.5454985936197033`*^9, 3.5454986135597315`*^9}, {3.5454987287398925`*^9,
   3.545498734959901*^9}, 3.5454992694506493`*^9, 3.5455015297338133`*^9,
   3.5455018032341967`*^9, 3.5455018638142815`*^9, {3.545501914164352*^9,
   3.5455019220743628`*^9}, {3.5455024566751113`*^9,
   3.5455024745051365`*^9}, {3.545502723515485*^9, 3.54550272724549*^9}, {
   3.545607251646547*^9, 3.5456072547447243`*^9}, {3.5456154995202985`*^9,
   3.5456155180833597`*^9}, {3.545615605164341*^9, 3.5456156097026005`*^9}, {
   3.5456157101093435`*^9, 3.545615719889903*^9}, {3.5456158791160097`*^9,
   3.5456158815921516`*^9}, {3.5456159667900248`*^9,
   3.5456159681611032`*^9}, {3.545616362933683*^9, 3.5456163631596956`*^9}, {
   3.5456164161897287`*^9, 3.545616426060293*^9}, 3.5460551721230836`*^9,
   3.5461915240998797`*^9, 3.5461918033502707`*^9, 3.5461930481420135`*^9,
   3.5462009332730527`*^9, 3.5462016152640076`*^9, 3.5463157036909547`*^9, {
   3.5465384364433966`*^9, 3.5465384376033983`*^9}, {3.5469012978469825`*^9,
   3.5469013047269917`*^9}, 3.5469058115133014`*^9, 3.5469058658233776`*^9, {
   3.546926483556588*^9, 3.5469264933846054`*^9}, {3.5474198675085*^9,
   3.547419868038901*^9}, 3.548097497382442*^9, {3.5480976454226494`*^9,
   3.5480976664426785`*^9}, {3.548098022563177*^9, 3.548098023053178*^9},
   3.548177819226166*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
   3.509987368148217*^9, {3.5104261125494456`*^9, 3.510426116279451*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["z", "m"],
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ", "z"}]}], ")"}]}], "\[Equal]",
   RowBox[{
    RowBox[{"a", " ",
     SuperscriptBox["z", "m"]}], "+",
    RowBox[{"b", " ",
     SuperscriptBox["z",
      RowBox[{"m", "+", "1"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9,
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9,
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9,
   3.508432308345225*^9}, {3.5166724284966736`*^9, 3.51667246652954*^9}, {
   3.544997603799053*^9, 3.5449976318635025`*^9}, {3.5456073837761045`*^9,
   3.5456074329989195`*^9}, {3.5456074895631547`*^9,
   3.5456074915202665`*^9}, {3.5456158281470947`*^9, 3.545615853651553*^9}, {
   3.5456165778619757`*^9, 3.545616600080247*^9}, {3.5462016814041*^9,
   3.5462016845341043`*^9}, {3.546905902823429*^9, 3.5469059108934402`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]",
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4992133873636045`*^9, 3.4992133892036066`*^9}, {3.4992162641476316`*^9,
   3.499216265707634*^9}, {3.4993685410928354`*^9, 3.4993685488628464`*^9}, {
   3.50031970240469*^9, 3.5003197069046965`*^9}, {3.5004320341975737`*^9,
   3.5004320353096375`*^9}, {3.5026784535032854`*^9, 3.502678461573297*^9}, {
   3.5027657904804587`*^9, 3.5027657904804587`*^9}, {3.5027672190193686`*^9,
   3.5027672190193686`*^9}, {3.5035496199411335`*^9,
   3.5035496486311736`*^9}, {3.504028649276944*^9, 3.5040286502597466`*^9},
   3.50403187501501*^9, 3.5043107662485094`*^9, {3.5047476342426376`*^9,
   3.504747635372639*^9}, {3.509473798840955*^9, 3.509473798840955*^9}, {
   3.509934658346775*^9, 3.5099346733567963`*^9}, 3.509938528846196*^9, {
   3.5099390241689568`*^9, 3.509939026446561*^9}, {3.5099391248983335`*^9,
   3.509939129625142*^9}, {3.5101741545371675`*^9, 3.5101741545371675`*^9}, {
   3.5101804637230964`*^9, 3.510180464175497*^9}, {3.5104307281279087`*^9,
   3.5104307283379087`*^9}, {3.510596793572122*^9, 3.5105967962521257`*^9}, {
   3.5105973346061244`*^9, 3.5105973348661246`*^9}, {3.5105983595375595`*^9,
   3.5105983595375595`*^9}, {3.511721168434842*^9, 3.511721168434842*^9}, {
   3.512153856312028*^9, 3.512153856982029*^9}, {3.5121539269621267`*^9,
   3.512153929892131*^9}, 3.513052839510186*^9, 3.514838602356208*^9, {
   3.545498534859621*^9, 3.5454985353796215`*^9}, {3.54549891314015*^9,
   3.5454989145401525`*^9}, {3.546105915634282*^9, 3.546105915634282*^9}, {
   3.5469058925234146`*^9, 3.5469058925234146`*^9}, 3.547419933529815*^9, {
   3.5480978505129366`*^9, 3.548097880222978*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "a"}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"b",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.4975780293224325`*^9, {3.4975829856013722`*^9,
   3.4975830009913936`*^9}, {3.4987607563116155`*^9, 3.498760763041625*^9}, {
   3.499305498308893*^9, 3.499305517262926*^9}, {3.5059666670951004`*^9,
   3.505966716827945*^9}, {3.5061955618794093`*^9, 3.506195570159421*^9}, {
   3.5072431872612705`*^9, 3.5072432404261637`*^9}, {3.5072432976002645`*^9,
   3.507243301266271*^9}, {3.5073303069156404`*^9, 3.507330321715661*^9},
   3.507580775876561*^9, {3.5075808517266674`*^9, 3.5075808618066816`*^9}, {
   3.507771267886224*^9, 3.507771338306322*^9}, {3.5077750940895863`*^9,
   3.5077750969995904`*^9}, {3.5077754105500293`*^9, 3.5077754262100515`*^9},
   3.5077754729201164`*^9, {3.5077759620108013`*^9, 3.5077759784608245`*^9}, {
   3.5077776770532026`*^9, 3.5077777072532444`*^9}, {3.509985239743236*^9,
   3.50998526384327*^9}, {3.509987215038003*^9, 3.509987346898187*^9},
   3.5104260735393915`*^9, {3.510428784095187*^9, 3.510428803355214*^9}, {
   3.5104289858954697`*^9, 3.5104289956154833`*^9}, {3.5104512488532076`*^9,
   3.5104512676132336`*^9}, 3.5104513282733183`*^9, {3.5104525757750654`*^9,
   3.51045259385509*^9}, {3.510453876910889*^9, 3.510453922550953*^9}, {
   3.510454085761182*^9, 3.510454091071189*^9}, {3.5104541579412823`*^9,
   3.510454168161297*^9}, {3.510530323854356*^9, 3.510530330164365*^9}, {
   3.510611025794151*^9, 3.510611090050664*^9}, 3.5130296375354767`*^9, {
   3.51302977621972*^9, 3.513029778341324*^9}, {3.5146863659895983`*^9,
   3.514686382307227*^9}, {3.5146867096738024`*^9, 3.5146867264438314`*^9}, {
   3.5148299940067673`*^9, 3.514830002346779*^9}, {3.514830047986843*^9,
   3.5148300908769026`*^9}, {3.515187578650267*^9, 3.5151875974302936`*^9}, {
   3.5455017850941715`*^9, 3.5455018359142427`*^9}, {3.545607266296385*^9,
   3.545607267808471*^9}, {3.545607596375264*^9, 3.5456075987734013`*^9}, {
   3.545615548917124*^9, 3.5456155698413205`*^9}, {3.5456156902972097`*^9,
   3.545615700853814*^9}, {3.5456157358138137`*^9, 3.545615746525426*^9}, {
   3.545615893294821*^9, 3.545615897229046*^9}, {3.54561644802955*^9,
   3.545616499650502*^9}, {3.5456165536185894`*^9, 3.5456165558037143`*^9}, {
   3.546201642024045*^9, 3.54620166694408*^9}, {3.5469013095569987`*^9,
   3.546901318197011*^9}, {3.547419868834502*^9, 3.547419870238505*^9}, {
   3.548098023823179*^9, 3.548098025563181*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], ",", "x"}], "]"}]}],
    " ", "+", " ",
    RowBox[{"b", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",",
      "x"}], "]"}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.497577987032373*^9,
   3.4975829614713383`*^9, {3.4982401285726357`*^9, 3.4982401313526397`*^9}, {
   3.4987611327521424`*^9, 3.4987611393821516`*^9}, {3.4987611708821955`*^9,
   3.498761277792345*^9}, {3.498761669522894*^9, 3.4987616788229065`*^9}, {
   3.4987619391432714`*^9, 3.498761943263277*^9}, {3.499183308350725*^9,
   3.4991833124847326`*^9}, {3.499185161474782*^9, 3.499185164828788*^9}, {
   3.499305530288949*^9, 3.4993055385257635`*^9}, {3.505966844688258*^9,
   3.50596686517743*^9}, {3.5059669219046745`*^9, 3.5059669229497347`*^9}, {
   3.50596738600922*^9, 3.5059673883963566`*^9}, {3.5061955820294375`*^9,
   3.506195592559452*^9}, {3.507243361763177*^9, 3.5072433812008114`*^9}, {
   3.5073303887157545`*^9, 3.507330393995762*^9}, {3.507330454915848*^9,
   3.50733048518589*^9}, {3.507330529445952*^9, 3.5073305427059703`*^9}, {
   3.507330812806349*^9, 3.507330823296363*^9}, {3.5073309520265436`*^9,
   3.5073309814665847`*^9}, {3.5073313288470707`*^9,
   3.5073313330470767`*^9}, {3.5073320683081064`*^9,
   3.5073320876581335`*^9}, {3.5073327496090603`*^9,
   3.5073327527890644`*^9}, {3.5073328122591476`*^9,
   3.5073328126791487`*^9}, {3.5073328632292194`*^9,
   3.5073328824192457`*^9}, {3.5073338298225737`*^9, 3.507333833852579*^9}, {
   3.5073961002459946`*^9, 3.5073961026559973`*^9}, {3.5074422952495613`*^9,
   3.507442320646406*^9}, {3.507486395872465*^9, 3.50748644954254*^9}, {
   3.5074944725478563`*^9, 3.507494494559495*^9}, {3.5074946945677853`*^9,
   3.5074946980877905`*^9}, {3.507494901148075*^9, 3.5074949419981318`*^9}, {
   3.5074957249818935`*^9, 3.5074957317835054`*^9}, {3.507498957682372*^9,
   3.507498975294803*^9}, 3.5075767853545046`*^9, 3.507580831786639*^9, {
   3.5075809662868276`*^9, 3.5075809692668324`*^9}, {3.5077712489761972`*^9,
   3.5077712551362057`*^9}, {3.5077717557849126`*^9, 3.507771816284997*^9},
   3.507775224829769*^9, {3.507775455140092*^9, 3.5077754653101063`*^9},
   3.5077757871805563`*^9, {3.507775916570738*^9, 3.5077759642408047`*^9},
   3.507776008880867*^9, {3.50777771104325*^9, 3.5077777236732674`*^9}, {
   3.5099853835154386`*^9, 3.509985429525503*^9}, {3.5099854711155615`*^9,
   3.5099854898355875`*^9}, {3.50998619167657*^9, 3.5099861963665767`*^9}, {
   3.5099874380583153`*^9, 3.509987492538391*^9}, {3.51042615829951*^9,
   3.5104261867395496`*^9}, 3.5104262188695946`*^9, {3.510426269739666*^9,
   3.5104262761096745`*^9}, {3.5104290794356003`*^9,
   3.5104290888356133`*^9}, {3.5104291536757045`*^9, 3.510429159565713*^9}, {
   3.5104292694358664`*^9, 3.510429275025874*^9}, {3.5104293070859194`*^9,
   3.5104293377959623`*^9}, 3.510451422603451*^9, {3.5104515553536367`*^9,
   3.51045158679368*^9}, 3.5104518165940027`*^9, {3.5104518510140505`*^9,
   3.510451852984053*^9}, {3.5104520740643625`*^9, 3.5104520772343674`*^9}, {
   3.5104522225545707`*^9, 3.510452235864589*^9}, {3.5104526595251827`*^9,
   3.5104527673753333`*^9}, {3.5104536273705397`*^9,
   3.5104536289005423`*^9}, {3.510453910900937*^9, 3.5104539149709425`*^9}, {
   3.5104539640810113`*^9, 3.5104539889210463`*^9}, {3.5104542120713587`*^9,
   3.51045435582156*^9}, {3.5105298808437357`*^9, 3.510529881153736*^9}, {
   3.510530346304387*^9, 3.5105303713644223`*^9}, {3.510599863079664*^9,
   3.5105998667696695`*^9}, {3.510600124900031*^9, 3.510600127900035*^9}, {
   3.5106054943864355`*^9, 3.5106054979900417`*^9}, {3.5106059737876773`*^9,
   3.5106059774380836`*^9}, {3.510608000184437*^9, 3.5106080045836444`*^9}, {
   3.51060840628435*^9, 3.510608409139155*^9}, {3.5106111149639072`*^9,
   3.5106111844620295`*^9}, 3.5106112168320866`*^9, {3.5106112484377418`*^9,
   3.5106112639753695`*^9}, 3.5106116786084976`*^9, {3.513022655494813*^9,
   3.5130226559628134`*^9}, 3.5130232039761763`*^9, 3.513029881223504*^9, {
   3.513030062027822*^9, 3.513030064336626*^9}, {3.5130304180672474`*^9,
   3.513030466801733*^9}, {3.5130308460771995`*^9, 3.5130308478088026`*^9}, {
   3.5146673699537354`*^9, 3.5146673893437624`*^9}, {3.514667606319686*^9,
   3.514667654991771*^9}, {3.5146698303307924`*^9, 3.5146698317971954`*^9}, {
   3.514670305663508*^9, 3.5146703358835506`*^9}, {3.5146704479137073`*^9,
   3.5146704630337286`*^9}, 3.5146709820744553`*^9, {3.5146759715354824`*^9,
   3.5146760019655247`*^9}, {3.51467676301659*^9, 3.5146767697566*^9}, {
   3.5146859006703806`*^9, 3.5146859603716855`*^9}, {3.514686011914176*^9,
   3.5146860166409845`*^9}, {3.5146863874552364`*^9,
   3.5146864315877137`*^9}, {3.5146875848857403`*^9, 3.514687614057791*^9}, {
   3.5148248808272715`*^9, 3.514824884967277*^9}, {3.514824916447321*^9,
   3.514824919087325*^9}, {3.514825054837515*^9, 3.5148250635975275`*^9}, {
   3.514828109601799*^9, 3.514828113021804*^9}, {3.514828162133874*^9,
   3.514828163773876*^9}, {3.5148284380665493`*^9, 3.5148284440465574`*^9}, {
   3.5148300119167924`*^9, 3.5148300156267977`*^9}, {3.5148302555571337`*^9,
   3.5148303032572002`*^9}, 3.514830361697282*^9, {3.5454920420258284`*^9,
   3.5454920420358286`*^9}, {3.545499027990311*^9, 3.545499039540327*^9}, {
   3.5455023247949266`*^9, 3.5455023261349287`*^9}, {3.545502385005011*^9,
   3.5455024065650415`*^9}, {3.545584799878375*^9, 3.545584858868458*^9},
   3.5455848936785064`*^9, {3.545585117028819*^9, 3.5455851240588293`*^9},
   3.545587888748579*^9, {3.54560763877769*^9, 3.5456077075256214`*^9}, {
   3.5456156602564917`*^9, 3.545615664662744*^9}, {3.545615759567172*^9,
   3.5456157843105874`*^9}, {3.5456159067435904`*^9, 3.545615910180787*^9}, {
   3.5456166161211643`*^9, 3.545616657400525*^9}, {3.54612490765342*^9,
   3.54612490765342*^9}, {3.546124948943478*^9, 3.546124948953478*^9}, {
   3.546201698174124*^9, 3.5462017113341417`*^9}, {3.5469013411670427`*^9,
   3.546901396797121*^9}, 3.5469027785190554`*^9, {3.5469063492740545`*^9,
   3.546906352554059*^9}, 3.546926475428974*^9, {3.5474198708469057`*^9,
   3.5474198717673073`*^9}, {3.5479153404259334`*^9, 3.547915342723065*^9},
   3.548097379682277*^9, {3.54809783206291*^9, 3.548097843282926*^9}, {
   3.5480980271131835`*^9, 3.5480980304331884`*^9}, {3.5480980744232492`*^9,
   3.5480980756832514`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9},
   3.5454968316872363`*^9, {3.5455036591867948`*^9, 3.545503659346795*^9}, {
   3.545719271536868*^9, 3.5457192717468805`*^9}, {3.5460594393562803`*^9,
   3.5460594398653092`*^9}, {3.5461052955219927`*^9, 3.546105342478075*^9}, {
   3.5461067465029416`*^9, 3.5461067466901417`*^9}, {3.546191611830003*^9,
   3.5461916123600035`*^9}, {3.5461960374161987`*^9, 3.546196045076209*^9}, {
   3.546196224796461*^9, 3.546196225006461*^9}, 3.5462008183828917`*^9, {
   3.546200898673004*^9, 3.5462008988630047`*^9}, {3.5462062345756645`*^9,
   3.5462062347856646`*^9}, 3.5463152369822607`*^9, {3.546537887452628*^9,
   3.546537900732647*^9}, {3.546538613023644*^9, 3.5465386133936443`*^9},
   3.548177925321952*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[GreaterEqual]",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159062169304`*^9, 3.5454159331113777`*^9},
   3.54549683416724*^9, 3.5461062300796347`*^9, {3.5461064168431625`*^9,
   3.5461064441432104`*^9}, 3.5461960406562033`*^9, {3.5462067693364134`*^9,
   3.546206792716446*^9}, 3.54631573298063*^9, {3.5465333983763437`*^9,
   3.546533398676344*^9}, {3.54653356727658*^9, 3.546533568866582*^9}, {
   3.5465380353828354`*^9, 3.5465380353828354`*^9}, 3.5481779689396286`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "3",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=",
   SuperscriptBox["a", "2"]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=",
   RowBox[{"2", "a", " ", "b"}]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=",
   SuperscriptBox["b", "2"]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9,
   3.5038813546802473`*^9}, {3.5049162938617954`*^9,
   3.5049163006634073`*^9}, {3.5049224814485416`*^9,
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, {
   3.504923521959998*^9, 3.504923555010044*^9}, 3.504923770360346*^9,
   3.505345123254459*^9, 3.5120643645025434`*^9, {3.5454306300659213`*^9,
   3.5454306300659213`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[GreaterEqual]",
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.500564276738323*^9, 3.500564276738323*^9}, {3.500564478977479*^9,
   3.500564478977479*^9}, {3.5012690944074793`*^9, 3.501269096907482*^9}, {
   3.502989419757598*^9, 3.5029894266684093`*^9}, {3.504382491914279*^9,
   3.5043824931842804`*^9}, 3.5044145181527205`*^9, 3.5044145651527863`*^9, {
   3.5048326294605317`*^9, 3.5048326318105345`*^9}, {3.504832848270838*^9,
   3.504832848820839*^9}, {3.5048395473922195`*^9, 3.504839551752225*^9}, {
   3.5048396769524*^9, 3.504839677692402*^9}, {3.508452034081811*^9,
   3.508452034081811*^9}, 3.5098354484687543`*^9, 3.509911360347663*^9, {
   3.5101827988991985`*^9, 3.5101828019568033`*^9}, {3.5101832031707087`*^9,
   3.5101832041847105`*^9}, {3.5117201893934717`*^9,
   3.5117201893934717`*^9}, {3.513095241718216*^9, 3.513095242088216*^9},
   3.514142335340435*^9, {3.5141424490905943`*^9, 3.51414246048061*^9}, {
   3.514743996101736*^9, 3.5147439975317383`*^9}, {3.5147440486318097`*^9,
   3.514744051131813*^9}, {3.5147478342170925`*^9, 3.5147478342170925`*^9}, {
   3.514750376522465*^9, 3.5147503771424665`*^9}, {3.514846444067275*^9,
   3.514846444067275*^9}, {3.516667472845967*^9, 3.516667473703968*^9}, {
   3.51684679198973*^9, 3.516846798265088*^9}, {3.545415861632052*^9,
   3.545415862724054*^9}, {3.545430100045179*^9, 3.54543010057518*^9}, {
   3.5461064498996205`*^9, 3.5461064498996205`*^9}, {3.5462067963764515`*^9,
   3.5462067963764515`*^9}, {3.546533430096388*^9, 3.546533430396388*^9}, {
   3.5465335834566026`*^9, 3.5465335834566026`*^9}, {3.5465380436628466`*^9,
   3.5465380436628466`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "+", "1"}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{"m", "+", "2"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"m", "+", "2"}]], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "+",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "+",
          SuperscriptBox["b", "2"]}], ")"}],
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], "+",
       RowBox[{"2", " ", "a", " ", "b", " ",
        RowBox[{"(",
         RowBox[{"m", "+", "2"}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5098355380753117`*^9, 3.509835661752329*^9}, {3.509835695323588*^9,
   3.509835698927194*^9}, {3.50983577051572*^9, 3.5098358512614617`*^9}, {
   3.5101827368266892`*^9, 3.510182745344304*^9}, {3.5101829999523516`*^9,
   3.510183019686386*^9}, {3.5141418979198227`*^9, 3.5141419241998596`*^9}, {
   3.5147435787611513`*^9, 3.5147435797411532`*^9}, {3.5147476814772243`*^9,
   3.514747716062485*^9}, {3.5151681708944454`*^9, 3.5151681725644474`*^9}, {
   3.5168440232983694`*^9, 3.51684405670028*^9}, {3.5168440956495075`*^9,
   3.5168441158936653`*^9}, 3.546106235056043*^9, {3.5461063609170647`*^9,
   3.546106405517543*^9}, 3.5461064579336348`*^9, 3.5462068181864815`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5003184730429688`*^9, 3.50031848112298*^9}, {
   3.5147491445027356`*^9, 3.514749148342741*^9}, {3.5147494086131053`*^9,
   3.5147494108531084`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"b", "^", "2"}]}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "2"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "^", "2"}], "+",
           RowBox[{
            RowBox[{"(",
             RowBox[{
              RowBox[{"a", "^", "2"}], "+",
              RowBox[{"b", "^", "2"}]}], ")"}], "*",
            RowBox[{"(",
             RowBox[{"m", "+", "1"}], ")"}]}], "+",
           RowBox[{"2", "*", "a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"m", "+", "2"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "\[GreaterEqual]",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, {3.4993575889901257`*^9,
   3.4993576670838633`*^9}, {3.499365544950614*^9, 3.4993655661406436`*^9}, {
   3.4993657073008413`*^9, 3.499365707870842*^9}, 3.4993699181547637`*^9, {
   3.5003179803689146`*^9, 3.500317981117716*^9}, {3.5003185042030125`*^9,
   3.5003185122330236`*^9}, {3.500319341644185*^9, 3.500319361824213*^9}, {
   3.5003214645171566`*^9, 3.500321470987166*^9}, {3.500432015647513*^9,
   3.5004320167615767`*^9}, {3.501043209599528*^9, 3.5010432350499835`*^9},
   3.5026771020013933`*^9, {3.502677180841504*^9, 3.5026772181615562`*^9}, {
   3.502677352241744*^9, 3.5026773539717464`*^9}, 3.5027670707255077`*^9, {
   3.503071968728242*^9, 3.503071977848255*^9}, 3.5038761956487827`*^9, {
   3.5040290099495783`*^9, 3.504029011478381*^9}, {3.5041565286043806`*^9,
   3.504156530008383*^9}, {3.5042865784817295`*^9, 3.5042866008017607`*^9}, {
   3.5042870585024014`*^9, 3.5042870681924148`*^9}, {3.504287484912998*^9,
   3.504287490763006*^9}, {3.5042940452901697`*^9, 3.5042940507501793`*^9},
   3.5042956788330393`*^9, {3.504296854565608*^9, 3.5042968614056177`*^9}, {
   3.505100941436471*^9, 3.505100953336488*^9}, {3.505101028776593*^9,
   3.5051010300865946`*^9}, 3.505344641403784*^9, {3.5053446931238565`*^9,
   3.5053447150138874`*^9}, 3.5053535519652023`*^9, 3.509472213767294*^9,
   3.509472341770615*^9, {3.5094725099262333`*^9, 3.5094725194427776`*^9},
   3.50947329995942*^9, {3.5094751389386044`*^9, 3.5094751435978703`*^9}, {
   3.5098354697627916`*^9, 3.5098355203848805`*^9}, 3.5098359872937007`*^9, {
   3.5098960849679213`*^9, 3.5098960888835287`*^9}, {3.510182753081918*^9,
   3.510182757356325*^9}, {3.510182792409587*^9, 3.51018279393839*^9}, {
   3.5101831393977966`*^9, 3.510183166900645*^9}, 3.5101832074919157`*^9, {
   3.511230925630887*^9, 3.511231030416271*^9}, {3.511231196884164*^9,
   3.51123121187579*^9}, {3.51137244511103*^9, 3.5113724654451933`*^9}, {
   3.5141421386201596`*^9, 3.5141421590801883`*^9}, {3.51414236028047*^9,
   3.5141423608904705`*^9}, {3.5141424184805517`*^9,
   3.5141424322505703`*^9}, {3.5141460785056753`*^9,
   3.5141460939756975`*^9}, {3.5147439520716743`*^9, 3.514743957471682*^9}, {
   3.5147439903217278`*^9, 3.51474399196173*^9}, {3.514747841127905*^9,
   3.5147478750579643`*^9}, {3.5147491159326954`*^9, 3.514749138692727*^9}, {
   3.5147494142431135`*^9, 3.514749424923128*^9}, {3.5147503475624247`*^9,
   3.5147503486024265`*^9}, {3.5147503951024914`*^9, 3.514750400342499*^9}, {
   3.514750467732593*^9, 3.514750472272599*^9}, {3.514845069856061*^9,
   3.5148450718840647`*^9}, {3.514846430214451*^9, 3.514846438903666*^9}, {
   3.5159782709847507`*^9, 3.5159782725447536`*^9}, {3.516667438541507*^9,
   3.5166674656699543`*^9}, 3.516820655696461*^9, {3.5168437743921328`*^9,
   3.5168437759472218`*^9}, {3.5168442302392054`*^9, 3.516844262995079*^9}, {
   3.5168467726686244`*^9, 3.5168467756947975`*^9}, {3.516846975037199*^9,
   3.5168469753042145`*^9}, 3.5410904438965044`*^9, 3.541090513902627*^9,
   3.5410906443968563`*^9, {3.5454912109010563`*^9, 3.545491210911056*^9}, {
   3.5460408169830155`*^9, 3.5460408196330194`*^9}, 3.5460411154434333`*^9, {
   3.5461059982476273`*^9, 3.5461060224900703`*^9}, 3.546106098384203*^9, {
   3.546106499460908*^9, 3.546106521316546*^9}, {3.546106582843054*^9,
   3.546106645742365*^9}, {3.546106706426471*^9, 3.546106716020488*^9}, {
   3.546206742026375*^9, 3.546206744186378*^9}, {3.5462068004164567`*^9,
   3.546206808326468*^9}, 3.546206847336522*^9, {3.5465334341363935`*^9,
   3.546533434406394*^9}, 3.5465335859866056`*^9, 3.546538046732851*^9,
   3.5479576181733294`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.545496832817238*^9, {3.546106225945627*^9, 3.5461062803429227`*^9},
   3.5461960392762012`*^9, {3.5462067741964197`*^9, 3.5462067744464207`*^9},
   3.546208197008412*^9, 3.5463157402110434`*^9, 3.5465334384263997`*^9,
   3.548177970062831*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "4",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=",
   SuperscriptBox["a", "2"]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=",
   RowBox[{"2", "a", " ", "b"}]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=",
   SuperscriptBox["b", "2"]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9,
   3.5038813546802473`*^9}, {3.5049162938617954`*^9,
   3.5049163006634073`*^9}, {3.5049224814485416`*^9,
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, {
   3.504923521959998*^9, 3.504923555010044*^9}, 3.504923770360346*^9, {
   3.504924121650838*^9, 3.504924125290843*^9}, 3.505345087524409*^9,
   3.512064374152557*^9, {3.545430563525828*^9, 3.545430563525828*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "<",
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.500410576940289*^9, 3.5004105779663477`*^9}, {
   3.5004106327664824`*^9, 3.500410643898119*^9}, {3.500429569940626*^9,
   3.500429571675726*^9}, {3.502204840167862*^9, 3.502204842617066*^9},
   3.5023038294281306`*^9, {3.504362658868907*^9, 3.504362660078909*^9}, {
   3.50436465472136*^9, 3.5043646556213617`*^9}, {3.504839359121956*^9,
   3.5048393791619835`*^9}, {3.504839672312394*^9, 3.5048396733523955`*^9},
   3.5098341584452877`*^9, {3.5101828092264166`*^9, 3.5101828193196344`*^9}, {
   3.511720157673427*^9, 3.5117201786434565`*^9}, {3.514744003801747*^9,
   3.5147440340117893`*^9}, {3.5147478169478626`*^9,
   3.5147478169478626`*^9}, {3.514750371932459*^9, 3.5147503725724597`*^9}, {
   3.516667478009576*^9, 3.5166674796787786`*^9}, {3.516817799992463*^9,
   3.516817803002467*^9}, {3.5168465845798664`*^9, 3.516846584748876*^9}, {
   3.5168467054147778`*^9, 3.5168467143122864`*^9}, {3.5454158569364433`*^9,
   3.545415858231246*^9}, {3.545430095675173*^9, 3.5454300964251738`*^9}, {
   3.5461062883457365`*^9, 3.5461062883457365`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "2"], " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"m", "+", "1"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "1"}]],
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "a", " ", "b", " ",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], "+",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{
             SuperscriptBox["a", "2"], "+",
             SuperscriptBox["b", "2"]}], ")"}], " ",
           RowBox[{"(",
            RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098341849653344`*^9, 3.509834296848731*^9}, {3.5098343294527884`*^9,
   3.509834364194049*^9}, 3.5098346591437674`*^9, {3.5098347856443896`*^9,
   3.5098347898251967`*^9}, {3.5098348311028695`*^9,
   3.5098349107098093`*^9}, {3.5098349437662673`*^9, 3.509834983374737*^9},
   3.5098350560552645`*^9, {3.5098351175973725`*^9, 3.509835139499811*^9},
   3.5098475309589915`*^9, {3.510182683146995*^9, 3.5101826880610037`*^9}, {
   3.5101828251228447`*^9, 3.5101828513152905`*^9}, {3.510182945071455*^9,
   3.5101829454458556`*^9}, {3.5147476258631268`*^9, 3.514747668217201*^9}, {
   3.515168162984434*^9, 3.515168166514439*^9}, {3.5168172892217484`*^9,
   3.516817329061804*^9}, {3.5168173611018486`*^9, 3.5168174045619097`*^9},
   3.546106238332049*^9, {3.54610630159016*^9, 3.5461063479534416`*^9},
   3.546533458646428*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"2", "*", "a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"m", "+", "1"}], ")"}]}], "+",
           RowBox[{
            RowBox[{"(",
             RowBox[{
              RowBox[{"a", "^", "2"}], "+",
              RowBox[{
               RowBox[{"(",
                RowBox[{
                 RowBox[{"a", "^", "2"}], "+",
                 RowBox[{"b", "^", "2"}]}], ")"}], "*",
               RowBox[{"(",
                RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, 3.5098352718192434`*^9, {3.509835307137706*^9,
   3.5098353487273784`*^9}, {3.509847535218998*^9, 3.5098475613690343`*^9}, {
   3.5101827112582445`*^9, 3.510182715657452*^9}, {3.510182781661168*^9,
   3.5101827868091774`*^9}, {3.5101830769696865`*^9, 3.510183111738948*^9}, {
   3.5101832687064238`*^9, 3.5101832709372272`*^9}, {3.5141423751504908`*^9,
   3.5141423757704916`*^9}, {3.5147439123716187`*^9, 3.514743933871649*^9},
   3.5147446642726717`*^9, {3.514747728448907*^9, 3.5147478089606485`*^9}, {
   3.5147490781026425`*^9, 3.514749100622674*^9}, {3.5147503434924192`*^9,
   3.51475034434242*^9}, {3.5147503886824827`*^9, 3.514750391992487*^9}, {
   3.5148450753940706`*^9, 3.5148450784048758`*^9}, 3.5148464258932433`*^9, {
   3.515978258507929*^9, 3.5159782601459317`*^9}, {3.516667408215053*^9,
   3.5166674330346966`*^9}, 3.516817705502331*^9, {3.516817855572541*^9,
   3.516817866932557*^9}, {3.5168430219180937`*^9, 3.5168430349398384`*^9}, {
   3.5168430993135204`*^9, 3.5168431185036182`*^9}, {3.516843294539687*^9,
   3.516843311431653*^9}, {3.5168435329023204`*^9, 3.516843534695423*^9}, {
   3.516846645594356*^9, 3.5168466906729345`*^9}, 3.541090442320902*^9, {
   3.5410905022494063`*^9, 3.541090505775013*^9}, {3.545491210881056*^9,
   3.545491210891056*^9}, {3.546040807493002*^9, 3.5460408098630056`*^9},
   3.5460411063934207`*^9, {3.546105998216427*^9, 3.54610602247447*^9},
   3.5461060983530035`*^9, {3.5461064994453077`*^9, 3.546106521300946*^9}, {
   3.546106582749454*^9, 3.5461066307663383`*^9}, {3.5461066669272017`*^9,
   3.5461066820124283`*^9}, 3.54620686705655*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[NotEqual]", "2"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546209916120819*^9,
   3.546209916120819*^9}, 3.546315250839053*^9, {3.5481778714082575`*^9,
   3.5481778830302777`*^9}, {3.5481779301735606`*^9, 3.5481779523255997`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.548177889379489*^9, 3.548177896914302*^9}, {3.5481779982364798`*^9,
   3.548178004928892*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518923250576*^9, 3.545518930270586*^9},
   3.545520507632794*^9, {3.545529645239874*^9, 3.545529645239874*^9}, {
   3.5455298056500983`*^9, 3.5455298100201044`*^9}, {3.545576232782379*^9,
   3.545576234112381*^9}, {3.5455766240529265`*^9, 3.54557662626293*^9}, {
   3.5455767774631414`*^9, 3.5455767774631414`*^9}, 3.5455787391558876`*^9, {
   3.54558369792283*^9, 3.54558369792283*^9}, 3.545594489353464*^9, {
   3.545594748353827*^9, 3.545594748953828*^9}, {3.5455949452441025`*^9,
   3.5455949460241036`*^9}, {3.545596656906499*^9, 3.545596657126499*^9}, {
   3.545596769036656*^9, 3.545596769036656*^9}, {3.546055330183305*^9,
   3.546055331763307*^9}, {3.546056658255164*^9, 3.546056659885166*^9}, {
   3.546059263352213*^9, 3.546059265128315*^9}, 3.5461915558399243`*^9, {
   3.5461997661014185`*^9, 3.5461997661014185`*^9}, 3.546200542232505*^9, {
   3.5462010127931643`*^9, 3.5462010129631643`*^9}, {3.546205617934801*^9,
   3.546205632094821*^9}, 3.546315693455369*^9, {3.5465325685451813`*^9,
   3.5465325685451813`*^9}, {3.5465392871545877`*^9, 3.546539298064603*^9}, {
   3.546543658868208*^9, 3.5465436699282236`*^9}, {3.5481780127913055`*^9,
   3.548178013680507*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 8 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.504905059830614*^9, 3.5049051008006716`*^9}, {
   3.5049062442122726`*^9, 3.5049062459122753`*^9}, 3.505345087554409*^9,
   3.5120642138723326`*^9, {3.513276979592985*^9, 3.513276981292988*^9}, {
   3.5147754897687864`*^9, 3.5147754924207907`*^9}, {3.515187407180027*^9,
   3.5151874102100315`*^9}, {3.545590336281943*^9, 3.5455903388632736`*^9}, {
   3.5455906008904057`*^9, 3.5455906214425817`*^9}, 3.5455907444744587`*^9, {
   3.548010309860705*^9, 3.548010310300705*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 " , then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018083840990562`*^9,
   3.5018084166251135`*^9}, {3.501909321191126*^9, 3.5019093296931405`*^9}, {
   3.5019839735447097`*^9, 3.5019839735447097`*^9}, {3.5023141785029993`*^9,
   3.502314184165809*^9}, {3.5044889120340166`*^9, 3.504488913014018*^9}, {
   3.5044895507549105`*^9, 3.504489551014911*^9}, 3.5046347745607986`*^9,
   3.504639967338069*^9, {3.504640184428373*^9, 3.504640184428373*^9}, {
   3.504642080291027*^9, 3.504642107451065*^9}, {3.5136572146507573`*^9,
   3.5136572345207853`*^9}, {3.515020577353009*^9, 3.5150206093718405`*^9}, {
   3.516581087830083*^9, 3.5165810976000967`*^9}, {3.5165888639388065`*^9,
   3.5165888651088085`*^9}, {3.54558997173391*^9, 3.5455899737400246`*^9}, {
   3.545591196198854*^9, 3.5455912226088905`*^9}, {3.545609031973376*^9,
   3.5456090340914965`*^9}, {3.5465393362746563`*^9,
   3.5465393362746563`*^9}, {3.5465393899447317`*^9,
   3.5465393901347322`*^9}, {3.546543678738236*^9, 3.546543678738236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], " ",
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"a", " ", "n"}],
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]", " ",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501807660242185*^9, 3.5018076682761993`*^9}, {3.5018077767119894`*^9,
   3.5018078381604977`*^9}, {3.501807870358954*^9, 3.5018078706397543`*^9}, {
   3.5018080658428974`*^9, 3.501808079789322*^9}, {3.5018081845435057`*^9,
   3.501808206165144*^9}, {3.5018082365851974`*^9, 3.501808240376004*^9}, {
   3.5019090910439215`*^9, 3.501909180416478*^9}, {3.5019092487601986`*^9,
   3.501909263205824*^9}, {3.513310738333043*^9, 3.5133107581450777`*^9}, {
   3.5136563411395345`*^9, 3.5136563434595375`*^9}, {3.5151868255592127`*^9,
   3.5151868309792204`*^9}, {3.5165811299001417`*^9, 3.516581145900164*^9}, {
   3.516581246990306*^9, 3.516581253790315*^9}, 3.5455898387472067`*^9, {
   3.5455899133734703`*^9, 3.5455899303174086`*^9}, {3.5455911509487906`*^9,
   3.545591182528835*^9}, 3.546539398824744*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{"a", "*",
     RowBox[{"n", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "0"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9, 3.5018079845979548`*^9},
   3.501808368327429*^9, {3.5018084216015224`*^9, 3.501808427217532*^9}, {
   3.501819528072632*^9, 3.50181953253424*^9}, {3.5018203432520638`*^9,
   3.501820344032065*^9}, {3.501881265548032*^9, 3.5018812668180337`*^9},
   3.5019094303913174`*^9, {3.5019094896870213`*^9, 3.5019094990938377`*^9},
   3.501909788474346*^9, {3.501952314796136*^9, 3.5019523154061365`*^9}, {
   3.50195238883624*^9, 3.501952414636276*^9}, {3.5023141622789707`*^9,
   3.5023141666469784`*^9}, 3.504640147588321*^9, {3.505156055586641*^9,
   3.5051560561666417`*^9}, {3.513310809921569*^9, 3.5133108268631983`*^9}, {
   3.513443376187376*^9, 3.5134433763373766`*^9}, {3.5136568597602606`*^9,
   3.51365687359028*^9}, {3.513656910050331*^9, 3.5136569129003353`*^9}, {
   3.515020222395707*^9, 3.5150202815780916`*^9}, {3.5150203401634426`*^9,
   3.51502035410324*^9}, {3.515020430528611*^9, 3.515020436192935*^9}, {
   3.515020525289031*^9, 3.51502052894024*^9}, {3.5152795782802167`*^9,
   3.5152795811002207`*^9}, {3.516581465630612*^9, 3.5165814698006177`*^9},
   3.5165888581087985`*^9, 3.541089177466281*^9, 3.5410892713316455`*^9,
   3.545583327762312*^9, 3.5455860322101*^9, {3.5455912822889743`*^9,
   3.5455913159390216`*^9}, {3.545591695749553*^9, 3.545591704069565*^9}, {
   3.5456090208697405`*^9, 3.545609023013863*^9}, {3.546539315794628*^9,
   3.5465393556246834`*^9}, {3.5465436842082434`*^9, 3.546543686278247*^9}, {
   3.548178081587426*^9, 3.548178082398628*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518923250576*^9, 3.545518930270586*^9},
   3.545520507632794*^9, {3.545529645239874*^9, 3.545529645239874*^9}, {
   3.5455298056500983`*^9, 3.5455298100201044`*^9}, {3.545576232782379*^9,
   3.545576234112381*^9}, {3.5455766240529265`*^9, 3.54557662626293*^9}, {
   3.5455767774631414`*^9, 3.5455767774631414`*^9}, 3.5455787391558876`*^9, {
   3.54558369792283*^9, 3.54558369792283*^9}, 3.545594489353464*^9, {
   3.545594748353827*^9, 3.545594748953828*^9}, {3.5455949452441025`*^9,
   3.5455949460241036`*^9}, {3.545596656906499*^9, 3.545596657126499*^9}, {
   3.545596769036656*^9, 3.545596769036656*^9}, {3.546055330183305*^9,
   3.546055331763307*^9}, {3.546056658255164*^9, 3.546056659885166*^9}, {
   3.546059263352213*^9, 3.546059265128315*^9}, 3.5461915558399243`*^9, {
   3.5461997661014185`*^9, 3.5461997661014185`*^9}, 3.546200542232505*^9, {
   3.5462010127931643`*^9, 3.5462010129631643`*^9}, {3.546205617934801*^9,
   3.546205632094821*^9}, 3.546315693455369*^9, {3.5465325685451813`*^9,
   3.5465325685451813`*^9}, {3.5465392908945932`*^9,
   3.5465392913945937`*^9}, {3.5465437007682667`*^9,
   3.5465437070582757`*^9}, {3.5481780167069125`*^9, 3.5481780177521143`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.551.1 inverted", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9, {
   3.4979864571349983`*^9, 3.4979864574937987`*^9}, {3.505354465216481*^9,
   3.5053544654264812`*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]],
 ", and ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.501729652057078*^9}, {3.5029994366665936`*^9,
   3.502999483496659*^9}, 3.5029995988368206`*^9, 3.5053451043744326`*^9,
   3.512064350982525*^9, {3.5454308824962745`*^9, 3.5454308914262867`*^9}, {
   3.545716086802712*^9, 3.545716086802712*^9}, {3.545716933554144*^9,
   3.545716933554144*^9}, {3.548010311360707*^9, 3.548010311690707*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 3 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, 3.5053451233044586`*^9, 3.5120642388423676`*^9, {
   3.545576495082746*^9, 3.5455765281027927`*^9}, {3.545594710173774*^9,
   3.545594712783777*^9}, {3.548010109300424*^9, 3.548010110070425*^9}, {
   3.548010312720709*^9, 3.548010313100709*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.5004322533111067`*^9,
   3.5004322794606023`*^9}, {3.5030203943207865`*^9,
   3.5030203943207865`*^9}, {3.5043646078512945`*^9, 3.504364638711338*^9},
   3.504471249250667*^9, {3.504983297263383*^9, 3.504983298043384*^9}, {
   3.505185059347052*^9, 3.5051850634142847`*^9}, {3.510010655210175*^9,
   3.510010661460184*^9}, {3.5105052330331697`*^9, 3.510505233813171*^9}, {
   3.512186750070178*^9, 3.51218675138058*^9}, {3.512254288430264*^9,
   3.512254290224267*^9}, 3.5122690611683536`*^9, {3.5130527066400003`*^9,
   3.5130527081400023`*^9}, {3.5146063962581987`*^9, 3.514606396468199*^9}, {
   3.5146464410883884`*^9, 3.514646442367591*^9}, {3.514649252462927*^9,
   3.514649254662531*^9}, {3.514649331024665*^9, 3.514649332132267*^9}, {
   3.514650269428713*^9, 3.514650269428713*^9}, {3.5146527184176073`*^9,
   3.5146527186776075`*^9}, {3.514839598647603*^9, 3.514839599187604*^9}, {
   3.514842893279436*^9, 3.514842893279436*^9}, 3.516552160896055*^9, {
   3.516552825434822*^9, 3.5165528261056232`*^9}, {3.5165560194164267`*^9,
   3.5165560202432284`*^9}, {3.516590317298932*^9, 3.5165903179789333`*^9}, {
   3.5455765935628843`*^9, 3.5455766009728947`*^9}, {3.5455766489129615`*^9,
   3.5455766489129615`*^9}, {3.545576789523158*^9, 3.545576789523158*^9}, {
   3.5455837005028334`*^9, 3.5455837005028334`*^9}, {3.5455947444638214`*^9,
   3.5455947450638227`*^9}, {3.545596759116642*^9, 3.5455967635166483`*^9}, {
   3.546205678984887*^9, 3.546205678984887*^9}, {3.546543712278283*^9,
   3.546543712278283*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], " ",
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["n",
    RowBox[{"n", "+", "1"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{"b", "+",
       RowBox[{"a", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9},
   3.4979862241517887`*^9, {3.497986268845867*^9, 3.4979862970039167`*^9},
   3.4979902514328623`*^9, 3.5053446405637827`*^9, {3.505344690713853*^9,
   3.505344714183886*^9}, 3.505352022693062*^9, {3.509895269213724*^9,
   3.5098952711637273`*^9}, {3.5122692616086345`*^9, 3.512269267248642*^9}, {
   3.515188024323316*^9, 3.515188026363319*^9}, {3.516551821731059*^9,
   3.5165518580747232`*^9}, {3.5165519661609135`*^9, 3.5165520026337776`*^9},
   3.516552122941189*^9, {3.516552341113172*^9, 3.516552355215597*^9},
   3.5165527682027216`*^9, {3.5455765405528097`*^9, 3.545576569942851*^9}, {
   3.545594486773461*^9, 3.5455945392735343`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"n", "/",
      RowBox[{"(",
       RowBox[{"n", "+", "1"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{"b", "+",
           RowBox[{"a", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "0"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4979862253061905`*^9, {
   3.497986271107871*^9, 3.497986297799518*^9}, 3.497986386903675*^9,
   3.4986794582767816`*^9, {3.500419863725463*^9, 3.5004198652605505`*^9},
   3.5004202566819386`*^9, {3.500432258158384*^9, 3.5004322592084436`*^9},
   3.503020185000493*^9, 3.503020369830752*^9, {3.5030725476090527`*^9,
   3.5030725694590836`*^9}, 3.503876142483889*^9, {3.505185046002289*^9,
   3.5051850551548123`*^9}, 3.505344640573783*^9, {3.5053446907338533`*^9,
   3.505344714193886*^9}, 3.505352025233065*^9, 3.5087829424446387`*^9, {
   3.509895272053728*^9, 3.509895275953734*^9}, 3.510433804704217*^9,
   3.510513659779171*^9, 3.511807932152954*^9, {3.5121872577122717`*^9,
   3.512187260473477*^9}, {3.5122693811788015`*^9, 3.5122693823488035`*^9},
   3.5130467260581713`*^9, 3.5130480309114447`*^9, {3.5144150721536956`*^9,
   3.514415073159753*^9}, 3.5144740613848653`*^9, 3.5146137080368123`*^9,
   3.5146497442693906`*^9, {3.514650251285881*^9, 3.514650252190683*^9},
   3.514842982948394*^9, 3.516552174312079*^9, 3.516552233577783*^9, {
   3.516560441226583*^9, 3.516560442318585*^9}, {3.51656050240749*^9,
   3.516560503437092*^9}, 3.5410902439697533`*^9, 3.5410961737973623`*^9,
   3.5410962680995274`*^9, {3.5455767928731627`*^9, 3.545576814273193*^9}, {
   3.545581036459104*^9, 3.545581037019105*^9}, {3.545581107879204*^9,
   3.545581111439209*^9}, {3.545581145159256*^9, 3.545581155619271*^9},
   3.5455837025528364`*^9, 3.545585543269416*^9, {3.545594572493581*^9,
   3.545594612163636*^9}, {3.545596739226614*^9, 3.5455967491866283`*^9}, {
   3.546124908273421*^9, 3.5461249082834206`*^9}, {3.5461249495534787`*^9,
   3.5461249495634785`*^9}, {3.5462059190952225`*^9,
   3.5462059210052257`*^9}, {3.5465437168882895`*^9, 3.546543718708292*^9},
   3.5473432373811407`*^9, {3.548178087577837*^9, 3.5481780883422384`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546209916120819*^9,
   3.546209916120819*^9}, 3.546315250839053*^9, {3.548177890908292*^9,
   3.548177891095492*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, 3.5454967731271544`*^9,
   3.5455888003097982`*^9, 3.5460547400024786`*^9, 3.5461915282898855`*^9,
   3.5461929509218774`*^9, 3.5461931858622065`*^9, {3.5461934507925773`*^9,
   3.5461934509125776`*^9}, 3.5462103314614*^9, 3.5463158337863955`*^9, {
   3.546315866715279*^9, 3.546315866944292*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, 3.4976636252234545`*^9, {3.4979864214265356`*^9,
   3.497986422409337*^9}, {3.4979866389377174`*^9, 3.49798665193254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["z",
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}]], "\[Equal]",
   RowBox[{
    FractionBox["1", "b"], "-",
    FractionBox["a",
     RowBox[{"b",
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9,
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9,
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9,
   3.508432308345225*^9}, {3.5166724284966736`*^9, 3.51667246652954*^9}, {
   3.544997603799053*^9, 3.5449976318635025`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.5449819212033024`*^9, 3.5449819218033037`*^9}, {
   3.5449906023954563`*^9, 3.5449906023954563`*^9}, 3.545588815516595*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["x", "b"]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979862492990327`*^9,
   3.4979862502662344`*^9}, {3.497987000218752*^9, 3.4979870022311554`*^9}, {
   3.500427423095834*^9, 3.5004274236088634`*^9}, {3.5004275574055157`*^9,
   3.5004276042171936`*^9}, {3.5004328122050734`*^9, 3.500432862882972*^9},
   3.500577560076061*^9, {3.5005776542858267`*^9, 3.5005776585134335`*^9}, {
   3.5005778782474194`*^9, 3.5005778816794252`*^9}, {3.5005831554094906`*^9,
   3.500583168763114*^9}, {3.5083582601079473`*^9, 3.5083582791879745`*^9}, {
   3.5084321966550684`*^9, 3.508432242745133*^9}, {3.508435338515481*^9,
   3.5084353396954823`*^9}, {3.5098472024485316`*^9,
   3.5098472051185355`*^9}, {3.515167836293977*^9, 3.51516784604399*^9},
   3.5159777406654205`*^9, {3.5166723560345464`*^9, 3.5166724183722563`*^9},
   3.544997759206526*^9, {3.5449977999693975`*^9, 3.5449978189078307`*^9},
   3.545067683873373*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"x", "/", "b"}], " ", "-", " ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.497986253963441*^9,
   3.4979862552738433`*^9}, 3.4979863375295877`*^9, {3.497986505495083*^9,
   3.497986507819487*^9}, {3.49798706165166*^9, 3.497987068765272*^9}, {
   3.497987706708393*^9, 3.497987708642796*^9}, {3.4979879276983805`*^9,
   3.497987930365986*^9}, 3.4979880679114275`*^9, 3.498497171646879*^9, {
   3.5004276750552454`*^9, 3.5004276923832364`*^9}, {3.500427741061021*^9,
   3.5004277415710497`*^9}, 3.5004329174270916`*^9, {3.500432950987011*^9,
   3.500433005771145*^9}, {3.5005779794447966`*^9, 3.5005780180236645`*^9},
   3.500578063248144*^9, 3.500578099767808*^9, {3.5005832139251933`*^9,
   3.500583240086439*^9}, {3.5083587271786013`*^9, 3.5083587379086165`*^9}, {
   3.508358813958723*^9, 3.508358816458727*^9}, {3.508432384255331*^9,
   3.508432444825416*^9}, {3.5084330622062807`*^9, 3.5084330632262816`*^9}, {
   3.5084353403254833`*^9, 3.508435341415485*^9}, {3.5098472081385393`*^9,
   3.5098472109985437`*^9}, {3.516672495249191*^9, 3.516672499991599*^9}, {
   3.516672547649683*^9, 3.516672555777297*^9}, {3.5449838311659765`*^9,
   3.5449838325859785`*^9}, 3.5449980561374474`*^9, {3.5449980913623095`*^9,
   3.5449981028751297`*^9}, {3.5449981342779846`*^9, 3.544998141890798*^9},
   3.5450676861433764`*^9, 3.545588809263237*^9, {3.5461249077034197`*^9,
   3.54612490771342*^9}, {3.546124948993478*^9, 3.546124949003478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.5449979068763857`*^9, {3.54499883159921*^9,
   3.54499883177081*^9}, {3.5450711521182284`*^9, 3.5450711580382366`*^9},
   3.5454967768371596`*^9, 3.5460548083325744`*^9, 3.546191534369894*^9,
   3.5461955167054696`*^9, 3.5461956055655937`*^9, 3.546210166451169*^9,
   3.546211338892811*^9, 3.5463158328063393`*^9, {3.5463158682603674`*^9,
   3.5463158684293776`*^9}, 3.5465316301538677`*^9, 3.5465424581965275`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, 3.4976636252234545`*^9, {3.4979864214265356`*^9,
   3.497986422409337*^9}, {3.4979866389377174`*^9, 3.49798665193254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["z",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ", "z"}]}]]], "\[Equal]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}]], "b"], "-",
    FractionBox["a",
     RowBox[{"b",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}]]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9,
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9,
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9,
   3.508432308345225*^9}, {3.5166724284966736`*^9, 3.51667246652954*^9}, {
   3.5449976402719173`*^9, 3.544997641145519*^9}, {3.5450712053383026`*^9,
   3.5450712400083513`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.5449819212033024`*^9, 3.5449819218033037`*^9}, {
   3.5449906023954563`*^9, 3.5449906023954563`*^9}, 3.5465424619565325`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "b"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979862492990327`*^9,
   3.4979862502662344`*^9}, {3.497987000218752*^9, 3.4979870022311554`*^9}, {
   3.500427423095834*^9, 3.5004274236088634`*^9}, {3.5004275574055157`*^9,
   3.5004276042171936`*^9}, {3.5004328122050734`*^9, 3.500432862882972*^9},
   3.500577560076061*^9, {3.5005776542858267`*^9, 3.5005776585134335`*^9}, {
   3.5005778782474194`*^9, 3.5005778816794252`*^9}, {3.5005831554094906`*^9,
   3.500583168763114*^9}, {3.5083582601079473`*^9, 3.5083582791879745`*^9}, {
   3.5084321966550684`*^9, 3.508432242745133*^9}, {3.508435338515481*^9,
   3.5084353396954823`*^9}, {3.5098472024485316`*^9,
   3.5098472051185355`*^9}, {3.515167836293977*^9, 3.51516784604399*^9},
   3.5159777406654205`*^9, {3.5166723560345464`*^9, 3.5166724183722563`*^9}, {
   3.5449978875323515`*^9, 3.544997897531969*^9}, {3.5450711604882402`*^9,
   3.54507118896828*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], ",", "x"}], "]"}]}],
    " ", "-", " ", "\n", "  ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.497986253963441*^9,
   3.4979862552738433`*^9}, 3.4979863375295877`*^9, {3.497986505495083*^9,
   3.497986507819487*^9}, {3.49798706165166*^9, 3.497987068765272*^9}, {
   3.497987706708393*^9, 3.497987708642796*^9}, {3.4979879276983805`*^9,
   3.497987930365986*^9}, 3.4979880679114275`*^9, 3.498497171646879*^9, {
   3.5004276750552454`*^9, 3.5004276923832364`*^9}, {3.500427741061021*^9,
   3.5004277415710497`*^9}, 3.5004329174270916`*^9, {3.500432950987011*^9,
   3.500433005771145*^9}, {3.5005779794447966`*^9, 3.5005780180236645`*^9},
   3.500578063248144*^9, 3.500578099767808*^9, {3.5005832139251933`*^9,
   3.500583240086439*^9}, {3.5083587271786013`*^9, 3.5083587379086165`*^9}, {
   3.508358813958723*^9, 3.508358816458727*^9}, {3.508432384255331*^9,
   3.508432444825416*^9}, {3.5084330622062807`*^9, 3.5084330632262816`*^9}, {
   3.5084353403254833`*^9, 3.508435341415485*^9}, {3.5098472081385393`*^9,
   3.5098472109985437`*^9}, {3.516672495249191*^9, 3.516672499991599*^9}, {
   3.516672547649683*^9, 3.516672555777297*^9}, {3.5449838311659765`*^9,
   3.5449838325859785`*^9}, 3.5449977109400415`*^9, {3.5449979171724033`*^9,
   3.544997929590025*^9}, {3.5450712581383767`*^9, 3.54507130316844*^9},
   3.5450912440023603`*^9, {3.5461249078534203`*^9, 3.5461249078634205`*^9}, {
   3.546124949133478*^9, 3.546124949143478*^9}, 3.546542464946537*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546209916120819*^9,
   3.546209916120819*^9}, 3.546315250839053*^9, {3.546539583965003*^9,
   3.546539614555046*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518923250576*^9, 3.545518930270586*^9},
   3.545520507632794*^9, {3.545529645239874*^9, 3.545529645239874*^9}, {
   3.5455298056500983`*^9, 3.5455298100201044`*^9}, {3.545576232782379*^9,
   3.545576234112381*^9}, {3.5455787349658823`*^9, 3.545578737405885*^9}, {
   3.5455925746507835`*^9, 3.5455925850107985`*^9}, {3.5455949478441067`*^9,
   3.545594947984106*^9}, {3.5455966616065054`*^9, 3.545596661876506*^9}, {
   3.5460553332533092`*^9, 3.5460553344733105`*^9}, {3.5460566614051685`*^9,
   3.546056663145171*^9}, {3.546059266411388*^9, 3.546059267393444*^9},
   3.546191557179926*^9, 3.546209912600814*^9, {3.546315835044468*^9,
   3.546315839645731*^9}, {3.5465395890850105`*^9, 3.546539592065015*^9}, {
   3.5465396501250963`*^9, 3.546539663885115*^9}, {3.548178144611537*^9,
   3.5481781519747505`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 7 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.504905059830614*^9, 3.5049051008006716`*^9}, {
   3.5049062442122726`*^9, 3.5049062459122753`*^9}, 3.505345087554409*^9,
   3.5120642138723326`*^9, {3.513276979592985*^9, 3.513276981292988*^9}, {
   3.5147754897687864`*^9, 3.5147754924207907`*^9}, {3.515187407180027*^9,
   3.5151874102100315`*^9}, {3.545590336281943*^9, 3.5455903388632736`*^9}, {
   3.5455906008904057`*^9, 3.5455906214425817`*^9}, {3.5480103140207105`*^9,
   3.548010314380711*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, 3.501812773952368*^9, {
   3.5018130124143867`*^9, 3.501813024192407*^9}, {3.5019838990946054`*^9,
   3.5019838990946054`*^9}, {3.502313537248273*^9, 3.502313540056278*^9}, {
   3.5032786865960426`*^9, 3.5032786865960426`*^9}, {3.5044889074240103`*^9,
   3.5044889083740115`*^9}, {3.5044895485049076`*^9, 3.504489548704908*^9},
   3.504634772030795*^9, {3.5046385957061486`*^9, 3.504638598326152*^9}, {
   3.5046401693283515`*^9, 3.50464017514836*^9}, {3.513608365525629*^9,
   3.513608365525629*^9}, 3.5136563676795716`*^9, {3.51365715249067*^9,
   3.5136571548506737`*^9}, {3.516580809709694*^9, 3.5165808219197106`*^9}, {
   3.5165888909288445`*^9, 3.5165888916588454`*^9}, {3.5455899656415615`*^9,
   3.545589967494667*^9}, {3.54559076137965*^9, 3.545590772488285*^9}, {
   3.5455908140271063`*^9, 3.5455908272605677`*^9}, {3.5455909389964366`*^9,
   3.545590940544525*^9}, {3.546539693805157*^9, 3.546539699255165*^9}, {
   3.5481781585423613`*^9, 3.5481781585423613`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], " ",
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        RowBox[{"-",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["n",
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.510172397162881*^9, 3.5101724322785425`*^9}, {
   3.513277045993078*^9, 3.5132771366732054`*^9}, {3.5132772238133273`*^9,
   3.5132772240033274`*^9}, {3.513277256793373*^9, 3.513277286693415*^9},
   3.513277413733593*^9, {3.51330998524172*^9, 3.513310050184634*^9}, {
   3.5133101228963623`*^9, 3.5133101670756397`*^9}, {3.5133102640142097`*^9,
   3.513310371139598*^9}, {3.5136563252795124`*^9, 3.5136563276995153`*^9}, {
   3.5151867442090993`*^9, 3.5151867502591076`*^9}, 3.5165805874793825`*^9, {
   3.516580641599458*^9, 3.51658065009947*^9}, {3.5165806845495186`*^9,
   3.516580708119551*^9}, 3.516580995399954*^9, 3.545589835340012*^9, {
   3.5455898894586487`*^9, 3.5455899037204647`*^9}, 3.545590636117896*^9, {
   3.5455906799786215`*^9, 3.5455907174839272`*^9}, 3.5455911472687855`*^9,
   3.546539716565189*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"n", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018131102889585`*^9, 3.501813151972232*^9}, {
   3.501813189599498*^9, 3.501813190332699*^9}, 3.5018608913295975`*^9, {
   3.501881991209048*^9, 3.5018819919590487`*^9}, 3.501983907934618*^9, {
   3.5023135306806617`*^9, 3.502313531320263*^9}, 3.502313932521767*^9, {
   3.50327869079245*^9, 3.5032786910264506`*^9}, 3.50328228357796*^9, {
   3.504638590276141*^9, 3.504638590506141*^9}, 3.5046397563877735`*^9, {
   3.504640119538282*^9, 3.504640131848299*^9}, {3.5051560518666353`*^9,
   3.5051560525466366`*^9}, {3.513310388939229*^9, 3.513310421964487*^9}, {
   3.513608369566036*^9, 3.5136083698936367`*^9}, {3.513656455929695*^9,
   3.5136564647497077`*^9}, {3.516588770868676*^9, 3.516588772118678*^9},
   3.5410891721778717`*^9, 3.541089263516032*^9, 3.545583327762312*^9,
   3.5455860321701*^9, {3.545590883846282*^9, 3.5455909188712854`*^9}, {
   3.545591288548983*^9, 3.5455912889689837`*^9}, {3.5465396297750673`*^9,
   3.546539632515071*^9}, {3.546539747195232*^9, 3.5465397526652393`*^9}, {
   3.548178107358672*^9, 3.548178108606674*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518923250576*^9, 3.545518930270586*^9},
   3.545520507632794*^9, {3.545529645239874*^9, 3.545529645239874*^9}, {
   3.5455298056500983`*^9, 3.5455298100201044`*^9}, {3.545576232782379*^9,
   3.545576234112381*^9}, {3.5455787349658823`*^9, 3.545578737405885*^9}, {
   3.5455925746507835`*^9, 3.5455925850107985`*^9}, {3.5455949478441067`*^9,
   3.545594947984106*^9}, {3.5455966616065054`*^9, 3.545596661876506*^9}, {
   3.5460553332533092`*^9, 3.5460553344733105`*^9}, {3.5460566614051685`*^9,
   3.546056663145171*^9}, {3.546059266411388*^9, 3.546059267393444*^9},
   3.546191557179926*^9, 3.546209912600814*^9, {3.546315835044468*^9,
   3.546315839645731*^9}, {3.5465395890850105`*^9, 3.546539592065015*^9}, {
   3.548178162255168*^9, 3.548178166186375*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.551.1", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.4979864629538083`*^9, 3.4979864631566086`*^9}, {
   3.505354450536461*^9, 3.505354450786461*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 1 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, 3.505345087554409*^9, 3.5120642144023333`*^9, {
   3.5455763598025565`*^9, 3.5455763991826115`*^9}, {3.5455923006504*^9,
   3.5455923155804214`*^9}, {3.5480101995905504`*^9, 3.5480102067705603`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.504364584041261*^9, 3.504364585481263*^9}, {
   3.5043646357213335`*^9, 3.5043646359213343`*^9}, {3.5043679570379877`*^9,
   3.504367958197989*^9}, 3.5049832861833677`*^9, 3.5049833569634666`*^9, {
   3.5051849569721966`*^9, 3.5051849812355843`*^9}, {3.5105052297883635`*^9,
   3.5105052302875643`*^9}, {3.512186737480956*^9, 3.51218673982096*^9}, {
   3.512254301019486*^9, 3.512254302283088*^9}, 3.512269040108324*^9, {
   3.5130526959899855`*^9, 3.5130526974799876`*^9}, {3.5144328618769655`*^9,
   3.5144328644041696`*^9}, {3.514612683661013*^9, 3.5146126839574137`*^9}, {
   3.514839541717523*^9, 3.5148395419375234`*^9}, {3.516553407655444*^9,
   3.516553423973073*^9}, {3.5165560160468206`*^9, 3.5165560163900213`*^9},
   3.5165903139089274`*^9, {3.545576209372346*^9, 3.5455762197223606`*^9}, {
   3.545576267002427*^9, 3.5455762671924267`*^9}, {3.5455925789107895`*^9,
   3.545592579770791*^9}, {3.548178170226782*^9, 3.548178170226782*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], " ",
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
         RowBox[{"n", "+", "1"}]]}],
       RowBox[{"d", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], " ",
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "-",
          SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}], "-",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}], " ",
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], "-",
       RowBox[{"a",
        RowBox[{"(",
         RowBox[{"n", "+", "2"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9},
   3.4979862241517887`*^9, {3.497986268845867*^9, 3.4979862970039167`*^9},
   3.4979902514328623`*^9, 3.5053446405637827`*^9, {3.505344690713853*^9,
   3.505344714183886*^9}, 3.505352022693062*^9, {3.509895269213724*^9,
   3.5098952711637273`*^9}, {3.5122692616086345`*^9, 3.512269267248642*^9}, {
   3.515188024323316*^9, 3.515188026363319*^9}, {3.516551821731059*^9,
   3.5165518580747232`*^9}, {3.5165519661609135`*^9, 3.5165520026337776`*^9},
   3.516552122941189*^9, {3.516552341113172*^9, 3.516552355215597*^9},
   3.5165527682027216`*^9, {3.5165530664828453`*^9, 3.5165530855148783`*^9}, {
   3.516553126870551*^9, 3.516553157540205*^9}, {3.545576086822174*^9,
   3.5455761241522264`*^9}, 3.54557620502234*^9, {3.5455923280404387`*^9,
   3.5455923986905375`*^9}, {3.545719460754691*^9, 3.54571946667703*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}]}], "-",
           RowBox[{"a", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "2"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9,
   3.4979862281609955`*^9, {3.4979862780186834`*^9, 3.4979862991255207`*^9},
   3.4979863964508915`*^9, {3.497990453203616*^9, 3.497990473936053*^9},
   3.4986794274067383`*^9, {3.498763920866046*^9, 3.4987639593560996`*^9}, {
   3.4991312222624083`*^9, 3.49913122341241*^9}, {3.5010427775038137`*^9,
   3.501042778515871*^9}, {3.5030725326890316`*^9, 3.5030725406290426`*^9},
   3.5038761341846743`*^9, 3.5043679506879787`*^9, {3.5051850204098253`*^9,
   3.505185024399053*^9}, 3.5053446405137825`*^9, {3.5053446906538534`*^9,
   3.505344714143886*^9}, 3.5053519910530176`*^9, 3.508782980727106*^9, {
   3.5098952623037148`*^9, 3.509895264533718*^9}, 3.510433803854216*^9,
   3.5105126206769457`*^9, 3.511808081063163*^9, {3.51218729646274*^9,
   3.5121872973831415`*^9}, 3.5130466567580743`*^9, 3.5130480542714767`*^9, {
   3.514432838336524*^9, 3.5144328412381287`*^9}, 3.5144740905881166`*^9,
   3.514613689160779*^9, {3.5165555422003884`*^9, 3.516555563619226*^9},
   3.5410902396641455`*^9, 3.54109616682415*^9, 3.5410962611263156`*^9, {
   3.5455761395922484`*^9, 3.5455761481322603`*^9}, {3.545576180412306*^9,
   3.5455761956523266`*^9}, {3.5455809352489624`*^9, 3.545580939498968*^9}, {
   3.5455810333890996`*^9, 3.5455810340591006`*^9}, 3.5455855432194157`*^9, {
   3.545592432150584*^9, 3.54559247903065*^9}, 3.5455925231307116`*^9, {
   3.5457194734034147`*^9, 3.5457194825339365`*^9}, {3.546124908303421*^9,
   3.5461249083134212`*^9}, {3.546124949583479*^9, 3.546124949593479*^9}, {
   3.5481781161570873`*^9, 3.548178117295889*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "\[NotEqual]", "2"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9, {3.5481783405946817`*^9, 3.548178342232684*^9}, {
   3.5481786150459633`*^9, 3.5481786150459633`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168914054604`*^9, 3.545416903979083*^9}, {
   3.5454169758952093`*^9, 3.545416976082409*^9}, {3.5454170486069365`*^9,
   3.5454170486069365`*^9}, 3.5454968423372517`*^9, {3.545610761413294*^9,
   3.54561076239135*^9}, {3.546061556769389*^9, 3.546061575684471*^9}, {
   3.5460616158377676`*^9, 3.5460616160207777`*^9}, {3.5460622992488565`*^9,
   3.5460622992488565`*^9}, 3.5461915595099297`*^9, {3.5462000367717977`*^9,
   3.5462000367717977`*^9}, 3.5462007576728067`*^9, {3.5462017312041698`*^9,
   3.54620173143417*^9}, 3.5463157048570213`*^9, {3.5465328013055077`*^9,
   3.5465328013055077`*^9}, {3.5465372255317016`*^9, 3.546537225741702*^9}, {
   3.5465442461790304`*^9, 3.5465442613390512`*^9}, {3.5481783436678867`*^9,
   3.5481783511871*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.501729725689207*^9,
   3.5017297313520174`*^9}, 3.501729800304138*^9, 3.5053451043644323`*^9,
   3.512064350632524*^9, {3.5454312604468036`*^9, 3.545431265626811*^9}, {
   3.5454365113581195`*^9, 3.5454365133981223`*^9}, {3.5454370225788355`*^9,
   3.5454370600388875`*^9}, {3.5454372465891485`*^9,
   3.5454372507491546`*^9}, {3.546061585209016*^9, 3.546061595460602*^9}, {
   3.5480101149704323`*^9, 3.5480101157804327`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.516670127883032*^9, 3.5166701666334996`*^9},
   3.5166731186418858`*^9, 3.5166737399657774`*^9, {3.516826945697586*^9,
   3.5168269464556303`*^9}, {3.5168298428992968`*^9,
   3.5168298460284758`*^9}, {3.516830093084607*^9, 3.516830093767646*^9}, {
   3.5168315412404366`*^9, 3.516831542411504*^9}, {3.5454167748732557`*^9,
   3.5454167748732557`*^9}, {3.5454301270852165`*^9, 3.545430127905218*^9}, {
   3.546061621159072*^9, 3.5460616220271215`*^9}, {3.54606231540178*^9,
   3.54606231540178*^9}, {3.5462000405918026`*^9, 3.5462000405918026`*^9}, {
   3.5465328062855144`*^9, 3.5465328062855144`*^9}, {3.546575542255299*^9,
   3.546575542255299*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "2"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "+", "1"}]]}],
        RowBox[{"b", " ", "d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "2"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{"n", "+", "2"}], ")"}]}]],
   RowBox[{"\[Integral]", " ",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], "-",
       RowBox[{"a", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5168286510391264`*^9,
   3.516828722449211*^9}, {3.5168287554080963`*^9, 3.51682883397459*^9}, {
   3.5168289004323907`*^9, 3.516828908860873*^9}, {3.546061610382456*^9,
   3.5460616538609424`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "2"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}]}], "-",
           RowBox[{"a", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "0"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.50067712041051*^9,
   3.500677157770562*^9}, 3.500684516250436*^9, {3.508358781038677*^9,
   3.508358787338686*^9}, {3.5083588719288044`*^9, 3.508358881988818*^9}, {
   3.508378414067792*^9, 3.5083784269778104`*^9}, {3.508378464587863*^9,
   3.508378467637867*^9}, {3.5083785093179255`*^9, 3.50837851959794*^9}, {
   3.5083787060882015`*^9, 3.5083787263182297`*^9}, 3.508380619208137*^9, {
   3.5084371686080427`*^9, 3.508437170918046*^9}, {3.5098473915587964`*^9,
   3.5098473943488007`*^9}, {3.516670197973955*^9, 3.5166702183163905`*^9},
   3.5166702884229136`*^9, {3.516671215630943*^9, 3.516671306891103*^9},
   3.516821192477213*^9, {3.5168269411143246`*^9, 3.5168269420183764`*^9}, {
   3.51682905775939*^9, 3.5168290945344925`*^9}, {3.516829817695855*^9,
   3.516829818269888*^9}, {3.5168303150543027`*^9, 3.5168303381576242`*^9}, {
   3.541091080823223*^9, 3.5410910917744417`*^9}, {3.541091131039711*^9,
   3.541091139182925*^9}, 3.5454170718041773`*^9, {3.545610768452697*^9,
   3.545610769279744*^9}, {3.5460408620730786`*^9, 3.546040865113083*^9},
   3.5460411680035067`*^9, {3.546061660886344*^9, 3.546061700103587*^9}, {
   3.546062320345063*^9, 3.5460623238792653`*^9}, {3.5461249083334208`*^9,
   3.546124908343421*^9}, {3.5461249496134787`*^9, 3.546124949623479*^9}, {
   3.5465328106055202`*^9, 3.5465328156755276`*^9}, 3.5465755443753023`*^9, {
   3.548178360172716*^9, 3.548178360983917*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "2"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9, 3.5454170438021283`*^9},
   3.5454968409272494`*^9, {3.5456107421021895`*^9, 3.5456107421021895`*^9}, {
   3.5460577210359974`*^9, 3.546057728804442*^9}, {3.546058009681507*^9,
   3.546058009994525*^9}, {3.5460585305733004`*^9, 3.546058532331401*^9},
   3.546191529269887*^9, 3.546192951841879*^9, 3.5461931882922096`*^9, {
   3.5461934535825815`*^9, 3.546193453752581*^9}, 3.546210369981454*^9, {
   3.546211308412768*^9, 3.546211308652768*^9}, {3.546315890759654*^9,
   3.5463158927497683`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.501729725689207*^9,
   3.5017297313520174`*^9}, 3.501729800304138*^9, 3.5053451043644323`*^9,
   3.512064350632524*^9, {3.5454312604468036`*^9, 3.545431265626811*^9}, {
   3.5454365113581195`*^9, 3.5454365133981223`*^9}, {3.5454370225788355`*^9,
   3.5454370600388875`*^9}, {3.5454372465891485`*^9,
   3.5454372507491546`*^9}, {3.5454373013392253`*^9, 3.545437305479231*^9}, {
   3.5460578522675037`*^9, 3.5460578551986713`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SuperscriptBox["z", "2"],
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}]], "\[Equal]",
   RowBox[{
    FractionBox["z", "b"], "-",
    FractionBox[
     RowBox[{"a", " ", "z"}],
     RowBox[{"b", " ",
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]], "Input",
  CellChangeTimes->{{3.546057940587555*^9, 3.546057942676675*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.516670127883032*^9, 3.5166701666334996`*^9},
   3.5166731186418858`*^9, 3.5166737399657774`*^9, {3.516826945697586*^9,
   3.5168269464556303`*^9}, {3.5168300872452726`*^9, 3.516830089791418*^9}, {
   3.516831534936076*^9, 3.5168315360301385`*^9}, {3.5454167796156645`*^9,
   3.5454167796156645`*^9}, {3.545430121495209*^9, 3.54543012225521*^9}, {
   3.546057865091237*^9, 3.546057872016633*^9}, {3.546057910320824*^9,
   3.546057912621956*^9}, {3.5460579509051456`*^9, 3.546057987389232*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.516670127883032*^9, 3.5166701666334996`*^9},
   3.5166731186418858`*^9, 3.5166737399657774`*^9, {3.516826945697586*^9,
   3.5168269464556303`*^9}, {3.5168300872452726`*^9, 3.516830089791418*^9}, {
   3.516831534936076*^9, 3.5168315360301385`*^9}, {3.5454167796156645`*^9,
   3.5454167796156645`*^9}, {3.545430121495209*^9, 3.54543012225521*^9},
   3.546057877469945*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"b", " ", "d"}]]}]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5168286510391264`*^9,
   3.516828722449211*^9}, {3.5168287554080963`*^9, 3.51682883397459*^9}, {
   3.5168289004323907`*^9, 3.516828908860873*^9}, {3.5168293823899574`*^9,
   3.516829496504484*^9}, {3.5168295653514223`*^9, 3.5168295660404615`*^9}, {
   3.5168297784096084`*^9, 3.516829780900751*^9}, {3.546057737848959*^9,
   3.5460577631254053`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "/",
     RowBox[{"(",
      RowBox[{"b", "*", "d"}], ")"}]}], " ", "-", " ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "/",
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.50067712041051*^9,
   3.500677157770562*^9}, 3.500684516250436*^9, {3.508358781038677*^9,
   3.508358787338686*^9}, {3.5083588719288044`*^9, 3.508358881988818*^9}, {
   3.508378414067792*^9, 3.5083784269778104`*^9}, {3.508378464587863*^9,
   3.508378467637867*^9}, {3.5083785093179255`*^9, 3.50837851959794*^9}, {
   3.5083787060882015`*^9, 3.5083787263182297`*^9}, 3.508380619208137*^9, {
   3.5084371686080427`*^9, 3.508437170918046*^9}, {3.5098473915587964`*^9,
   3.5098473943488007`*^9}, {3.516670197973955*^9, 3.5166702183163905`*^9},
   3.5166702884229136`*^9, {3.516671215630943*^9, 3.516671306891103*^9},
   3.516821192477213*^9, {3.5168269411143246`*^9, 3.5168269420183764`*^9}, {
   3.51682905775939*^9, 3.5168290945344925`*^9}, 3.5168298608623247`*^9, {
   3.516832081331328*^9, 3.516832085810584*^9}, {3.541091078264818*^9,
   3.54109109637645*^9}, 3.5454170786213894`*^9, {3.5456107850896482`*^9,
   3.5456107858136897`*^9}, {3.546040830073034*^9, 3.5460408325030375`*^9},
   3.5460411417534704`*^9, {3.5460577703628187`*^9, 3.5460578033187037`*^9}, {
   3.5460580214231787`*^9, 3.5460580285335855`*^9}, {3.5461249077334204`*^9,
   3.54612490774342*^9}, {3.546124949023478*^9, 3.546124949023478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "2"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168914054604`*^9, 3.545416903979083*^9}, {
   3.5454169758952093`*^9, 3.545416976082409*^9}, {3.5454170486069365`*^9,
   3.5454170486069365`*^9}, 3.5454968423372517`*^9, {3.545610761413294*^9,
   3.54561076239135*^9}, {3.546061556769389*^9, 3.546061575684471*^9}, {
   3.5460616158377676`*^9, 3.5460616160207777`*^9}, {3.5460622992488565`*^9,
   3.5460622992488565`*^9}, 3.5461915595099297`*^9, {3.5462000367717977`*^9,
   3.5462000367717977`*^9}, 3.546209934510844*^9, {3.546210260621301*^9,
   3.5462102929613466`*^9}, {3.5462105900817623`*^9, 3.546210603741781*^9},
   3.546210639771832*^9, {3.546315894728881*^9, 3.5463158959339504`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"-",
    FractionBox["1", "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.501729725689207*^9,
   3.5017297313520174`*^9}, 3.501729800304138*^9, 3.5053451043644323`*^9,
   3.512064350632524*^9, {3.5454312604468036`*^9, 3.545431265626811*^9}, {
   3.5454365113581195`*^9, 3.5454365133981223`*^9}, {3.5454370225788355`*^9,
   3.5454370600388875`*^9}, {3.5454372465891485`*^9,
   3.5454372507491546`*^9}, {3.546061585209016*^9, 3.546061595460602*^9}, {
   3.5462106570618563`*^9, 3.5462106680918713`*^9}, {3.5480102136805696`*^9,
   3.5480102143105707`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.516670127883032*^9, 3.5166701666334996`*^9},
   3.5166731186418858`*^9, 3.5166737399657774`*^9, {3.516826945697586*^9,
   3.5168269464556303`*^9}, {3.5168298428992968`*^9,
   3.5168298460284758`*^9}, {3.516830093084607*^9, 3.516830093767646*^9}, {
   3.5168315412404366`*^9, 3.516831542411504*^9}, {3.5454167748732557`*^9,
   3.5454167748732557`*^9}, {3.5454301270852165`*^9, 3.545430127905218*^9}, {
   3.546061621159072*^9, 3.5460616220271215`*^9}, {3.54606231540178*^9,
   3.54606231540178*^9}, {3.5462000405918026`*^9, 3.5462000405918026`*^9},
   3.5462106435318375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
        RowBox[{"3", "b", " ", "d"}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"3", "b"}]],
   RowBox[{"\[Integral]", " ",
    RowBox[{
     FractionBox[
      RowBox[{"b", "-",
       RowBox[{"2", " ", "a", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5168286510391264`*^9,
   3.516828722449211*^9}, {3.5168287554080963`*^9, 3.51682883397459*^9}, {
   3.5168289004323907`*^9, 3.516828908860873*^9}, {3.546061610382456*^9,
   3.5460616538609424`*^9}, 3.5462106793818874`*^9, {3.546210717731941*^9,
   3.546210822852088*^9}, 3.5462108629421444`*^9, {3.5462111599625597`*^9,
   3.546211160532561*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"3", "*", "b", "*", "d"}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"3", "*", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{"b", "-",
           RowBox[{"2", "*", "a", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}],
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.50067712041051*^9,
   3.500677157770562*^9}, 3.500684516250436*^9, {3.508358781038677*^9,
   3.508358787338686*^9}, {3.5083588719288044`*^9, 3.508358881988818*^9}, {
   3.508378414067792*^9, 3.5083784269778104`*^9}, {3.508378464587863*^9,
   3.508378467637867*^9}, {3.5083785093179255`*^9, 3.50837851959794*^9}, {
   3.5083787060882015`*^9, 3.5083787263182297`*^9}, 3.508380619208137*^9, {
   3.5084371686080427`*^9, 3.508437170918046*^9}, {3.5098473915587964`*^9,
   3.5098473943488007`*^9}, {3.516670197973955*^9, 3.5166702183163905`*^9},
   3.5166702884229136`*^9, {3.516671215630943*^9, 3.516671306891103*^9},
   3.516821192477213*^9, {3.5168269411143246`*^9, 3.5168269420183764`*^9}, {
   3.51682905775939*^9, 3.5168290945344925`*^9}, {3.516829817695855*^9,
   3.516829818269888*^9}, {3.5168303150543027`*^9, 3.5168303381576242`*^9}, {
   3.541091080823223*^9, 3.5410910917744417`*^9}, {3.541091131039711*^9,
   3.541091139182925*^9}, 3.5454170718041773`*^9, {3.545610768452697*^9,
   3.545610769279744*^9}, {3.5460408620730786`*^9, 3.546040865113083*^9},
   3.5460411680035067`*^9, {3.546061660886344*^9, 3.546061700103587*^9}, {
   3.546062320345063*^9, 3.5460623238792653`*^9}, {3.5461249083334208`*^9,
   3.546124908343421*^9}, {3.5461249496134787`*^9, 3.546124949623479*^9}, {
   3.546210694621909*^9, 3.5462107018119187`*^9}, {3.546211184792595*^9,
   3.5462112321926613`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<",
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9, {3.546542826687043*^9, 3.546542830737049*^9}, {
   3.54654353839804*^9, 3.54654353857804*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.545416878457438*^9, 3.545416878457438*^9},
   3.545416916849105*^9, {3.5454169722448025`*^9, 3.545416972354003*^9},
   3.5454968416372504`*^9, {3.5460586391595116`*^9, 3.5460586432507453`*^9}, {
   3.54605877934853*^9, 3.5460587802885838`*^9}, 3.546059274729864*^9,
   3.5461915608299313`*^9, 3.5462100038809414`*^9, {3.5462113101727705`*^9,
   3.546211310352771*^9}, 3.546315898302086*^9, {3.546542834947055*^9,
   3.546542866287099*^9}, {3.546544362699194*^9, 3.5465443698292036`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Symmetric sine recurrence 2a with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.5018603533666525`*^9,
   3.5018603814467015`*^9}, {3.5018631639043903`*^9,
   3.5018631661195946`*^9}, {3.503339847892067*^9, 3.5033398856753335`*^9}, {
   3.503339922928199*^9, 3.503339923833*^9}, 3.5033403420697355`*^9,
   3.5034361145058737`*^9, {3.505183070135276*^9, 3.50518307090832*^9}, {
   3.5133633793506536`*^9, 3.513363379610654*^9}, {3.513363413160701*^9,
   3.513363413460701*^9}, {3.5133636561310415`*^9, 3.513363660441047*^9}, {
   3.513365428183522*^9, 3.513365443933544*^9}, {3.513366314794763*^9,
   3.5133663204647713`*^9}, {3.546543125817462*^9, 3.5465431474874926`*^9}, {
   3.548010222170582*^9, 3.5480102450206137`*^9}, {3.549244402045886*^9,
   3.5492444034859686`*^9}, {3.549247156980459*^9, 3.5492472197620497`*^9}}],

Cell["\<\
Note: Derivation of the simpler third line unknown??? \
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.5018603533666525`*^9,
   3.5018603814467015`*^9}, {3.5018631639043903`*^9,
   3.5018631661195946`*^9}, {3.503339847892067*^9, 3.5033398856753335`*^9}, {
   3.503339922928199*^9, 3.503339923833*^9}, 3.5033403420697355`*^9,
   3.5034361145058737`*^9, {3.505183070135276*^9, 3.50518307090832*^9}, {
   3.5133633793506536`*^9, 3.513363379610654*^9}, {3.513363413160701*^9,
   3.513363413460701*^9}, {3.5133636561310415`*^9, 3.513363660441047*^9}, {
   3.513365428183522*^9, 3.513365443933544*^9}, {3.513366314794763*^9,
   3.5133663204647713`*^9}, {3.546543125817462*^9, 3.5465431474874926`*^9}, {
   3.548010222170582*^9, 3.5480102450206137`*^9}, {3.549244402045886*^9,
   3.5492444034859686`*^9}, {3.549247479113884*^9, 3.5492474852352343`*^9}, {
   3.549247901935068*^9, 3.5492479116256227`*^9}, {3.549247962879554*^9,
   3.5492480091372*^9}, {3.5492480556378593`*^9, 3.54924806105917*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993638312082148`*^9,
   3.499363839028226*^9}, {3.499368533262825*^9, 3.499368534762827*^9}, {
   3.500319714354707*^9, 3.500319719674714*^9}, {3.500321207536797*^9,
   3.5003212188668127`*^9}, {3.5006579695436983`*^9, 3.5006579872737236`*^9},
   3.500658071043841*^9, {3.500658346374226*^9, 3.5006583478942285`*^9},
   3.5032824113109846`*^9, {3.5032824648346786`*^9, 3.503282468063884*^9}, {
   3.5032843334763603`*^9, 3.503284338296769*^9}, {3.503284722176643*^9,
   3.503284722176643*^9}, {3.5032847700531273`*^9, 3.5032847726115313`*^9}, {
   3.5032859516928024`*^9, 3.5032859536896057`*^9}, {3.504550199987841*^9,
   3.5045502011178427`*^9}, {3.504668995440073*^9, 3.504668998259234*^9}, {
   3.5046690756316595`*^9, 3.50466907669672*^9}, 3.513365761243988*^9, {
   3.5137112144973035`*^9, 3.513711216244507*^9}, {3.513799733110691*^9,
   3.513799733334704*^9}, {3.5141570766614027`*^9, 3.5141570768114033`*^9}, {
   3.514756641757801*^9, 3.514756641757801*^9}, {3.546544378679216*^9,
   3.546544378679216*^9}, {3.5492421335381346`*^9, 3.549242134185172*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "2"], " ",
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SuperscriptBox["a", "2"], " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{"n", "-", "1"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]",
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"a", " ", "d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "-",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SuperscriptBox["a", "2"],
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ", "n"}], "-",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, 3.500346671270671*^9, {3.500346791510839*^9,
   3.5003467921708403`*^9}, {3.50034689968099*^9, 3.500346914681011*^9}, {
   3.500347270081509*^9, 3.5003472732915134`*^9}, {3.5006579216236315`*^9,
   3.5006579403936577`*^9}, {3.5006580217937717`*^9, 3.5006580553038187`*^9},
   3.501042921876071*^9, {3.5032821068140497`*^9, 3.5032821100900555`*^9}, {
   3.5048104762440476`*^9, 3.504810478664051*^9}, {3.513365100533063*^9,
   3.513365130133105*^9}, {3.5133652944033346`*^9, 3.513365315273364*^9}, {
   3.5151891269448595`*^9, 3.5151891290848627`*^9}, {3.5465432200975943`*^9,
   3.5465432690276623`*^9}, 3.5465433047377124`*^9, {3.5492432976307173`*^9,
   3.5492433031350317`*^9}, {3.549247547907819*^9, 3.5492475539901667`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5003184730429688`*^9, 3.50031848112298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"a", "*", "d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "-",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"a", "^", "2"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*", "n"}], "-",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, {3.4993575889901257`*^9,
   3.4993576670838633`*^9}, {3.499365544950614*^9, 3.4993655661406436`*^9}, {
   3.4993657073008413`*^9, 3.499365707870842*^9}, 3.4993699181547637`*^9, {
   3.5003179803689146`*^9, 3.500317981117716*^9}, {3.5003185042030125`*^9,
   3.5003185122330236`*^9}, {3.500319341644185*^9, 3.500319361824213*^9}, {
   3.5003214645171566`*^9, 3.500321470987166*^9}, {3.500346709430724*^9,
   3.5003467096207247`*^9}, {3.5003469262310276`*^9, 3.500346943681052*^9}, {
   3.500347283661528*^9, 3.5003472916715393`*^9}, 3.5003511720069714`*^9, {
   3.5004321452599263`*^9, 3.500432146579002*^9}, {3.5006580987338796`*^9,
   3.500658104833888*^9}, 3.5006581787039914`*^9, 3.5006582507440925`*^9, {
   3.500658340704218*^9, 3.500658342374221*^9}, {3.5032823981913614`*^9,
   3.5032824239782066`*^9}, {3.503284295973894*^9, 3.5032842999675016`*^9},
   3.50328472618585*^9, {3.5032847612235117`*^9, 3.5032847653107185`*^9}, {
   3.5032859419427853`*^9, 3.503285948057996*^9}, 3.5032884947492695`*^9, {
   3.5034357402653494`*^9, 3.5034357686453896`*^9}, {3.504668988604682*^9,
   3.5046689888026934`*^9}, {3.504669080043912*^9, 3.5046690810329685`*^9}, {
   3.5133652448932652`*^9, 3.5133652795733137`*^9}, 3.513365400713484*^9, {
   3.513375859867774*^9, 3.513375860086174*^9}, {3.5133759034106393`*^9,
   3.513375931210678*^9}, 3.5137993944703217`*^9, 3.5140029392944913`*^9, {
   3.5141541528973093`*^9, 3.51415415309731*^9}, {3.5141543221875467`*^9,
   3.5141543232775483`*^9}, {3.5147566362077937`*^9, 3.514756637977796*^9},
   3.5148213919783716`*^9, 3.514823868025853*^9, 3.5410894791708107`*^9,
   3.5410896110378428`*^9, 3.5410896844515715`*^9, {3.5455833645923634`*^9,
   3.5455833645923634`*^9}, {3.546543156317505*^9, 3.546543204417572*^9}, {
   3.5465434111378613`*^9, 3.5465434220178766`*^9}, {3.546544382949222*^9,
   3.5465443847992244`*^9}, {3.54924330921838*^9, 3.5492433180278835`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "2"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.545416878457438*^9, 3.545416878457438*^9},
   3.545416916849105*^9, {3.5454169722448025`*^9, 3.545416972354003*^9},
   3.5454968416372504`*^9, {3.5460586391595116`*^9, 3.5460586432507453`*^9}, {
   3.54605877934853*^9, 3.5460587802885838`*^9}, 3.546059274729864*^9,
   3.5461915608299313`*^9, 3.5462100038809414`*^9, {3.5462113101727705`*^9,
   3.546211310352771*^9}, 3.546315898302086*^9, {3.546542834947055*^9,
   3.546542837337058*^9}, {3.546544392499235*^9, 3.546544401479248*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 1 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "2"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", "2"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5042431629228497`*^9,
   3.5042431645428514`*^9}, {3.504382488644274*^9, 3.504382489194275*^9},
   3.505345087504409*^9, 3.512064341272511*^9, {3.545431226966757*^9,
   3.545431232066764*^9}, {3.5460587204911633`*^9, 3.5460587428584423`*^9}, {
   3.5480102511606226`*^9, 3.5480102520206237`*^9}, {3.5480103153107123`*^9,
   3.548010315650713*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.516670127883032*^9, 3.5166701666334996`*^9},
   3.5166731186418858`*^9, 3.5166737399657774`*^9, {3.516826945697586*^9,
   3.5168269464556303`*^9}, 3.5168298393610945`*^9, {3.516830083765074*^9,
   3.5168300840180883`*^9}, 3.5168301723681417`*^9, {3.5168315307528367`*^9,
   3.5168315309238462`*^9}, {3.5454167838276715`*^9,
   3.5454167838276715`*^9}, {3.545430124545213*^9, 3.545430125035214*^9}, {
   3.5460587752382946`*^9, 3.5460587761953497`*^9}, {3.546544406989256*^9,
   3.5465444069992557`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "2"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "+", "1"}]]}],
        RowBox[{"b", " ", "d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}], " ",
         RowBox[{"(",
          RowBox[{
           SuperscriptBox["a", "2"], "-",
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}],
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ", "b",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], "-",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "+",
          RowBox[{
           SuperscriptBox["b", "2"],
           RowBox[{"(",
            RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.5095014577415843`*^9, 3.5095014579443846`*^9}, {3.5095016031806393`*^9,
   3.5095016185154667`*^9}, {3.5098309142357264`*^9,
   3.5098310772559547`*^9}, {3.5101746147067757`*^9, 3.510174618559983*^9}, {
   3.5101748068991137`*^9, 3.5101748216723394`*^9}, {3.515168179904458*^9,
   3.515168185794466*^9}, 3.516827874742725*^9, {3.516827914937024*^9,
   3.5168279162661*^9}, {3.516827962646753*^9, 3.516828073164074*^9}, {
   3.516828151388548*^9, 3.5168281609040923`*^9}, {3.516828228837978*^9,
   3.5168282291919985`*^9}, {3.546058650725173*^9, 3.5460586743975267`*^9}, {
   3.5460587896631193`*^9, 3.5460587899731374`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"a", "^", "2"}]}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}]}], "-",
           RowBox[{
            RowBox[{"(",
             RowBox[{
              RowBox[{"a", "^", "2"}], "+",
              RowBox[{
               RowBox[{"b", "^", "2"}], "*",
               RowBox[{"(",
                RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ",", "x"}], "]"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.50067712041051*^9,
   3.500677157770562*^9}, 3.500684516250436*^9, {3.508358781038677*^9,
   3.508358787338686*^9}, {3.5083588719288044`*^9, 3.508358881988818*^9}, {
   3.508378414067792*^9, 3.5083784269778104`*^9}, {3.508378464587863*^9,
   3.508378467637867*^9}, {3.5083785093179255`*^9, 3.50837851959794*^9}, {
   3.5083787060882015`*^9, 3.5083787263182297`*^9}, 3.508380619208137*^9, {
   3.5084371686080427`*^9, 3.508437170918046*^9}, {3.5098473915587964`*^9,
   3.5098473943488007`*^9}, {3.516670197973955*^9, 3.5166702183163905`*^9},
   3.5166702884229136`*^9, {3.516671215630943*^9, 3.516671306891103*^9},
   3.516821192477213*^9, {3.5168269411143246`*^9, 3.5168269420183764`*^9}, {
   3.5168283522740383`*^9, 3.51682840353197*^9}, 3.516829234193481*^9,
   3.516830149301822*^9, {3.5168302390679564`*^9, 3.5168302411110735`*^9}, {
   3.5410910751448126`*^9, 3.541091116750086*^9}, {3.5460408532230663`*^9,
   3.5460408553930693`*^9}, 3.546041150553482*^9, {3.5460588014107914`*^9,
   3.546058863486342*^9}, {3.546124908363421*^9, 3.546124908373421*^9}, {
   3.546124949643479*^9, 3.5461249496534786`*^9}, {3.54654441027926*^9,
   3.546544412089263*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["5.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481787916382737`*^9,
   3.548178840091959*^9}, {3.5481790812527823`*^9, 3.548179084949989*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481788741468186`*^9,
   3.5481788743184185`*^9}, {3.54817890902848*^9, 3.54817892642251*^9}, {
   3.548179118599248*^9, 3.5481791519365063`*^9}, {3.5481816451432858`*^9,
   3.54818165930811*^9}, {3.5481817082297964`*^9, 3.548181714875408*^9}, {
   3.548181956707033*^9, 3.548181959062637*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481788741468186`*^9,
   3.5481788743184185`*^9}, {3.54817890902848*^9, 3.54817892642251*^9}, {
   3.548179118599248*^9, 3.5481791519365063`*^9}, {3.5481816451432858`*^9,
   3.54818165930811*^9}, {3.5481817082297964`*^9, 3.548181714875408*^9}, {
   3.548181956707033*^9, 3.548181959062637*^9}, 3.5481835996491184`*^9, {
   3.5481836536720133`*^9, 3.5481836536720133`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, {3.5449769810684233`*^9, 3.5449769847296333`*^9},
   3.5449773151485076`*^9, 3.5449784760774918`*^9, 3.5449785354905243`*^9, {
   3.545014440064335*^9, 3.545014440298335*^9}, {3.5450859891530027`*^9,
   3.5450859893130026`*^9}, {3.5451010225880623`*^9, 3.5451010229880624`*^9},
   3.5454968216372223`*^9, 3.546054953842778*^9, 3.5461915458499107`*^9,
   3.546196161436372*^9, 3.5461970200775743`*^9, 3.546198905010213*^9, {
   3.5461989564702854`*^9, 3.5461989566802855`*^9}, 3.546315764232417*^9,
   3.5465320888145103`*^9, {3.5465480528324113`*^9, 3.5465480682742944`*^9}, {
   3.5465678201745224`*^9, 3.546567820372534*^9}, {3.5467059227877045`*^9,
   3.546705922983716*^9}, {3.5481836592724233`*^9, 3.5481836657776346`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 9b with ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{
    RowBox[{"-", "3"}], "/", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9},
   3.5018140207689576`*^9, {3.5018216494891577`*^9, 3.501821669550793*^9}, {
   3.5019589809978724`*^9, 3.5019590047879057`*^9}, 3.508786823193941*^9, {
   3.513381917039058*^9, 3.513381917599059*^9}, {3.5133832247808895`*^9,
   3.513383248330922*^9}, {3.5138781483346043`*^9, 3.5138781760846434`*^9}, {
   3.548010125630447*^9, 3.548010153350486*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.5011924479085164`*^9,
   3.501192449768519*^9}, {3.5012672318508615`*^9, 3.5012672409508743`*^9}, {
   3.5018067804754405`*^9, 3.5018068133914986`*^9}, {3.501807130150055*^9,
   3.5018071318504577`*^9}, {3.501814100266697*^9, 3.501814101436699*^9}, {
   3.5018211471994753`*^9, 3.5018211608651*^9}, {3.5019567113246946`*^9,
   3.5019567122046957`*^9}, {3.5019609003705597`*^9,
   3.5019609003705597`*^9}, {3.5045902588418427`*^9, 3.504590260491845*^9},
   3.5133832200608826`*^9, {3.513383257040934*^9, 3.5133832666409473`*^9}, {
   3.5465481363171864`*^9, 3.5465481496509485`*^9}, {3.546548232929954*^9,
   3.5465482377952323`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox[
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     RowBox[{"3", "/", "2"}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", "a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{"d",
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}],
            "]"}]}]}]]}]]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, {3.5011911220866604`*^9, 3.501191124796664*^9}, {
   3.501265980199109*^9, 3.501266014289157*^9}, {3.501266063349225*^9,
   3.501266065199228*^9}, {3.501806833780734*^9, 3.5018069301109033`*^9}, {
   3.5018140261197667`*^9, 3.501814055104618*^9}, {3.501821207696382*^9,
   3.5018212278204174`*^9}, {3.501821280220909*^9, 3.5018213326838017`*^9},
   3.501821441587593*^9, {3.501958758637561*^9, 3.501958830467662*^9}, {
   3.5019588709877186`*^9, 3.501958892937749*^9}, {3.5053551462074347`*^9,
   3.5053551626174574`*^9}, 3.505355197697507*^9, 3.5053631315728273`*^9, {
   3.513383148210782*^9, 3.5133831756808205`*^9}, {3.513383362671082*^9,
   3.5133833738110976`*^9}, {3.515183667949289*^9, 3.515183672176896*^9}, {
   3.5465481631787224`*^9, 3.5465482189679136`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*", "a", "*",
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.50119120053677*^9, {3.5011912580268507`*^9, 3.501191260026853*^9},
   3.501191906207758*^9, 3.501266112379294*^9, {3.501266934110444*^9,
   3.5012669465204616`*^9}, 3.501267020310565*^9, {3.501807055254323*^9,
   3.5018070667983437`*^9}, {3.501807109511218*^9, 3.501807112069623*^9}, {
   3.501807165546517*^9, 3.5018071672157197`*^9}, 3.5018077525787473`*^9, {
   3.5018141043227043`*^9, 3.501814105757907*^9}, {3.501814151294387*^9,
   3.5018141515595875`*^9}, {3.5018142482173567`*^9,
   3.5018142526009645`*^9}, {3.501821489386077*^9, 3.501821495532488*^9}, {
   3.501821564203808*^9, 3.5018216013942738`*^9}, {3.5018781452436633`*^9,
   3.501878146403665*^9}, {3.501958737877532*^9, 3.5019587381275325`*^9},
   3.501960814130439*^9, {3.501960853370494*^9, 3.501960895000552*^9}, {
   3.505167695348363*^9, 3.5051676992795877`*^9}, {3.50516991570436*^9,
   3.5051699187795362`*^9}, {3.5053551462274346`*^9, 3.5053551626274576`*^9},
   3.505355197707507*^9, 3.505363161352869*^9, {3.513383094770707*^9,
   3.5133831100007286`*^9}, {3.513383193300845*^9, 3.513383213240873*^9}, {
   3.513383309251007*^9, 3.513383309811008*^9}, 3.5168208089466753`*^9, {
   3.5168325733864717`*^9, 3.51683257719569*^9}, {3.5410885293163424`*^9,
   3.541088545743171*^9}, {3.5465482533091197`*^9, 3.5465483271388664`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535462100105`*^9, 3.5465535462100105`*^9}, {3.546561839877431*^9,
   3.546561842927435*^9}, 3.546562204280442*^9, 3.5465761450461435`*^9, {
   3.546577115767502*^9, 3.5465771184375057`*^9}, {3.546577220697649*^9,
   3.5465772279476595`*^9}, {3.54672215930238*^9, 3.54672215930238*^9}, {
   3.5467229198578815`*^9, 3.54672292210001*^9}, {3.54672330202174*^9,
   3.5467233059849668`*^9}, {3.5467247177417145`*^9,
   3.5467247539647865`*^9}, {3.548180863158312*^9, 3.548180863158312*^9}, {
   3.5481809686612973`*^9, 3.5481809686612973`*^9}, {3.5481816702749295`*^9,
   3.54818167047773*^9}, {3.5481819690310545`*^9, 3.548181971105858*^9}, {
   3.5481822315795155`*^9, 3.548182231797916*^9}, {3.548182297302431*^9,
   3.548182297302431*^9}, 3.5481836617060275`*^9, {3.5481837488165803`*^9,
   3.5481837491597815`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 4b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9},
   3.5018140207689576`*^9, {3.5018216494891577`*^9, 3.501821669550793*^9},
   3.508786823203941*^9, {3.513384184712233*^9, 3.513384185612234*^9},
   3.513384393252525*^9, {3.5133845883627977`*^9, 3.5133845898028*^9}, {
   3.5138783559248953`*^9, 3.513878367924912*^9}, {3.54671341159204*^9,
   3.54671341159204*^9}, {3.546713489764511*^9, 3.546713489764511*^9}, {
   3.5467215492324862`*^9, 3.5467215492324862`*^9}}],

Cell[TextData[{
 "Rule 11: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.5011924479085164`*^9,
   3.501192449768519*^9}, {3.5012672318508615`*^9, 3.5012672409508743`*^9}, {
   3.5018067804754405`*^9, 3.5018068133914986`*^9}, {3.501807130150055*^9,
   3.5018071318504577`*^9}, {3.501814100266697*^9, 3.501814101436699*^9}, {
   3.5018211471994753`*^9, 3.5018211608651*^9}, {3.5019567113246946`*^9,
   3.5019567122046957`*^9}, {3.501964142785099*^9, 3.501964142785099*^9}, {
   3.5023828502435265`*^9, 3.502382861350746*^9}, {3.5023829285400643`*^9,
   3.502382935248076*^9}, {3.502384259649603*^9, 3.502384271505624*^9}, {
   3.5023843089768896`*^9, 3.5023843119876947`*^9}, {3.5023869181887846`*^9,
   3.5023869194787865`*^9}, {3.5023871694491367`*^9,
   3.5023871721091404`*^9}, {3.5024211796860027`*^9, 3.502421187536014*^9}, {
   3.5025882738113256`*^9, 3.502588275051327*^9}, {3.504631736677337*^9,
   3.5046317376913385`*^9}, {3.50517896141127*^9, 3.5051789616042814`*^9},
   3.5133844008125353`*^9, 3.5133846049828215`*^9, {3.513384964233324*^9,
   3.513384964783325*^9}, {3.5133858462445593`*^9, 3.51338584696456*^9}, {
   3.5133858927146244`*^9, 3.513385893394625*^9}, {3.513967475764824*^9,
   3.51396747983483*^9}, {3.5152716429743443`*^9, 3.5152716513359594`*^9}, {
   3.515271803451826*^9, 3.5152718053082294`*^9}, {3.516832992131423*^9,
   3.516832992131423*^9}, {3.5467134116010404`*^9, 3.5467134116010404`*^9}, {
   3.5467134870293546`*^9, 3.5467134870293546`*^9}, {3.5467137459061613`*^9,
   3.5467137459061613`*^9}, {3.546713788968624*^9, 3.546713788968624*^9}, {
   3.5467215507745743`*^9, 3.5467215507755747`*^9}, {3.5467216750926847`*^9,
   3.5467216829341335`*^9}, {3.546722125825465*^9, 3.5467221338039217`*^9}, {
   3.5467233141604347`*^9, 3.5467233141604347`*^9}, {3.5467247135814767`*^9,
   3.5467247243020897`*^9}, {3.548180865591916*^9, 3.548180865591916*^9}, {
   3.548180975104109*^9, 3.548180975104109*^9}, {3.5481819737890625`*^9,
   3.5481819764722676`*^9}, {3.5481822993772345`*^9,
   3.5481822993772345`*^9}, {3.5481837522017865`*^9, 3.5481837522017865`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "-", "1"}]]}],
        RowBox[{"d", " ", "n", " ",
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}], "n"]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "-", "1"}], ")"}]}], "n"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"n", "-", "1"}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "n"]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095546485624905`*^9, 3.5095548310727463`*^9}, {3.509554944782905*^9,
   3.509554978772953*^9}, {3.5095550311130257`*^9, 3.5095550406230392`*^9}, {
   3.5095551029731264`*^9, 3.509555110183137*^9}, {3.509555148833191*^9,
   3.50955518414324*^9}, 3.5095552442833242`*^9, 3.5095554618336287`*^9, {
   3.5101725287803125`*^9, 3.51017253319512*^9}, {3.5101728354144506`*^9,
   3.5101728382380557`*^9}, {3.5101734308362966`*^9, 3.510173455141139*^9}, {
   3.5132794480664415`*^9, 3.513279496296509*^9}, {3.5132795860166345`*^9,
   3.513279591746642*^9}, {3.513384265162346*^9, 3.5133842957523885`*^9}, {
   3.513384352622468*^9, 3.513384370672493*^9}, {3.513384416302557*^9,
   3.513384421772565*^9}, {3.5133844529026084`*^9, 3.513384537802727*^9}, {
   3.5151837362774086`*^9, 3.51518374247062*^9}, {3.546713429657073*^9,
   3.5467134569416337`*^9}, {3.546723139056419*^9, 3.5467231971107397`*^9}, {
   3.5467232444444466`*^9, 3.5467232638955593`*^9}, 3.5467247508636093`*^9,
   3.5480420992800355`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*", "n", "*",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}]}], ")"}]}]}], " ",
    "+", " ", "\n", "  ",
    RowBox[{"b", "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{
        RowBox[{"2", "*", "n"}], "-", "1"}], ")"}], "/", "n"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "1"}], ")"}]}], "/",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{
     RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.50119120053677*^9, {3.5011912580268507`*^9, 3.501191260026853*^9},
   3.501191906207758*^9, 3.501266112379294*^9, {3.501266934110444*^9,
   3.5012669465204616`*^9}, 3.501267020310565*^9, {3.501807055254323*^9,
   3.5018070667983437`*^9}, {3.501807109511218*^9, 3.501807112069623*^9}, {
   3.501807165546517*^9, 3.5018071672157197`*^9}, 3.5018077525787473`*^9, {
   3.5018141043227043`*^9, 3.501814105757907*^9}, {3.501814151294387*^9,
   3.5018141515595875`*^9}, {3.5018142482173567`*^9,
   3.5018142526009645`*^9}, {3.501821489386077*^9, 3.501821495532488*^9}, {
   3.501821564203808*^9, 3.5018216013942738`*^9}, {3.5018781452436633`*^9,
   3.501878146403665*^9}, {3.50195874362754*^9, 3.5019587438675404`*^9},
   3.501986567309147*^9, {3.5023199067862606`*^9, 3.502319910561467*^9}, {
   3.5023383978591795`*^9, 3.5023384021803865`*^9}, {3.5023828123354607`*^9,
   3.5023828129750614`*^9}, {3.5023829127372365`*^9,
   3.5023829198196487`*^9}, {3.502384187546276*^9, 3.502384244345976*^9}, {
   3.5023848097533693`*^9, 3.5023848139809766`*^9}, {3.502386659168422*^9,
   3.5023866594584227`*^9}, {3.5023871036790447`*^9, 3.502387106689049*^9}, {
   3.5024211967560267`*^9, 3.502421199916031*^9}, {3.505355146317435*^9,
   3.5053551627074575`*^9}, 3.505355197787507*^9, 3.5053632706030216`*^9,
   3.513384695132948*^9, {3.5133847266529913`*^9, 3.5133847435630155`*^9},
   3.5133847999530945`*^9, {3.5133848329731407`*^9, 3.513384944553297*^9}, {
   3.5133858368845463`*^9, 3.5133858416245527`*^9}, 3.5133859082946463`*^9, {
   3.5133871514863863`*^9, 3.51338715408639*^9}, {3.5136352561081314`*^9,
   3.5136353017881956`*^9}, 3.513966580111569*^9, {3.5139674256147537`*^9,
   3.5139674437947793`*^9}, {3.5139674838748355`*^9,
   3.5139674918248463`*^9}, {3.513968831496722*^9, 3.5139688318467226`*^9}, {
   3.5139691380571513`*^9, 3.513969141517156*^9}, {3.5152707702360106`*^9,
   3.5152707757116203`*^9}, {3.515271574193824*^9, 3.5152715817130365`*^9}, {
   3.515271773062973*^9, 3.5152717746853757`*^9}, 3.5168208088766756`*^9,
   3.5168236556674075`*^9, {3.5168329442686853`*^9, 3.5168329474198656`*^9}, {
   3.541088474029845*^9, 3.541088490253874*^9}, {3.5455832532322073`*^9,
   3.5455832532422075`*^9}, {3.546713606746202*^9, 3.5467137141833467`*^9}, {
   3.5467216938357573`*^9, 3.5467216984730225`*^9}, {3.546722167762864*^9,
   3.546722203495908*^9}, 3.546723072232597*^9, {3.546723339424879*^9,
   3.5467233568738775`*^9}, {3.5467235353150835`*^9,
   3.5467235394743214`*^9}, {3.546724670664022*^9, 3.546724697840576*^9}, {
   3.546724834244378*^9, 3.5467248914796515`*^9}, {3.546725161525098*^9,
   3.546725165302314*^9}, {3.546735599544715*^9, 3.5467356031799226`*^9}, {
   3.5467388790502915`*^9, 3.5467388852246447`*^9}, {3.5467451844569407`*^9,
   3.5467451874831133`*^9}, {3.5481812133601274`*^9,
   3.5481812157625313`*^9}, {3.548182061695217*^9, 3.5481820635516205`*^9},
   3.54818230254404*^9, 3.54818375432339*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", "<", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481788741468186`*^9,
   3.5481788743184185`*^9}, {3.54817890902848*^9, 3.54817892642251*^9}, {
   3.548179118599248*^9, 3.5481791519365063`*^9}, {3.5481816451432858`*^9,
   3.54818165930811*^9}, {3.5481817082297964`*^9, 3.548181714875408*^9}, {
   3.548181956707033*^9, 3.548181959062637*^9}, 3.5481835996491184`*^9, {
   3.5481836536720133`*^9, 3.5481836536720133`*^9}, {3.5481838068642826`*^9,
   3.5481838116846905`*^9}, {3.5481838625875807`*^9, 3.5481838625875807`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460548254225984`*^9, 3.5460548255925984`*^9}, 3.5461915355198956`*^9,
   3.546195518325472*^9, {3.546195607615597*^9, 3.546195611405602*^9}, {
   3.5461957387357807`*^9, 3.5461957389257803`*^9}, {3.546286178060563*^9,
   3.5462861950005875`*^9}, {3.546286529371055*^9, 3.546286529371055*^9},
   3.546315986788147*^9, {3.5467105097520638`*^9, 3.5467105099710765`*^9}, {
   3.548182219442694*^9, 3.548182228022709*^9}, 3.5481837844470434`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"a", "-", "b"}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"a", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.544974096328231*^9, {
   3.5449741904119964`*^9, 3.544974195872006*^9}, {3.544974238444481*^9,
   3.5449742523909054`*^9}, 3.5450869371643295`*^9, 3.5454968095072055`*^9,
   3.546191537759899*^9, 3.546195520465475*^9, 3.546195617975611*^9,
   3.5462861809905677`*^9, {3.546286452620948*^9, 3.546286452810948*^9}, {
   3.5462865217910447`*^9, 3.5462865217910447`*^9}, 3.546315992336464*^9, {
   3.5481822213302975`*^9, 3.548182221501898*^9}, 3.548183785804246*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{"z","0"},
     "EllipticF"], "=", "z"}], TraditionalForm]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.50207476692389*^9, 3.5020747737723017`*^9}, {
   3.502217989821336*^9, 3.502218014219779*^9}, {3.503608717861026*^9,
   3.503608781311115*^9}}],

Cell[TextData[{
 "Note: This is a special case of the rule for ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["a", "2"], "\[NotEqual]",
   SuperscriptBox["b", "2"]}]]],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503704517332027*^9, 3.503704534352051*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"a", "-", "b"}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"a", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503609744422463*^9,
   3.503609745742465*^9}, {3.503610478773491*^9, 3.503610480153493*^9}, {
   3.5037039974012995`*^9, 3.503704009951317*^9}, {3.5044906727664814`*^9,
   3.5044907042265253`*^9}, {3.5046319342968225`*^9, 3.504631934646823*^9}, {
   3.5087908829296246`*^9, 3.508790883189625*^9}, {3.5133803707768936`*^9,
   3.513380371546894*^9}, {3.513923156481964*^9, 3.513923157171965*^9}, {
   3.515190739073122*^9, 3.515190739863123*^9}, {3.5462863751308393`*^9,
   3.54628637581084*^9}, {3.5462865045810204`*^9, 3.546286505781022*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox["2"],
      RowBox[{"d",
       SqrtBox["a"]}]]}]}],
   RowBox[{"ArcSin", "[",
    RowBox[{"Tan", "[",
     RowBox[{
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", "x"}]}], "2"], "-",
      FractionBox["\[Pi]", "4"]}], "]"}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501814357417549*^9, 3.5018144174776545`*^9}, {3.501821754446142*^9,
   3.5018217794997864`*^9}, {3.501821876204356*^9, 3.501821879620762*^9}, {
   3.501821941724471*^9, 3.5018219589781017`*^9}, {3.5020737562757144`*^9,
   3.5020738155090184`*^9}, 3.5036098300025826`*^9, 3.503609984502799*^9, {
   3.5036869781408205`*^9, 3.503686982000826*^9}, {3.505355145837434*^9,
   3.505355162427457*^9}, 3.5053551974675064`*^9, 3.5053563655591416`*^9,
   3.505356440189246*^9, {3.513380232196699*^9, 3.5133802328867006`*^9}, {
   3.515182379969426*^9, 3.515182381607429*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"Pi", "/", "2"}], "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", "2", "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[", "a", "]"}]}], ")"}]}], "*",
    RowBox[{"ArcSin", "[",
     RowBox[{"Tan", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "]"}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "-", "b"}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[", "a", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9},
   3.503608287880424*^9, {3.503608818201166*^9, 3.50360882090117*^9}, {
   3.5036097491924696`*^9, 3.5036097502324715`*^9}, 3.503609837132593*^9,
   3.5036099906428075`*^9, {3.503610482913497*^9, 3.503610483843498*^9}, {
   3.5037042132616014`*^9, 3.50370421956161*^9}, {3.5133800275464125`*^9,
   3.513380031706419*^9}, {3.513380213136673*^9, 3.5133802159666767`*^9}, {
   3.513380316726818*^9, 3.5133803196768217`*^9}, {3.541088751788333*^9,
   3.5410887691823635`*^9}, 3.546317186105744*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", "2", "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[", "a", "]"}]}], ")"}]}], "*",
    RowBox[{"ArcSin", "[",
     RowBox[{"Tan", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
       RowBox[{"Pi", "/", "4"}]}], "]"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "-", "b"}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[", "a", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9},
   3.503608287880424*^9, {3.503608818201166*^9, 3.50360882090117*^9}, {
   3.5036097491924696`*^9, 3.5036097502324715`*^9}, 3.503609837132593*^9,
   3.5036099906428075`*^9, {3.503610482913497*^9, 3.503610483843498*^9}, {
   3.5037042132616014`*^9, 3.50370421956161*^9}, {3.505355145847434*^9,
   3.505355162437457*^9}, 3.5053551974775066`*^9, 3.505356366889144*^9, {
   3.505356448129257*^9, 3.505356449289259*^9}, {3.513380235906705*^9,
   3.5133802364967055`*^9}, {3.541088754580738*^9, 3.541088768043562*^9},
   3.5463171945392265`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.544974096328231*^9, {
   3.5449741904119964`*^9, 3.544974195872006*^9}, {3.544974238444481*^9,
   3.5449742523909054`*^9}, 3.5450869371643295`*^9, 3.5454968095072055`*^9,
   3.546191537759899*^9, 3.546195520465475*^9, 3.546195617975611*^9,
   3.5462861809905677`*^9, 3.5463159982698035`*^9, {3.5481822228903008`*^9,
   3.5481822230775003`*^9}, 3.5481837869274473`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Author: Martin Welz 10 March 2011", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.508867909890354*^9,
   3.5088679102373743`*^9}, {3.5088682337248764`*^9,
   3.5088682348079386`*^9}, {3.508869193368765*^9, 3.508869215454028*^9},
   3.548181141928802*^9}],

Cell["Derivation: ???", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.508867909890354*^9,
   3.5088679102373743`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503609744422463*^9,
   3.503609745742465*^9}, {3.503610478773491*^9, 3.503610480153493*^9}, {
   3.5037039974012995`*^9, 3.503704009951317*^9}, {3.5044906727664814`*^9,
   3.5044907042265253`*^9}, {3.5046319342968225`*^9, 3.504631934646823*^9}, {
   3.508787887955432*^9, 3.508787888665433*^9}, {3.5088680763228736`*^9,
   3.5088680818531895`*^9}, 3.508868202283078*^9, 3.5088698133122234`*^9, {
   3.50887119986753*^9, 3.5088712005935717`*^9}, {3.513380418796961*^9,
   3.5133804194769616`*^9}, {3.5139231643519754`*^9, 3.51392316763198*^9}, {
   3.5151907438131285`*^9, 3.5151907441431293`*^9}, {3.5462863803408465`*^9,
   3.5462863810708475`*^9}, {3.546286512671032*^9, 3.546286512671032*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ",
        SqrtBox["b"]}],
       RowBox[{"a", " ", "d"}]]}]}]}],
   RowBox[{"ArcTan", "[",
    FractionBox[
     RowBox[{
      SqrtBox["b"], " ",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{
      SqrtBox["2"], " ",
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501814357417549*^9, 3.5018144174776545`*^9}, {3.501821754446142*^9,
   3.5018217794997864`*^9}, {3.501821876204356*^9, 3.501821879620762*^9}, {
   3.501821941724471*^9, 3.5018219589781017`*^9}, {3.5020737562757144`*^9,
   3.5020738155090184`*^9}, 3.5036098300025826`*^9, 3.503609984502799*^9, {
   3.5036869781408205`*^9, 3.503686982000826*^9}, 3.508868061778042*^9, {
   3.5133806421172733`*^9, 3.5133806832473307`*^9}, {3.5151823841502333`*^9,
   3.5151823858506365`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Sqrt", "[", "2", "]"}]}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[", "b", "]"}], "/",
     RowBox[{"(",
      RowBox[{"a", "*", "d"}], ")"}]}], "*",
    RowBox[{"ArcTan", "[",
     RowBox[{
      RowBox[{"Sqrt", "[", "b", "]"}], "*",
      RowBox[{
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}],
     "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{
      RowBox[{"ZeroQ", "[",
       RowBox[{"a", "-", "b"}], "]"}], " ", "&&", " ",
      RowBox[{"PositiveQ", "[", "a", "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9},
   3.503608287880424*^9, {3.503608818201166*^9, 3.50360882090117*^9}, {
   3.5036097491924696`*^9, 3.5036097502324715`*^9}, 3.503609837132593*^9,
   3.5036099906428075`*^9, {3.503610482913497*^9, 3.503610483843498*^9}, {
   3.5037042132616014`*^9, 3.50370421956161*^9}, {3.508868151667183*^9,
   3.5088681767086153`*^9}, {3.513380716687378*^9, 3.5133807485274224`*^9}, {
   3.513381176088021*^9, 3.513381180698027*^9}, {3.541088758293545*^9,
   3.5410887633947535`*^9}, 3.546317227069087*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535462100105`*^9, 3.5465535462100105`*^9}, {3.546561839877431*^9,
   3.546561842927435*^9}, 3.546562204280442*^9, 3.5465761450461435`*^9, {
   3.546577115767502*^9, 3.5465771184375057`*^9}, {3.546577220697649*^9,
   3.5465772279476595`*^9}, {3.54672215930238*^9, 3.54672215930238*^9}, {
   3.546722260990196*^9, 3.546722263978367*^9}, {3.5467223343883944`*^9,
   3.5467223352074413`*^9}, {3.5467238267437525`*^9,
   3.5467238293989043`*^9}, {3.5467241884054384`*^9, 3.54672419000953*^9}, {
   3.548180918351209*^9, 3.548180918351209*^9}, {3.5481810318258085`*^9,
   3.5481810318414087`*^9}, {3.5481816730673347`*^9,
   3.5481816752357388`*^9}, {3.548181982072677*^9, 3.54818198369508*^9}, {
   3.548182238069127*^9, 3.548182238225127*^9}, {3.5481837882378497`*^9,
   3.548183792449857*^9}, {3.548183995765014*^9, 3.548183995765014*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 1b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, 3.501814332956706*^9, 3.5018217188156796`*^9,
   3.508786823213941*^9, {3.51338421101227*^9, 3.5133842114922705`*^9},
   3.5133851484435825`*^9, {3.5133859873647566`*^9, 3.5133859886947584`*^9}, {
   3.51387844517502*^9, 3.513878456355036*^9}, {3.5467134116100407`*^9,
   3.5467134116100407`*^9}, {3.546713810601862*^9, 3.546713810601862*^9}, {
   3.5467215549748144`*^9, 3.5467215549748144`*^9}}],

Cell[TextData[{
 "Rule 12: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5023395510912046`*^9,
   3.5023395726972427`*^9}, {3.502382141867082*^9, 3.502382142990284*^9}, {
   3.5023888311514626`*^9, 3.502388833891467*^9}, {3.50239037931363*^9,
   3.502390384843638*^9}, {3.503441151311346*^9, 3.5034411637713633`*^9}, {
   3.5046317436349497`*^9, 3.5046317449141517`*^9}, {3.505178963915414*^9,
   3.5051789642284317`*^9}, 3.5133855970042105`*^9, {3.5133856773043222`*^9,
   3.5133856957343483`*^9}, {3.513385942374694*^9, 3.513385943174695*^9}, {
   3.515264103091096*^9, 3.5152641108287096`*^9}, {3.515265877763815*^9,
   3.5152658825686235`*^9}, {3.5467134116190414`*^9, 3.546713411627042*^9}, {
   3.5467135499629545`*^9, 3.5467135499629545`*^9}, {3.5467137483162994`*^9,
   3.5467137483172994`*^9}, {3.5467137943379316`*^9,
   3.5467137943379316`*^9}, {3.5467215535857353`*^9,
   3.5467215535857353`*^9}, {3.5467223429308834`*^9,
   3.5467223429308834`*^9}, {3.5467241969759283`*^9,
   3.5467241969759283`*^9}, {3.5481809203792124`*^9,
   3.5481809203792124`*^9}, {3.548181033198611*^9, 3.548181033198611*^9}, {
   3.5481819863782845`*^9, 3.5481819881566877`*^9}, {3.548183999945822*^9,
   3.548183999945822*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
       RowBox[{"b", " ", "d", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"n", "+", "1"}]]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "1"}],
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"n", "+", "1"}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"n", "+", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.510172397162881*^9, 3.5101724322785425`*^9}, {
   3.513277045993078*^9, 3.5132771366732054`*^9}, {3.5132772238133273`*^9,
   3.5132772240033274`*^9}, {3.513277256793373*^9, 3.513277286693415*^9},
   3.513277413733593*^9, {3.513385066983468*^9, 3.5133851251535497`*^9}, {
   3.513385173283617*^9, 3.5133852087836666`*^9}, {3.51338528269377*^9,
   3.5133853036937995`*^9}, {3.513385355213872*^9, 3.513385371353894*^9}, {
   3.515183747961829*^9, 3.515183753515439*^9}, {3.5467134297020755`*^9,
   3.5467134569526343`*^9}, {3.5467238422136374`*^9,
   3.5467238829929695`*^9}, {3.5467239608524227`*^9, 3.546723975903284*^9},
   3.546724009284193*^9, {3.546725252363293*^9, 3.546725318062051*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"n", "+", "1"}], ")"}], "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}], "/",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{
     RowBox[{"m", "+", "n", "+", "1"}], "\[Equal]", "0"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5023203430722265`*^9, 3.502320347268634*^9}, {
   3.502338777969447*^9, 3.502338810495504*^9}, 3.5023394935115037`*^9, {
   3.5023395359435787`*^9, 3.502339538595583*^9}, {3.502382132382265*^9,
   3.50238213523707*^9}, {3.502388816831443*^9, 3.5023888192114463`*^9}, {
   3.5023903157235413`*^9, 3.502390319073546*^9}, {3.5034411299313164`*^9,
   3.503441139031329*^9}, {3.5053551463574347`*^9, 3.5053551627274575`*^9},
   3.505355197817507*^9, 3.5053632753930283`*^9, 3.513385564574165*^9, {
   3.5133856066042233`*^9, 3.5133856606742992`*^9}, {3.513385701234356*^9,
   3.5133857025043583`*^9}, {3.5133859285246744`*^9,
   3.5133859308546777`*^9}, {3.5136352711481524`*^9, 3.5136352837281704`*^9},
   3.5139665871815786`*^9, 3.5139667048917437`*^9, 3.513969146547163*^9,
   3.513969400057518*^9, 3.5139698182181034`*^9, {3.515257928231716*^9,
   3.515257930852521*^9}, {3.5152588004292483`*^9, 3.515258802582052*^9}, {
   3.5152632845264587`*^9, 3.5152632891284666`*^9}, {3.5152639723160667`*^9,
   3.515263981629283*^9}, {3.5152658398245487`*^9, 3.5152658420553527`*^9},
   3.5152706429709873`*^9, 3.5168208089166756`*^9, 3.5168236557014093`*^9, {
   3.5410884769626503`*^9, 3.5410884821106596`*^9}, {3.5455832532822075`*^9,
   3.5455832532922077`*^9}, {3.5467136067552023`*^9, 3.546713718119572*^9},
   3.5467138170872326`*^9, {3.546722282409422*^9, 3.5467223192385283`*^9}, {
   3.5467241582867155`*^9, 3.546724162159937*^9}, 3.5467241998430924`*^9, {
   3.5467253230523367`*^9, 3.5467253873910165`*^9}, {3.5467254238030987`*^9,
   3.546725427529312*^9}, {3.546735641284102*^9, 3.546735644462284*^9}, {
   3.546738901943601*^9, 3.546738910037064*^9}, {3.546745200730871*^9,
   3.5467452037230425`*^9}, 3.548178521149399*^9, {3.548181380904422*^9,
   3.5481813826204243`*^9}, {3.5481820661724253`*^9, 3.548182068372029*^9}, {
   3.5481840026446266`*^9, 3.548184008557037*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481788741468186`*^9,
   3.5481788743184185`*^9}, {3.54817890902848*^9, 3.54817892642251*^9}, {
   3.548179118599248*^9, 3.5481791519365063`*^9}, {3.5481816451432858`*^9,
   3.54818165930811*^9}, {3.5481817082297964`*^9, 3.548181745654262*^9}, {
   3.5481820124459305`*^9, 3.548182014239934*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", ">",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535462100105`*^9, 3.5465535462100105`*^9}, {3.546561839877431*^9,
   3.546561842927435*^9}, 3.546562204280442*^9, 3.5465761450461435`*^9, {
   3.546577115767502*^9, 3.5465771184375057`*^9}, {3.546577220697649*^9,
   3.5465772279476595`*^9}, {3.54672215930238*^9, 3.54672215930238*^9}, {
   3.5467223788839397`*^9, 3.5467223788839397`*^9}, {3.5467224277627354`*^9,
   3.5467224277627354`*^9}, {3.5467246185400405`*^9,
   3.5467246408183146`*^9}, {3.5481808684779215`*^9,
   3.5481808684779215`*^9}, {3.548180977334913*^9, 3.548180977334913*^9}, {
   3.5481816774353423`*^9, 3.548181679338546*^9}, {3.548181797461953*^9,
   3.548181797461953*^9}, {3.5481818899701157`*^9, 3.548181893433322*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 5 with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9},
   3.501815012259899*^9, {3.502380812270746*^9, 3.5023808271375723`*^9},
   3.508786823223941*^9, {3.5133862496551237`*^9, 3.5133862518551273`*^9},
   3.513386362635282*^9, {3.5133870689362707`*^9, 3.513387070036272*^9}, {
   3.513884546843562*^9, 3.513884561313583*^9}, {3.546713411473033*^9,
   3.546713411473033*^9}, {3.546713730368273*^9, 3.546713730368273*^9}, {
   3.5467163196713724`*^9, 3.546716320442416*^9}}],

Cell[TextData[{
 "Rule 13: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018152969603987`*^9,
   3.5018152976624002`*^9}, {3.5019631527037125`*^9, 3.501963154183715*^9}, {
   3.5019697498310204`*^9, 3.5019697498310204`*^9}, {3.502045984589511*^9,
   3.502045984589511*^9}, {3.502319396821365*^9, 3.5023194100189877`*^9}, {
   3.5023296064929376`*^9, 3.502329608474141*^9}, {3.5023339013540816`*^9,
   3.5023339013540816`*^9}, {3.5023808428936*^9, 3.5023808578540263`*^9}, {
   3.502387153199114*^9, 3.5023871569091187`*^9}, {3.5023875321496444`*^9,
   3.5023875429896593`*^9}, {3.5025903524142356`*^9, 3.502590353344237*^9}, {
   3.5046317754366*^9, 3.504631776736602*^9}, {3.5051789765201344`*^9,
   3.505178976724146*^9}, 3.513386621685645*^9, 3.513386978486144*^9, {
   3.5133870236962075`*^9, 3.5133870242662086`*^9}, {3.5152716203387046`*^9,
   3.515271631851525*^9}, {3.515271794887411*^9, 3.515271796650214*^9}, {
   3.5467134114890337`*^9, 3.546713411490034*^9}, {3.546713570505129*^9,
   3.546713570505129*^9}, {3.546713741384903*^9, 3.546713741385903*^9}, {
   3.5467137760618863`*^9, 3.5467137780930023`*^9}, {3.5467154157836733`*^9,
   3.5467154157836733`*^9}, {3.5467154502736454`*^9,
   3.5467154520047445`*^9}, {3.5467223921116962`*^9, 3.546722401953259*^9}, {
   3.546724647293685*^9, 3.546724647293685*^9}, {3.5481808706775255`*^9,
   3.5481808706775255`*^9}, {3.548180978770115*^9, 3.548180978770115*^9}, {
   3.5481818009875593`*^9, 3.5481818009875593`*^9}, {3.548181903354939*^9,
   3.548181903354939*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"n", "+", "1"}]]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"a", " ", "n"}],
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"n", "+", "1"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095542513719344`*^9, 3.509554323542035*^9}, {3.510172539341531*^9,
   3.5101725420403357`*^9}, {3.510173494983609*^9, 3.5101735152636447`*^9}, {
   3.5132798504870043`*^9, 3.5132799133070927`*^9}, {3.5132800310872574`*^9,
   3.5132800316472583`*^9}, {3.5132800984573517`*^9,
   3.5132801027073574`*^9}, {3.513280379307745*^9, 3.513280408807786*^9}, {
   3.513386309215207*^9, 3.5133863342252426`*^9}, {3.513386379485306*^9,
   3.5133864046153407`*^9}, {3.5133864604854193`*^9, 3.513386501665477*^9}, {
   3.5151837862598968`*^9, 3.5151837880539*^9}, {3.5151838220151596`*^9,
   3.515183823949563*^9}, {3.5467132829046793`*^9, 3.54671333955892*^9}, {
   3.5467249702341566`*^9, 3.5467249988717947`*^9}, 3.548042187638591*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{"a", "*",
     RowBox[{"n", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{
     RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "&&", " ",
    RowBox[{"n", ">",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9,
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501815056251976*^9, 3.5018150914456377`*^9}, {3.501962084402217*^9,
   3.5019620853222184`*^9}, 3.501963123453672*^9, {3.5019632157938013`*^9,
   3.5019632266338167`*^9}, {3.5019697456010146`*^9,
   3.5019697463110156`*^9}, {3.502045976461897*^9, 3.5020459805959044`*^9}, {
   3.502319372422922*^9, 3.502319379942135*^9}, {3.502328155378389*^9,
   3.502328170448015*^9}, {3.502333890215662*^9, 3.502333891229664*^9}, {
   3.50238097939384*^9, 3.502380998316673*^9}, {3.502384119951358*^9,
   3.502384122447362*^9}, {3.5023871157790613`*^9, 3.502387119649067*^9}, {
   3.5023874766895666`*^9, 3.502387488129583*^9}, {3.502577597912674*^9,
   3.5025775992826757`*^9}, {3.5025898549735394`*^9, 3.502589858803544*^9}, {
   3.505355146387435*^9, 3.5053551627574577`*^9}, 3.505355197837507*^9,
   3.5053633721431637`*^9, {3.5133866368756657`*^9, 3.513386664915705*^9}, {
   3.513386988946159*^9, 3.513387044006236*^9}, {3.513387130576357*^9,
   3.5133871409963717`*^9}, {3.513635200268053*^9, 3.5136352131780715`*^9},
   3.513966724441771*^9, {3.513967574204962*^9, 3.51396757986497*^9},
   3.513967677835107*^9, {3.513968835726728*^9, 3.513968836006728*^9},
   3.5139691484971657`*^9, {3.51527078678764*^9, 3.5152707870840406`*^9}, {
   3.515271596111862*^9, 3.5152715998402686`*^9}, 3.5152717847785935`*^9,
   3.5168208088166757`*^9, 3.516823655631406*^9, {3.5410885009398923`*^9,
   3.541088510175109*^9}, {3.545583253142207*^9, 3.5455832531522074`*^9}, {
   3.546713606700199*^9, 3.5467137079519906`*^9}, {3.546715501521577*^9,
   3.5467155084039707`*^9}, 3.546722374973716*^9, {3.546722433517064*^9,
   3.5467224518091106`*^9}, {3.5467246584703245`*^9, 3.546724659817402*^9}, {
   3.546725013117609*^9, 3.546725035353881*^9}, {3.546725170891633*^9,
   3.5467251751288757`*^9}, {3.5467355902621837`*^9,
   3.5467355935483713`*^9}, {3.5467388896598983`*^9,
   3.5467388938421373`*^9}, {3.546745190854306*^9, 3.5467451937634726`*^9},
   3.5481785029597664`*^9, {3.548181235590166*^9, 3.5481812373685694`*^9},
   3.548181806759569*^9, {3.548181927098181*^9, 3.5481819287673836`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]",
       " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535462100105`*^9, 3.5465535462100105`*^9}, {3.546561839877431*^9,
   3.546561842927435*^9}, 3.546562204280442*^9, 3.5465761450461435`*^9, {
   3.546577115767502*^9, 3.5465771184375057`*^9}, {3.546577220697649*^9,
   3.5465772279476595`*^9}, {3.54672215930238*^9, 3.54672215930238*^9}, {
   3.546722260990196*^9, 3.546722263978367*^9}, {3.5467223343883944`*^9,
   3.5467223352074413`*^9}, {3.5467224944305487`*^9,
   3.5467224944305487`*^9}, {3.5467226267151146`*^9,
   3.5467226267151146`*^9}, {3.5467226628971844`*^9,
   3.5467226628981843`*^9}, {3.5467244068799343`*^9, 3.546724450737443*^9}, {
   3.548180923577218*^9, 3.548180923577218*^9}, {3.5481810342126126`*^9,
   3.5481810342126126`*^9}, {3.548181681491349*^9, 3.54818168189695*^9}, {
   3.548181882700503*^9, 3.548181885305707*^9}, {3.548213149273283*^9,
   3.548213149273283*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 6 with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9}, {
   3.5018084803824253`*^9, 3.501808481100027*^9}, 3.5018151793673925`*^9, {
   3.5023896675526342`*^9, 3.5023896736726427`*^9}, 3.508786823233941*^9, {
   3.5133862622151413`*^9, 3.513386263035143*^9}, 3.51338728269657*^9, {
   3.5138846465537024`*^9, 3.513884658783719*^9}, {3.5467134115130353`*^9,
   3.5467134115130353`*^9}, {3.5467137337364655`*^9,
   3.5467137337364655`*^9}, {3.546721544682226*^9, 3.546721544682226*^9}}],

Cell[TextData[{
 "Rule 14: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018088942823524`*^9, 3.5018088954991546`*^9},
   3.50180892701121*^9, {3.50181529162519*^9, 3.5018152927015915`*^9}, {
   3.5019635541242747`*^9, 3.501963558874282*^9}, {3.5019652763866863`*^9,
   3.5019652763866863`*^9}, {3.501985346137437*^9, 3.5019853551474495`*^9}, {
   3.5023187886386967`*^9, 3.502318789403098*^9}, {3.5023296895162835`*^9,
   3.5023297015595045`*^9}, {3.5023316517677307`*^9,
   3.5023316517677307`*^9}, {3.502333862822014*^9, 3.502333863555215*^9}, {
   3.5023886706912384`*^9, 3.5023886706912384`*^9}, {3.5023900266131363`*^9,
   3.5023900266131363`*^9}, {3.5034415946084056`*^9,
   3.5034415993196135`*^9}, {3.5046317805166073`*^9, 3.504631781636609*^9}, {
   3.5051789787322607`*^9, 3.505178979041279*^9}, 3.5133872857065744`*^9,
   3.513387396016729*^9, 3.513387577226982*^9, {3.5152633655998006`*^9,
   3.5152633655998006`*^9}, {3.5152641318887463`*^9,
   3.5152641318887463`*^9}, {3.5152658658921947`*^9,
   3.5152658681385984`*^9}, {3.5467134115290365`*^9, 3.546713411557038*^9}, {
   3.5467135427375407`*^9, 3.5467135427375407`*^9}, {3.546713743534026*^9,
   3.546713743534026*^9}, {3.54671378434136*^9, 3.54671378434136*^9}, {
   3.546721546566334*^9, 3.546721546566334*^9}, {3.5467226370777073`*^9,
   3.546722657143855*^9}, {3.546724459763959*^9, 3.546724459763959*^9}, {
   3.5481809283040266`*^9, 3.5481809283040266`*^9}, {3.5481810351798143`*^9,
   3.5481810351798143`*^9}, {3.548181912558955*^9, 3.548181912558955*^9}, {
   3.5482131721045885`*^9, 3.5482131721045885`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "n"}], "+", "1"}], ")"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"n", "+", "1"}]]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["n",
    RowBox[{"a",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"n", "+", "1"}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"n", "+", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9,
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9,
   3.5013586400931444`*^9}, 3.5027672052757444`*^9, 3.5035556969716425`*^9,
   3.5053446414737844`*^9, {3.505344693303857*^9, 3.505344708433878*^9},
   3.5053535619252167`*^9, {3.5094747245329013`*^9, 3.509474861672745*^9}, {
   3.5095533946779337`*^9, 3.509553415627963*^9}, {3.509553538668135*^9,
   3.5095535518681536`*^9}, {3.5095535889582057`*^9,
   3.5095536266082582`*^9}, {3.5101725552067585`*^9,
   3.5101725573127623`*^9}, {3.5101728674101067`*^9,
   3.5101728711385136`*^9}, {3.510173662715104*^9, 3.510173677129529*^9},
   3.5102536435885286`*^9, {3.513292062852798*^9, 3.513292242867111*^9}, {
   3.5132923801169157`*^9, 3.5132923861569242`*^9}, {3.5133872486165223`*^9,
   3.5133873715566945`*^9}, {3.515183828754371*^9, 3.515183834339181*^9}, {
   3.54671334882045*^9, 3.5467133637203016`*^9}, {3.5467256123338823`*^9,
   3.5467256531092143`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"n", "/",
      RowBox[{"(",
       RowBox[{"a", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}], "/",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{
     RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9,
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501808857045087*^9, 3.501808860570693*^9}, {3.501808898962361*^9,
   3.501808916137991*^9}, {3.501815185950604*^9, 3.501815193859818*^9},
   3.5018153663025208`*^9, {3.501963510624214*^9, 3.5019635224342303`*^9}, {
   3.5019853143173923`*^9, 3.501985331897417*^9}, {3.5023186901245236`*^9,
   3.5023186995781403`*^9}, {3.502328108500306*^9, 3.5023281359095545`*^9}, {
   3.502329683447873*^9, 3.502329705787112*^9}, 3.502329766050018*^9, {
   3.5023316434061155`*^9, 3.5023316474465227`*^9}, {3.5023338521983953`*^9,
   3.5023338551468005`*^9}, 3.502388666141232*^9, {3.5023898041128254`*^9,
   3.5023898144828396`*^9}, {3.5023899130529776`*^9, 3.5023899145029793`*^9},
   3.502389976893067*^9, {3.503441572861967*^9, 3.503441583563586*^9}, {
   3.505355146427435*^9, 3.5053551627874575`*^9}, 3.505355197867507*^9,
   3.505363377323171*^9, {3.5133873851267138`*^9, 3.513387429826776*^9},
   3.5133875550169516`*^9, {3.513635168298009*^9, 3.513635193838044*^9},
   3.5139667527218103`*^9, {3.5139676701850967`*^9, 3.5139676725050993`*^9},
   3.513969150447169*^9, 3.5139694052075253`*^9, {3.5139698028780823`*^9,
   3.513969810508093*^9}, {3.5152579365933313`*^9, 3.515257939058135*^9}, {
   3.5152588102728653`*^9, 3.5152588119108686`*^9}, {3.5152632960236783`*^9,
   3.515263299486884*^9}, 3.5152640720782413`*^9, {3.5152658551749754`*^9,
   3.51526585740578*^9}, 3.515270649663399*^9, 3.516820808846676*^9,
   3.5168236556354055`*^9, {3.541088503591897*^9, 3.5410885065871024`*^9}, {
   3.5455832531922073`*^9, 3.5455832532022076`*^9}, {3.5467136067272005`*^9,
   3.546713710829155*^9}, {3.546722528097474*^9, 3.546722560232312*^9}, {
   3.5467244676624107`*^9, 3.5467245128349943`*^9}, {3.546725466351533*^9,
   3.546725480786358*^9}, {3.5467256615706987`*^9, 3.5467256860240974`*^9}, {
   3.546735650205612*^9, 3.5467356531937833`*^9}, {3.5467389138752837`*^9,
   3.546738918387542*^9}, {3.5467452065452037`*^9, 3.5467452095083733`*^9},
   3.548178529167813*^9, {3.54818139709725*^9, 3.5481813986884527`*^9}, {
   3.5481819185961657`*^9, 3.5481819206241693`*^9}, {3.548213177653906*^9,
   3.5482131818581467`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481788741468186`*^9,
   3.5481788743184185`*^9}, {3.54817890902848*^9, 3.54817892642251*^9}, {
   3.548179118599248*^9, 3.5481791519365063`*^9}, {3.5481816451432858`*^9,
   3.548181645330486*^9}, {3.548181727901431*^9, 3.548181728057431*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.546200717732751*^9, 3.5462007439427876`*^9}, {3.546206237565669*^9,
   3.546206237885669*^9}, 3.5463152382663336`*^9, {3.5465757787056303`*^9,
   3.546575814875681*^9}, {3.5481793289968176`*^9, 3.5481793289968176`*^9}, {
   3.54818081089822*^9, 3.54818081089822*^9}, {3.5481810698498755`*^9,
   3.5481810698498755`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5450142036771193`*^9,
   3.5454968155772142`*^9, {3.5460549819028172`*^9, 3.5460549821228175`*^9},
   3.546191544689909*^9, 3.5461961601363707`*^9, 3.546197017797571*^9,
   3.546198904120212*^9, {3.546199021800377*^9, 3.5461990221303773`*^9},
   3.546315755413913*^9, 3.5465319936643767`*^9, {3.5465450538401613`*^9,
   3.5465450548101625`*^9}, 3.546545123100258*^9, {3.5465451587203083`*^9,
   3.546545206400375*^9}, {3.5481793308376207`*^9, 3.5481793308376207`*^9}, {
   3.548180813019824*^9, 3.548180813019824*^9}, {3.5481809595664816`*^9,
   3.5481809595664816`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 3b with ",
 Cell[BoxData[
  RowBox[{"n", "=",
   FractionBox["1", "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9},
   3.5018140207689576`*^9, {3.5018216494891577`*^9, 3.501821669550793*^9}, {
   3.5019589809978724`*^9, 3.5019590047879057`*^9}, {3.502135717824956*^9,
   3.50213572018056*^9}, {3.5021366778942423`*^9, 3.5021366795166454`*^9}, {
   3.5021369861631837`*^9, 3.5021369923407946`*^9}, 3.508786823203941*^9, {
   3.5133819093490477`*^9, 3.513381909829048*^9}, {3.513721165357891*^9,
   3.513721166886694*^9}, {3.5137215035040846`*^9, 3.513721526170924*^9}}],

Cell[TextData[{
 "Rule 10: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.5011924479085164`*^9,
   3.501192449768519*^9}, {3.5012672318508615`*^9, 3.5012672409508743`*^9}, {
   3.5018067804754405`*^9, 3.5018068133914986`*^9}, {3.501807130150055*^9,
   3.5018071318504577`*^9}, {3.501881120717829*^9, 3.501881120717829*^9}, {
   3.5021348082093573`*^9, 3.502134808926959*^9}, {3.502136614542531*^9,
   3.5021366198777404`*^9}, {3.502578761094302*^9, 3.502578768184312*^9}, {
   3.504590267471855*^9, 3.5045902684518566`*^9}, {3.51338404684204*^9,
   3.513384067112068*^9}, {3.5133841050421214`*^9, 3.513384106712124*^9}, {
   3.513641759537236*^9, 3.5136417732872553`*^9}, {3.5150068450185647`*^9,
   3.5150068472746935`*^9}, {3.546545060970171*^9, 3.546545077190194*^9}, {
   3.5465452148503866`*^9, 3.5465452148503866`*^9}, {3.5481793321948233`*^9,
   3.5481793321948233`*^9}, {3.548180817200631*^9, 3.548180817200631*^9}, {
   3.5481809606428833`*^9, 3.5481809606428833`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", " ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2", " ", "b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}], "m"]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", " ", "m"}], "+", "1"}], ")"}], " ",
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "a", " ", "m"}],
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "m"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "-", "1"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, {3.5011911220866604`*^9, 3.501191124796664*^9}, {
   3.501265980199109*^9, 3.501266014289157*^9}, {3.501266063349225*^9,
   3.501266065199228*^9}, {3.501806833780734*^9, 3.5018069301109033`*^9}, {
   3.5021342020030923`*^9, 3.5021342253563333`*^9}, {3.502134496879611*^9,
   3.502134506224027*^9}, {3.5021346420222654`*^9, 3.502134643972269*^9}, {
   3.50213470708998*^9, 3.502134710818386*^9}, 3.5021348366950073`*^9, {
   3.5021357367789893`*^9, 3.5021357488534107`*^9}, {3.5021361747965584`*^9,
   3.5021361839693747`*^9}, {3.5021362308162565`*^9,
   3.5021363518724694`*^9}, {3.502136399187352*^9, 3.5021364054429636`*^9}, {
   3.502155753065427*^9, 3.5021557599754367`*^9}, {3.505355146277435*^9,
   3.5053551626574574`*^9}, 3.505355197747507*^9, 3.505363171332883*^9, {
   3.5133834827112503`*^9, 3.5133835194913015`*^9}, 3.513383581761389*^9, {
   3.5133836127114325`*^9, 3.513383628101454*^9}, {3.51338366818151*^9,
   3.51338366856151*^9}, {3.513383705491562*^9, 3.513383739051609*^9}, {
   3.513383795581688*^9, 3.51338379688169*^9}, 3.513383894911827*^9, {
   3.513641493446864*^9, 3.513641502866877*^9}, {3.5136415429469333`*^9,
   3.5136415504069433`*^9}, {3.5151836878861237`*^9, 3.515183694718936*^9},
   3.546545086580207*^9, 3.546545125110261*^9, {3.5465452543004417`*^9,
   3.546545309450519*^9}, 3.546545814991227*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.502134774372898*^9, 3.5021347791621065`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*", "b", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "+", "1"}], ")"}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ",
    "+", " ", "\n", "  ",
    RowBox[{"2", "*", "a", "*",
     RowBox[{"m", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "1"}], ")"}]}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "0"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.50119120053677*^9, {3.5011912580268507`*^9, 3.501191260026853*^9},
   3.501191906207758*^9, 3.501266112379294*^9, {3.501266934110444*^9,
   3.5012669465204616`*^9}, 3.501267020310565*^9, {3.501807055254323*^9,
   3.5018070667983437`*^9}, {3.501807109511218*^9, 3.501807112069623*^9}, {
   3.501807165546517*^9, 3.5018071672157197`*^9}, 3.5018077525787473`*^9, {
   3.5018811153078213`*^9, 3.501881117787825*^9}, {3.5018900729508686`*^9,
   3.5018900741908703`*^9}, {3.5021347842009153`*^9,
   3.5021347975545387`*^9}, {3.5021349097187357`*^9, 3.502134918345551*^9}, {
   3.502135766793442*^9, 3.5021357677294436`*^9}, 3.5021358320639563`*^9,
   3.502136487651908*^9, {3.5021365295847816`*^9, 3.5021365596460342`*^9}, {
   3.5021557720954533`*^9, 3.5021557767554603`*^9}, 3.5025787020042195`*^9, {
   3.5051677206078076`*^9, 3.50516772518707*^9}, {3.505169931733277*^9,
   3.5051699345434375`*^9}, {3.5053551462874346`*^9, 3.505355162677458*^9},
   3.5053551977675066`*^9, 3.5053631744528875`*^9, 3.5133834210111637`*^9, {
   3.5133840301120167`*^9, 3.513384071992075*^9}, {3.513384124552149*^9,
   3.513384136052165*^9}, {3.5133871766164217`*^9, 3.5133871785864244`*^9}, {
   3.5136415171968975`*^9, 3.5136415219169035`*^9}, {3.5136415588569555`*^9,
   3.513641613747032*^9}, {3.513641697437149*^9, 3.513641741367211*^9}, {
   3.5150068363300676`*^9, 3.515006839054223*^9}, 3.5168208090066757`*^9, {
   3.541088536039954*^9, 3.541088538879159*^9}, {3.545583253102207*^9,
   3.5455832531122074`*^9}, {3.546545579850898*^9, 3.546545732361111*^9},
   3.548179387774521*^9, {3.548181079653493*^9, 3.5481810817438965`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546198899460205*^9, {3.5461989426102657`*^9,
   3.5461989515502787`*^9}, 3.5463157505256333`*^9, {3.5463169605038404`*^9,
   3.5463169728685474`*^9}, {3.5465678507772727`*^9, 3.546567882142067*^9}, {
   3.546575740955577*^9, 3.546575741165578*^9}, {3.548180820897838*^9,
   3.548180820897838*^9}, {3.548180961766085*^9, 3.548180961766085*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546198899460205*^9, {3.5461989426102657`*^9,
   3.5461989515502787`*^9}, 3.5463157505256333`*^9, {3.5463169605038404`*^9,
   3.5463169728685474`*^9}, {3.5465678507772727`*^9, 3.546567882142067*^9}, {
   3.546575740955577*^9, 3.546575741165578*^9}, {3.546705916706357*^9,
   3.546705950396284*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546198899460205*^9, {3.5461989426102657`*^9,
   3.5461989515502787`*^9}, 3.5463157505256333`*^9, {3.5463169605038404`*^9,
   3.5463169728685474`*^9}, {3.5465678507772727`*^9, 3.546567882142067*^9}, {
   3.546575740955577*^9, 3.546575741165578*^9}, {3.546705916706357*^9,
   3.546705950396284*^9}, {3.5467062239209285`*^9, 3.546706230973332*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
   3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
   3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
   3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
   3.546705921295619*^9}, 3.5467059830511513`*^9, {3.5467060834518943`*^9,
   3.546706089908263*^9}, {3.5467061621883974`*^9, 3.5467061669036674`*^9},
   3.5467062624731336`*^9, {3.5467065409110594`*^9, 3.5467065410890694`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and trig substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    FractionBox[
     RowBox[{"Cos", "[",
      FractionBox["z", "2"], "]"}],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"a", " ",
        RowBox[{"Cos", "[", "z", "]"}]}]}]]]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.50207476692389*^9, 3.5020747737723017`*^9}, {
   3.502217989821336*^9, 3.502218014219779*^9}, {3.5022184003524575`*^9,
   3.502218400680058*^9}, 3.5022184373245225`*^9, {3.5022184771981926`*^9,
   3.5022184806769986`*^9}, {3.546706282950305*^9, 3.5467062895016794`*^9}, {
   3.5467063625678587`*^9, 3.5467063646109753`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+",
    RowBox[{"a", " ",
     RowBox[{"Cos", "[", "z", "]"}]}]}], "\[Equal]",
   RowBox[{"2", " ", "a", " ",
    SuperscriptBox[
     RowBox[{"Cos", "[",
      FractionBox["z", "2"], "]"}], "2"]}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.50207476692389*^9, 3.5020747737723017`*^9}, {
   3.502217989821336*^9, 3.502218014219779*^9}, {3.5022184003524575`*^9,
   3.502218400680058*^9}, 3.5022184373245225`*^9, {3.5022184771981926`*^9,
   3.5022184806769986`*^9}, 3.5022357451483955`*^9, {3.5022358586128855`*^9,
   3.502235879761095*^9}, {3.546706296291068*^9, 3.546706301637374*^9}, {
   3.5467063693522468`*^9, 3.5467063699062786`*^9}}],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for ",
 Cell[BoxData[
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
    3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
    3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
    3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
    3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
    3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
    3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
    3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
    3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
    3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
    3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
    3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
    3.5194134927764077`*^9}, {3.5194141847624226`*^9,
    3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
    3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
    3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
    3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
    3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
    3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
    3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
    3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
    3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
    3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
    3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
    3.5328460582169604`*^9, {3.5328745920833416`*^9,
    3.5328746294142075`*^9}, {3.532875067275776*^9, 3.532875067650177*^9}, {
    3.532875139909504*^9, 3.532875150829523*^9}, {3.537656121233163*^9,
    3.537656121443164*^9}, 3.540263906712819*^9, {3.5402639787229204`*^9,
    3.5402639788829203`*^9}, {3.540319178473138*^9, 3.5403191846574917`*^9}, {
    3.540319223359705*^9, 3.5403192458899937`*^9}, {3.5403196532852955`*^9,
    3.5403196542853527`*^9}, {3.5404234472634363`*^9,
    3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
    3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
    3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
    3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
    3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
    3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
    3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
    3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
    3.546705921295619*^9}, 3.5467059830511513`*^9, 3.546706158641195*^9},
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9, 3.4980156457105*^9, {
   3.4980207183018446`*^9, 3.498020768767933*^9}, 3.498059955917454*^9, {
   3.4980603297565107`*^9, 3.4980603534217525`*^9}, {3.4980604729647627`*^9,
   3.4980604821687784`*^9}, {3.498062467701068*^9, 3.4980625074811373`*^9}, {
   3.498062720437112*^9, 3.49806273658314*^9}, {3.498062866812169*^9,
   3.4980628951574183`*^9}, {3.513377847463361*^9, 3.51337785408337*^9}, {
   3.513378298423992*^9, 3.513378308944007*^9}, {3.5133783881541176`*^9,
   3.513378425854171*^9}, {3.51337857547438*^9, 3.5133785987544127`*^9}, {
   3.513378680544527*^9, 3.5133787029645586`*^9}, {3.513378780694667*^9,
   3.5133787854946737`*^9}, {3.5134525742622547`*^9, 3.513452574812256*^9}, {
   3.5134526934224215`*^9, 3.513452694252423*^9}, {3.5134527406824875`*^9,
   3.5134527409424877`*^9}, {3.515190691093055*^9, 3.5151906945130596`*^9}, {
   3.5463165044197536`*^9, 3.54631653862671*^9}, {3.5467067398964405`*^9,
   3.5467067649068713`*^9}, {3.5467068402471805`*^9, 3.5467068402471805`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, 3.4976400387242327`*^9, {
   3.5048161106415443`*^9, 3.5048161119315457`*^9}, {3.5087878317653527`*^9,
   3.5087878321053534`*^9}, {3.513923011861762*^9, 3.5139230126817627`*^9}, {
   3.546316519095593*^9, 3.5463165195746202`*^9}, 3.5467064060123434`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"2", "a", " ",
        RowBox[{"Cos", "[",
         FractionBox[
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "2"], "]"}]}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"a", " ",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"Cos", "[",
        FractionBox[
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "2"], "]"}],
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}],
  "                                         "}], "\[IndentingNewLine]",
 RowBox[{"                                 ",
  RowBox[{
   RowBox[{"\[LongRightArrow]", "  ",
    FractionBox[
     RowBox[{"2", " ",
      SqrtBox["2"], " ", "a", "  ",
      RowBox[{"Cos", "[",
       FractionBox[
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "2"], "]"}]}],
     RowBox[{"d", " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}],
   RowBox[{"ArcTanh", "[",
    RowBox[{
     SqrtBox["2"], " ",
     RowBox[{"Sin", "[",
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"], "]"}]}], "]"}]}]}]}], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, {3.500665322063992*^9,
   3.500665324003995*^9}, {3.5006735459555054`*^9, 3.500673548335509*^9},
   3.50067378444584*^9, {3.500673868565957*^9, 3.50067387043596*^9}, {
   3.500674037036193*^9, 3.5006740444662037`*^9}, 3.500674132086326*^9, {
   3.5006746906971083`*^9, 3.5006747035471263`*^9}, {3.50223496213461*^9,
   3.502234994005433*^9}, {3.5022353886120033`*^9, 3.5022353946353474`*^9}, {
   3.5022354539687414`*^9, 3.502235457068918*^9}, {3.5022360483627386`*^9,
   3.502236054278077*^9}, {3.5087872671745625`*^9, 3.508787324654643*^9}, {
   3.5087923750417137`*^9, 3.5087923797217197`*^9}, {3.513452512152168*^9,
   3.5134525139521704`*^9}, 3.5134528686726665`*^9, {3.5134531084230022`*^9,
   3.513453118323016*^9}, 3.513453350073341*^9, {3.5151822060711203`*^9,
   3.5151822449775887`*^9}, {3.515971590682623*^9, 3.5159715925078263`*^9}, {
   3.546706408468484*^9, 3.546706410830619*^9}, {3.546706516707675*^9,
   3.5467065187577925`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"Pi", "/", "2"}], "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{"Sqrt", "[", "2", "]"}], "*", "a", "*",
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"a", "*",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], "*",
      RowBox[{"Sin", "[",
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}]}], "]"}]}], " ",
    "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "-", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9,
   3.4976400203630004`*^9, {3.497921614589382*^9, 3.497921644806636*^9},
   3.4979232490822535`*^9, {3.499129515580019*^9, 3.4991295254700327`*^9},
   3.500673974916106*^9, {3.500674141346339*^9, 3.5006741459563456`*^9}, {
   3.500674186596402*^9, 3.500674190066407*^9}, 3.500674717507146*^9, {
   3.5087873358146586`*^9, 3.5087873394246635`*^9}, {3.513379915306256*^9,
   3.513379919566262*^9}, {3.5134524663221035`*^9, 3.5134524691021075`*^9}, {
   3.5134525349221992`*^9, 3.5134525367322025`*^9}, 3.5134533540633464`*^9, {
   3.5410888203036537`*^9, 3.541088838711686*^9}, {3.5467065223279963`*^9,
   3.5467065256261854`*^9}, {3.5467066661712236`*^9, 3.546706666365235*^9},
   3.5467255032386427`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "-",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
   3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
   3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
   3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
   3.546705921295619*^9}, 3.5467059830511513`*^9, {3.5467060834518943`*^9,
   3.5467061029200077`*^9}, {3.5467061600772767`*^9,
   3.5467061603982954`*^9}, {3.5467062649262743`*^9, 3.546706268253464*^9}, {
   3.546706588774797*^9, 3.546706588956807*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and trig substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    FractionBox[
     RowBox[{"Sin", "[",
      FractionBox["z", "2"], "]"}],
     SqrtBox[
      RowBox[{"a", "-",
       RowBox[{"a", " ",
        RowBox[{"Cos", "[", "z", "]"}]}]}]]]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.50207476692389*^9, 3.5020747737723017`*^9}, {
   3.502217989821336*^9, 3.502218014219779*^9}, {3.5022184003524575`*^9,
   3.502218400680058*^9}, 3.5022184373245225`*^9, {3.546706561590242*^9,
   3.546706562403289*^9}, {3.5467065973902893`*^9, 3.5467066041696777`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "-",
    RowBox[{"a", " ",
     RowBox[{"Cos", "[", "z", "]"}]}]}], "\[Equal]",
   RowBox[{"2", " ", "a", " ",
    SuperscriptBox[
     RowBox[{"Sin", "[",
      FractionBox["z", "2"], "]"}], "2"]}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.50207476692389*^9, 3.5020747737723017`*^9}, {
   3.502217989821336*^9, 3.502218014219779*^9}, {3.5022184003524575`*^9,
   3.502218400680058*^9}, 3.5022184373245225`*^9, {3.5022184771981926`*^9,
   3.5022184806769986`*^9}, 3.5022357451483955`*^9, {3.5022358586128855`*^9,
   3.502235879761095*^9}, {3.502235987385251*^9, 3.5022359954417114`*^9}, {
   3.5467066105960455`*^9, 3.5467066225547295`*^9}}],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for ",
 Cell[BoxData[
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
    3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
    3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
    3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
    3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
    3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
    3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
    3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
    3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
    3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
    3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
    3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
    3.5194134927764077`*^9}, {3.5194141847624226`*^9,
    3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
    3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
    3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
    3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
    3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
    3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
    3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
    3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
    3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
    3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
    3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
    3.5328460582169604`*^9, {3.5328745920833416`*^9,
    3.5328746294142075`*^9}, {3.532875067275776*^9, 3.532875067650177*^9}, {
    3.532875139909504*^9, 3.532875150829523*^9}, {3.537656121233163*^9,
    3.537656121443164*^9}, 3.540263906712819*^9, {3.5402639787229204`*^9,
    3.5402639788829203`*^9}, {3.540319178473138*^9, 3.5403191846574917`*^9}, {
    3.540319223359705*^9, 3.5403192458899937`*^9}, {3.5403196532852955`*^9,
    3.5403196542853527`*^9}, {3.5404234472634363`*^9,
    3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
    3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
    3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
    3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
    3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
    3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
    3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
    3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
    3.546705921295619*^9}, 3.5467059830511513`*^9, 3.546706158641195*^9},
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.497922384138734*^9, 3.4980156457105*^9, {
   3.4980207183018446`*^9, 3.498020768767933*^9}, 3.498059955917454*^9, {
   3.4980603297565107`*^9, 3.4980603534217525`*^9}, {3.4980604729647627`*^9,
   3.4980604821687784`*^9}, {3.498062467701068*^9, 3.4980625074811373`*^9}, {
   3.498062720437112*^9, 3.49806273658314*^9}, {3.498062866812169*^9,
   3.4980628951574183`*^9}, {3.513377847463361*^9, 3.51337785408337*^9}, {
   3.513378298423992*^9, 3.513378308944007*^9}, {3.5133783881541176`*^9,
   3.513378425854171*^9}, {3.51337857547438*^9, 3.5133785987544127`*^9}, {
   3.513378680544527*^9, 3.5133787029645586`*^9}, {3.513378780694667*^9,
   3.5133787854946737`*^9}, {3.5134525742622547`*^9, 3.513452574812256*^9}, {
   3.5134526934224215`*^9, 3.513452694252423*^9}, {3.5134527406824875`*^9,
   3.5134527409424877`*^9}, {3.515190691093055*^9, 3.5151906945130596`*^9}, {
   3.5463165044197536`*^9, 3.54631653862671*^9}, {3.5467067398964405`*^9,
   3.5467067649068713`*^9}, {3.5467068467395515`*^9, 3.546706846740552*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, {3.50481611467155*^9,
   3.5048161154115505`*^9}, {3.508787835545358*^9, 3.5087878361553593`*^9}, {
   3.513923018221771*^9, 3.5139230184317713`*^9}, {3.546316524760917*^9,
   3.5463165254339557`*^9}, 3.5467066284900684`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "-",
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"2", "a", " ",
        RowBox[{"Sin", "[",
         FractionBox[
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "2"], "]"}]}],
       SqrtBox[
        RowBox[{"a", "-",
         RowBox[{"a", " ",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"Sin", "[",
        FractionBox[
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "2"], "]"}],
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}],
  "                                           "}], "\[IndentingNewLine]",
 RowBox[{"                                ",
  RowBox[{
   RowBox[{"\[LongRightArrow]", "  ",
    FractionBox[
     RowBox[{"2", " ",
      SqrtBox["2"], " ", "a", "  ",
      RowBox[{"Sin", "[",
       FractionBox[
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "2"], "]"}]}],
     RowBox[{"d", " ",
      SqrtBox[
       RowBox[{"a", "-",
        RowBox[{"a", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}],
   RowBox[{"ArcTanh", "[",
    RowBox[{
     SqrtBox["2"], " ",
     RowBox[{"Cos", "[",
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"], "]"}]}], "]"}]}]}]}], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, {3.500665322063992*^9,
   3.500665324003995*^9}, {3.5006735459555054`*^9, 3.500673548335509*^9},
   3.50067378444584*^9, {3.500673868565957*^9, 3.50067387043596*^9},
   3.5006745811069546`*^9, {3.500674748397189*^9, 3.500674751927194*^9}, {
   3.500674833377308*^9, 3.5006748343773093`*^9}, {3.5022361390849276`*^9,
   3.5022361532127357`*^9}, {3.5022361994693813`*^9, 3.50223620136549*^9}, {
   3.5087873962847433`*^9, 3.5087874199547763`*^9}, {3.5087878092253213`*^9,
   3.5087878107553234`*^9}, {3.5087924241417823`*^9, 3.508792427661787*^9},
   3.5134530837329683`*^9, {3.5134531219830217`*^9, 3.5134531617130775`*^9},
   3.5134532455431943`*^9, {3.5151822121707306`*^9, 3.515182214105134*^9}, {
   3.515182248991596*^9, 3.5151822574312105`*^9}, {3.515971602164243*^9,
   3.5159716048006477`*^9}, {3.5467066307902*^9, 3.546706640528757*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"Pi", "/", "2"}], "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{"Sqrt", "[", "2", "]"}], "*", "a", "*",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "-",
         RowBox[{"a", "*",
          RowBox[{"Cos", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], "*",
      RowBox[{"Cos", "[",
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "]"}]}], "]"}]}], " ",
    "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, 3.500673939616057*^9, {
   3.5006741802463937`*^9, 3.5006741823063965`*^9}, {3.5006746290670223`*^9,
   3.5006746532170553`*^9}, 3.5006749138674207`*^9, 3.5087874386948023`*^9, {
   3.5133799229662666`*^9, 3.513379927656273*^9}, {3.5134524728721128`*^9,
   3.5134524757221165`*^9}, {3.5134525407022076`*^9, 3.51345254260221*^9}, {
   3.5410888233768587`*^9, 3.5410888362936816`*^9}, {3.546706648385206*^9,
   3.546706658151765*^9}, 3.5467255096020064`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
   3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
   3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
   3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
   3.546705921295619*^9}, 3.5467059830511513`*^9, 3.546706158641195*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and trig substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "=", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, 3.4976400387242327`*^9, {
   3.5048161106415443`*^9, 3.5048161119315457`*^9}, {3.5087911063499374`*^9,
   3.5087911065699377`*^9}, {3.5134528078125815`*^9, 3.513452821562601*^9}, {
   3.5139230215217752`*^9, 3.513923022231776*^9}, {3.546316528790148*^9,
   3.546316529261174*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox[
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{"2", " ",
       SqrtBox["2"], " ", "b", "  ",
       RowBox[{"Cos", "[",
        RowBox[{
         FractionBox[
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "2"], "-",
         FractionBox[
          RowBox[{"\[Pi]", " ", "b"}],
          RowBox[{"4", "a"}]]}], "]"}]}],
      RowBox[{"d", " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}],
   RowBox[{"ArcTanh", "[",
    RowBox[{
     SqrtBox["2"], " ",
     RowBox[{"Sin", "[",
      RowBox[{
       FractionBox[
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "2"], "-",
       FractionBox[
        RowBox[{"\[Pi]", " ", "b"}],
        RowBox[{"4", "a"}]]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, {3.500665322063992*^9,
   3.500665324003995*^9}, {3.5006735459555054`*^9, 3.500673548335509*^9},
   3.50067378444584*^9, {3.500673868565957*^9, 3.50067387043596*^9}, {
   3.500674037036193*^9, 3.5006740444662037`*^9}, 3.500674132086326*^9, {
   3.5006746906971083`*^9, 3.5006747035471263`*^9}, {3.50223496213461*^9,
   3.502234994005433*^9}, {3.5022353886120033`*^9, 3.5022353946353474`*^9}, {
   3.5022354539687414`*^9, 3.502235457068918*^9}, {3.5022360483627386`*^9,
   3.502236054278077*^9}, {3.505668118640586*^9, 3.505668154280636*^9}, {
   3.5087906028592324`*^9, 3.5087906396892843`*^9}, {3.5087922801815805`*^9,
   3.5087923259816446`*^9}, {3.513379816476117*^9, 3.5133798171361184`*^9},
   3.513452901372713*^9, {3.5134532072631407`*^9, 3.5134532090031433`*^9}, {
   3.513453261053216*^9, 3.513453264613221*^9}, 3.5134533178432956`*^9, {
   3.513453376633378*^9, 3.5134533806633835`*^9}, {3.5151821938562984`*^9,
   3.5151821954163013`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{"2", "*",
    RowBox[{"Sqrt", "[", "2", "]"}], "*", "b", "*",
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
       RowBox[{"Pi", "*",
        RowBox[{"b", "/",
         RowBox[{"(",
          RowBox[{"4", "*", "a"}], ")"}]}]}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    RowBox[{"ArcTanh", "[",
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], "*",
      RowBox[{"Sin", "[",
       RowBox[{
        RowBox[{
         RowBox[{"(",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
        RowBox[{"Pi", "*",
         RowBox[{"b", "/",
          RowBox[{"(",
           RowBox[{"4", "*", "a"}], ")"}]}]}]}], "]"}]}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9,
   3.4976400203630004`*^9, {3.497921614589382*^9, 3.497921644806636*^9},
   3.4979232490822535`*^9, {3.499129515580019*^9, 3.4991295254700327`*^9},
   3.500673974916106*^9, {3.500674141346339*^9, 3.5006741459563456`*^9}, {
   3.500674186596402*^9, 3.500674190066407*^9}, 3.500674717507146*^9, {
   3.505668118650586*^9, 3.505668154290636*^9}, 3.5087907981095057`*^9, {
   3.5133798379561477`*^9, 3.513379839206149*^9}, {3.5134534382634645`*^9,
   3.513453515993573*^9}, 3.513453548593619*^9, {3.5410888268868647`*^9,
   3.5410888306464715`*^9}, {3.5467255163493924`*^9, 3.546725519751587*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
   3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
   3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
   3.5463168908548565`*^9, 3.546316921936634*^9}, {3.546705921083607*^9,
   3.546705921295619*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Author: Martin Welz 10 March 2011", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.508867909890354*^9,
   3.5088679102373743`*^9}, {3.5088682337248764`*^9,
   3.5088682348079386`*^9}, {3.508869193368765*^9, 3.508869215454028*^9},
   3.5481811409616003`*^9}],

Cell["Derivation: ???", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502084703554076*^9, 3.502084707532083*^9}, {3.508867909890354*^9,
   3.5088679102373743`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5020847974350405`*^9, 3.502084798417843*^9}, {
   3.504490952456873*^9, 3.5044909533268747`*^9}, {3.5046319563468533`*^9,
   3.5046319565768538`*^9}, {3.508788006015597*^9, 3.508788006775598*^9}, {
   3.5088678834258404`*^9, 3.5088678866150227`*^9}, 3.513923182132*^9, {
   3.5463169159352913`*^9, 3.546316916675333*^9}, {3.546316984471211*^9,
   3.546316984713225*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox[
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    SqrtBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox[
       RowBox[{"2", " ",
        SqrtBox["b"]}], "d"]}]}]}],
   RowBox[{"ArcTan", "[",
    FractionBox[
     RowBox[{
      SqrtBox["b"], " ",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501814357417549*^9, 3.5018144174776545`*^9}, {3.501821754446142*^9,
   3.5018217794997864`*^9}, {3.501821876204356*^9, 3.501821879620762*^9}, {
   3.501821941724471*^9, 3.5018219589781017`*^9}, {3.5020737562757144`*^9,
   3.5020738155090184`*^9}, {3.502084475219675*^9, 3.502084480055683*^9}, {
   3.5020845976798897`*^9, 3.5020846363835583`*^9}, {3.5020848407251167`*^9,
   3.5020848649051595`*^9}, {3.5020849495421085`*^9, 3.502084966483738*^9},
   3.5044908795967712`*^9, {3.508787956835528*^9, 3.5087879583755302`*^9},
   3.508867865198798*^9, {3.5133809224676657`*^9, 3.513380938697688*^9}, {
   3.515182630490266*^9, 3.5151826317694683`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[", "b", "]"}], "/", "d"}], "*",
    RowBox[{"ArcTan", "[",
     RowBox[{
      RowBox[{"Sqrt", "[", "b", "]"}], "*",
      RowBox[{
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}],
     "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9}, {
   3.5020847252381144`*^9, 3.5020847294345217`*^9}, {3.502084771304995*^9,
   3.5020847933010335`*^9}, 3.502084920869258*^9, {3.502085568025194*^9,
   3.502085570583599*^9}, 3.50886796279538*^9, {3.5088680017736096`*^9,
   3.508868004166746*^9}, {3.5133809677677293`*^9, 3.5133809858877544`*^9}, {
   3.541088732257099*^9, 3.541088735954305*^9}, 3.546316991739627*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174445512323`*^9, 3.5454174445512323`*^9},
   3.545417525952175*^9, {3.54541811488441*^9, 3.545418115914011*^9}, {
   3.545418536911951*^9, 3.545418536911951*^9}, {3.5454186415257344`*^9,
   3.5454186415257344`*^9}, 3.5454968502272625`*^9, {3.5461230516308217`*^9,
   3.5461230516408215`*^9}, {3.546123139980945*^9, 3.546123140910947*^9},
   3.546124119732317*^9, {3.5461243532826443`*^9, 3.5461243705426683`*^9},
   3.546197866448759*^9, {3.5461988074000764`*^9, 3.5461988081600776`*^9}, {
   3.5461988721501675`*^9, 3.5461988721501675`*^9}, 3.546198907190216*^9, {
   3.546198958380288*^9, 3.546198958560288*^9}, 3.546315765349481*^9, {
   3.5465349238184795`*^9, 3.5465349238184795`*^9}, {3.5465500118950624`*^9,
   3.546550013335064*^9}, {3.5465504297056475`*^9, 3.5465504505556765`*^9}, {
   3.5465509425663652`*^9, 3.5465509517363777`*^9}, {3.5465678216426067`*^9,
   3.546567821824617*^9}, {3.546705924348794*^9, 3.5467059245688066`*^9}, {
   3.5481808424102755`*^9, 3.5481808424102755`*^9}, {3.548180962655287*^9,
   3.548180962655287*^9}, {3.5481835569830437`*^9, 3.5481835572794437`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Rule 4b with ",
 Cell[BoxData[
  RowBox[{"n", "=",
   FractionBox["1", "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9},
   3.5018140207689576`*^9, {3.5018216494891577`*^9, 3.501821669550793*^9}, {
   3.5019589809978724`*^9, 3.5019590047879057`*^9}, {3.502135717824956*^9,
   3.50213572018056*^9}, {3.5021366778942423`*^9, 3.5021366795166454`*^9}, {
   3.5021369861631837`*^9, 3.5021369923407946`*^9}, 3.508786823203941*^9, {
   3.5133819093490477`*^9, 3.513381909829048*^9}, {3.513721165357891*^9,
   3.513721166886694*^9}, {3.5137215035040846`*^9, 3.513721526170924*^9}, {
   3.5137217266780767`*^9, 3.513721727068077*^9}}],

Cell[TextData[{
 "Rule 9b: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.5011924479085164`*^9,
   3.501192449768519*^9}, {3.5012672318508615`*^9, 3.5012672409508743`*^9}, {
   3.5018067804754405`*^9, 3.5018068133914986`*^9}, {3.501807130150055*^9,
   3.5018071318504577`*^9}, {3.501881120717829*^9, 3.501881120717829*^9}, {
   3.5021348082093573`*^9, 3.502134808926959*^9}, {3.5021366244641485`*^9,
   3.502136624932149*^9}, {3.504590263501849*^9, 3.5045902645218506`*^9}, {
   3.5133829162704573`*^9, 3.513382916840458*^9}, 3.513383037000626*^9, {
   3.513722080155098*^9, 3.5137220817931013`*^9}, {3.5138817088095894`*^9,
   3.5138817177896013`*^9}, {3.546550578235855*^9, 3.546550591515874*^9}, {
   3.5465508962663*^9, 3.5465508962663*^9}, {3.546550956506385*^9,
   3.546550956506385*^9}, {3.548180844344679*^9, 3.548180844344679*^9}, {
   3.548180963700489*^9, 3.548180963700489*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox[
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", " ", "m"}], "+", "3"}], ")"}]}],
    RowBox[{"2", "a",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "1"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095546485624905`*^9, 3.5095548310727463`*^9}, {3.509554944782905*^9,
   3.509554978772953*^9}, {3.5095550311130257`*^9, 3.5095550406230392`*^9}, {
   3.5095551029731264`*^9, 3.509555110183137*^9}, {3.509555148833191*^9,
   3.50955518414324*^9}, 3.5095552442833242`*^9, 3.5095554618336287`*^9, {
   3.5101725287803125`*^9, 3.51017253319512*^9}, {3.5101728354144506`*^9,
   3.5101728382380557`*^9}, {3.5101734308362966`*^9, 3.510173455141139*^9}, {
   3.5132794480664415`*^9, 3.513279496296509*^9}, {3.5132795860166345`*^9,
   3.513279591746642*^9}, {3.5133820956293087`*^9, 3.5133821557793922`*^9}, {
   3.5133821934394455`*^9, 3.513382203399459*^9}, {3.513382255339532*^9,
   3.5133823172596183`*^9}, {3.513382376639702*^9, 3.5133823996997337`*^9},
   3.5133825236299076`*^9, {3.5133825769499817`*^9, 3.5133826123800316`*^9}, {
   3.5133826518700867`*^9, 3.5133826522500877`*^9}, {3.5133827327802005`*^9,
   3.513382737710207*^9}, {3.5151836768413043`*^9, 3.515183684110917*^9}, {
   3.546550600965887*^9, 3.546550694046017*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.502134774372898*^9, 3.5021347791621065`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ",
    "+", " ", "\n", "  ",
    RowBox[{"b", "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{
        RowBox[{"2", "*", "m"}], "+", "3"}], ")"}], "/",
      RowBox[{"(",
       RowBox[{"2", "*", "a", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "\[LessEqual]",
     RowBox[{"-", "2"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.50119120053677*^9, {3.5011912580268507`*^9, 3.501191260026853*^9},
   3.501191906207758*^9, 3.501266112379294*^9, {3.501266934110444*^9,
   3.5012669465204616`*^9}, 3.501267020310565*^9, {3.501807055254323*^9,
   3.5018070667983437`*^9}, {3.501807109511218*^9, 3.501807112069623*^9}, {
   3.501807165546517*^9, 3.5018071672157197`*^9}, 3.5018077525787473`*^9, {
   3.5018811153078213`*^9, 3.501881117787825*^9}, {3.5018900729508686`*^9,
   3.5018900741908703`*^9}, {3.5021347842009153`*^9,
   3.5021347975545387`*^9}, {3.5021349097187357`*^9, 3.502134918345551*^9}, {
   3.502135766793442*^9, 3.5021357677294436`*^9}, 3.5021358320639563`*^9, {
   3.5021365249983735`*^9, 3.5021365368543944`*^9}, {3.505167706240986*^9,
   3.5051677121233225`*^9}, {3.50516992199572*^9, 3.5051699249498887`*^9}, {
   3.505355146257435*^9, 3.5053551626474576`*^9}, 3.505355197737507*^9,
   3.5053631681528783`*^9, 3.513382826090331*^9, {3.513382900420435*^9,
   3.513382921280464*^9}, {3.5133829789605446`*^9, 3.5133829865005555`*^9},
   3.5133830206706033`*^9, {3.5133871671964083`*^9, 3.513387169866412*^9}, {
   3.5137220851159067`*^9, 3.5137220864419093`*^9}, 3.513722129575985*^9, {
   3.513881725099612*^9, 3.513881743169637*^9}, 3.5168208089766755`*^9, {
   3.541088532639148*^9, 3.5410885436839676`*^9}, {3.545583253052207*^9,
   3.545583253062207*^9}, {3.5465507599261093`*^9, 3.5465507967061605`*^9},
   3.546550858146247*^9, {3.546550978746416*^9, 3.546550980176418*^9}, {
   3.5481811673868465`*^9, 3.5481811696644506`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.546577101227482*^9,
   3.5465771293875213`*^9}, {3.548179333427225*^9, 3.548179333427225*^9}, {
   3.5481808525658937`*^9, 3.5481808525658937`*^9}, {3.548180964823691*^9,
   3.548180964823691*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[GreaterEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535363599963`*^9, 3.5465535363599963`*^9}, {3.546561801512377*^9,
   3.546561801512377*^9}, 3.54656220294044*^9, 3.5465761441561418`*^9, {
   3.546577114777501*^9, 3.546577120577509*^9}, {3.546577161487566*^9,
   3.5465771697375774`*^9}, {3.5481793348156276`*^9,
   3.5481793348156276`*^9}, {3.5481808542662964`*^9,
   3.5481808542662964`*^9}, {3.548180965603692*^9, 3.548180965603692*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 9 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "b"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9}, {
   3.5018084803824253`*^9, 3.501808481100027*^9}, {3.501808958164465*^9,
   3.5018089598336678`*^9}, {3.5018887520990195`*^9, 3.5018887819590616`*^9},
   3.508786823253941*^9, {3.5133877456772184`*^9, 3.513387746207219*^9}, {
   3.513397486135073*^9, 3.5133974872850747`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
   RowBox[{"m", "\[GreaterEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018088942823524`*^9, 3.5018088954991546`*^9},
   3.50180892701121*^9, {3.501812061374316*^9, 3.501812073838738*^9}, {
   3.5018891712996063`*^9, 3.5018891721496077`*^9}, 3.5018892149396677`*^9, {
   3.501889870350585*^9, 3.501889877930596*^9}, {3.5019616122915564`*^9,
   3.5019616122915564`*^9}, {3.501963446484124*^9, 3.5019634484241266`*^9}, {
   3.5019854691076093`*^9, 3.5019854716876125`*^9}, {3.5019858450681353`*^9,
   3.5019858450681353`*^9}, {3.50198626997873*^9, 3.501986271478732*^9},
   3.5021314533978634`*^9, {3.5023184824413586`*^9, 3.5023184926125765`*^9}, {
   3.502318577585926*^9, 3.50231858008193*^9}, {3.502329492721938*^9,
   3.502329492721938*^9}, {3.50233161170686*^9, 3.5023316148268657`*^9}, {
   3.504489700745121*^9, 3.5044897024751234`*^9}, 3.505164492700603*^9, {
   3.5051648664611263`*^9, 3.5051648686311293`*^9}, {3.5051649653312645`*^9,
   3.505164969751271*^9}, {3.505195341110135*^9, 3.505195341110135*^9},
   3.513387851927367*^9, {3.5133882448479176`*^9, 3.5133882461479187`*^9}, {
   3.513620775407731*^9, 3.513620794892165*^9}, {3.5136208894751315`*^9,
   3.5136208900211325`*^9}, {3.513705598385437*^9, 3.5137056106314588`*^9}, {
   3.5137149153861094`*^9, 3.5137149168525124`*^9}, {3.513718474565963*^9,
   3.513718481320775*^9}, {3.5138017891782913`*^9, 3.5138017901833487`*^9}, {
   3.5138254660577736`*^9, 3.5138254719621115`*^9}, {3.515009789725992*^9,
   3.5150097981814756`*^9}, {3.51525440107832*^9, 3.515254404853526*^9}, {
   3.546551945657769*^9, 3.5465519456777697`*^9}, {3.546552013267864*^9,
   3.546552013267864*^9}, {3.5465528314990096`*^9, 3.5465528316890097`*^9}, {
   3.5465530414693036`*^9, 3.546553042169305*^9}, {3.5465533385797195`*^9,
   3.5465533385797195`*^9}, {3.546561728802275*^9, 3.546561760262319*^9}, {
   3.5465617921323643`*^9, 3.5465617921323643`*^9}, {3.5465771752475853`*^9,
   3.5465771752475853`*^9}, {3.5481793358452296`*^9,
   3.5481793358452296`*^9}, {3.5481808563567*^9, 3.5481808563567*^9}, {
   3.5481809668048944`*^9, 3.5481809668048944`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"],
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "+", "1"}]],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "-", "2"}]]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{"m", "+", "n"}], ")"}]}]]}]}]}]}]}], "+",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["a",
    RowBox[{"m", "+", "n"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", " ", "m"}], "+", "n", "+", "1"}], ")"}]}], "+",
       RowBox[{"b", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", " ", "m"}], "+",
          RowBox[{"3", " ", "n"}], "-", "2"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501807660242185*^9, 3.5018076682761993`*^9}, {3.5018077767119894`*^9,
   3.5018078381604977`*^9}, {3.501807870358954*^9, 3.5018078706397543`*^9}, {
   3.5018085031116657`*^9, 3.5018086153694625`*^9}, {3.5018087435704875`*^9,
   3.5018087487340965`*^9}, {3.501808975870496*^9, 3.5018090631370487`*^9}, {
   3.5018887937290783`*^9, 3.5018888537491617`*^9}, {3.501888888759211*^9,
   3.501889055159444*^9}, {3.504810640684278*^9, 3.5048106424142804`*^9}, {
   3.5053551465874352`*^9, 3.505355162927458*^9}, 3.505355197987507*^9,
   3.505363506753352*^9, 3.5133881630578027`*^9, {3.513396391369046*^9,
   3.5133965080260515`*^9}, {3.515183950403385*^9, 3.515183952181788*^9},
   3.546551895407699*^9, {3.5465519456777697`*^9, 3.5465519456977696`*^9}, {
   3.5465522386981792`*^9, 3.546552248798194*^9}, {3.546552493208536*^9,
   3.5465524970285416`*^9}, {3.546552583338662*^9, 3.546552586738667*^9}, {
   3.546552651778758*^9, 3.5465526757287917`*^9}, 3.546552835349015*^9, {
   3.546553087879369*^9, 3.546553088129369*^9}, 3.548038770508994*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"b", "^", "2"}]}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "2"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "n"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"a", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "n"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "m"}], "+", "n", "+", "1"}], ")"}]}], "+",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "m"}], "+",
             RowBox[{"3", "*", "n"}], "-", "2"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"m", "\[GreaterEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9,
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501808857045087*^9, 3.501808860570693*^9}, {3.501808898962361*^9,
   3.501808916137991*^9}, {3.5018091789952526`*^9, 3.5018091989008875`*^9}, {
   3.501819685414508*^9, 3.501819688050913*^9}, {3.5018891469595723`*^9,
   3.501889181499621*^9}, {3.5018898212705164`*^9, 3.5018898634705753`*^9}, {
   3.5019616089115515`*^9, 3.501961609351552*^9}, {3.5019633974840555`*^9,
   3.501963422914091*^9}, {3.5019854228875446`*^9, 3.501985423087545*^9},
   3.5019858423081317`*^9, {3.5019862622087193`*^9, 3.5019862650687237`*^9}, {
   3.502040617764885*^9, 3.502040622304493*^9}, {3.5021314494666567`*^9,
   3.5021314500906577`*^9}, {3.5023068614118567`*^9, 3.50230686351786*^9}, {
   3.5023070664274163`*^9, 3.502307067332218*^9}, {3.5023184596809187`*^9,
   3.502318475889347*^9}, {3.502327270872435*^9, 3.50232727330604*^9}, {
   3.50232738749824*^9, 3.5023273916634474`*^9}, {3.502327723741231*^9,
   3.5023277250984335`*^9}, 3.5023295095075674`*^9, 3.5023315749999957`*^9, {
   3.5051645117606297`*^9, 3.5051645140606327`*^9}, {3.505195347520502*^9,
   3.505195350617679*^9}, {3.505355146597435*^9, 3.5053551629474583`*^9},
   3.505355197997507*^9, 3.5053635089433556`*^9, 3.5133879042274404`*^9, {
   3.513387995507568*^9, 3.513387995967569*^9}, {3.5133880563076534`*^9,
   3.5133880579376554`*^9}, 3.513388114727735*^9, 3.5133967152239943`*^9,
   3.5134409559022603`*^9, {3.5135728220521855`*^9, 3.5135728378862133`*^9}, {
   3.5136207369692636`*^9, 3.5136207424916735`*^9}, {3.5136208296178265`*^9,
   3.513620872783102*^9}, {3.5137055788854027`*^9, 3.51370558278541*^9}, {
   3.5137056241098824`*^9, 3.513705626574687*^9}, {3.5137149014708853`*^9,
   3.51371490412289*^9}, {3.5137184667815495`*^9, 3.5137185018504105`*^9}, {
   3.513793926254558*^9, 3.5137939433695374`*^9}, {3.51379422910288*^9,
   3.5137942335621347`*^9}, {3.5137945411787295`*^9, 3.513794551781336*^9}, {
   3.5138017938705597`*^9, 3.5138017951256313`*^9}, {3.5138254798005595`*^9,
   3.5138254884200525`*^9}, {3.5140023512826586`*^9, 3.514002371718694*^9}, {
   3.5140067460971794`*^9, 3.5140067610420055`*^9}, {3.51500977534717*^9,
   3.5150097797294207`*^9}, {3.5159720120053625`*^9, 3.515972013955366*^9},
   3.516820809246676*^9, 3.516823656004427*^9, 3.5410883279979887`*^9,
   3.541088378308077*^9, {3.545583253592208*^9, 3.545583253612208*^9}, {
   3.5465519556577835`*^9, 3.5465519556977835`*^9}, {3.546552059757929*^9,
   3.546552076187952*^9}, {3.546552170828085*^9, 3.5465521822981005`*^9}, {
   3.5465525803386583`*^9, 3.546552596578681*^9}, 3.5465526757387915`*^9, {
   3.5465527450688887`*^9, 3.546552747048891*^9}, {3.5465528411590233`*^9,
   3.546552876069072*^9}, {3.5465531401394415`*^9, 3.5465531436394463`*^9},
   3.5465532180295506`*^9, {3.5465532734496284`*^9, 3.5465532757596316`*^9}, {
   3.5465618130323935`*^9, 3.5465618214824047`*^9}, {3.5465772019976225`*^9,
   3.546577203527625*^9}, {3.548178485940137*^9, 3.5481784911661463`*^9}, {
   3.548181189195685*^9, 3.548181192721291*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535462100105`*^9, 3.5465535462100105`*^9}, {3.546561839877431*^9,
   3.546561842927435*^9}, 3.546562204280442*^9, 3.5465761450461435`*^9, {
   3.546577115767502*^9, 3.5465771184375057`*^9}, {3.546577220697649*^9,
   3.5465772279476595`*^9}, 3.546722905398054*^9, {3.5467234849292016`*^9,
   3.546723517890087*^9}, {3.546724622457265*^9, 3.546724622622274*^9}, {
   3.546725100644615*^9, 3.546725103616785*^9}, {3.548180873891131*^9,
   3.548180873891131*^9}, {3.5481809811413193`*^9, 3.5481809811413193`*^9}, {
   3.5481812664470205`*^9, 3.5481812664470205`*^9}, 3.548181514690256*^9, {
   3.5481816275464544`*^9, 3.548181627718055*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 10 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "b"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501897999882035*^9, 3.5018980004280357`*^9}, 3.508786823273941*^9, {
   3.5133877723772554`*^9, 3.5133877743972583`*^9}, {3.5133974922150817`*^9,
   3.513397493415084*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
   RowBox[{"m", "<",
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.5011924479085164`*^9,
   3.501192449768519*^9}, {3.5012672318508615`*^9, 3.5012672409508743`*^9}, {
   3.5018067804754405`*^9, 3.5018068133914986`*^9}, {3.501807130150055*^9,
   3.5018071318504577`*^9}, {3.501881120717829*^9, 3.501881120717829*^9}, {
   3.50189801407806*^9, 3.5018980148268614`*^9}, 3.5018981130758333`*^9, {
   3.5018994443557725`*^9, 3.5018994447457733`*^9}, {3.5019584883171825`*^9,
   3.5019584883171825`*^9}, {3.502044001046027*^9, 3.502044002106829*^9}, {
   3.502045300169509*^9, 3.5020453083751235`*^9}, {3.5023272286431613`*^9,
   3.5023272286431613`*^9}, {3.5023303205997915`*^9,
   3.5023303205997915`*^9}, {3.504489772195221*^9, 3.504489772495221*^9},
   3.5051687738680506`*^9, {3.5051690066913676`*^9, 3.5051690066913676`*^9},
   3.513387858337376*^9, 3.5133882545279307`*^9, {3.513714970267006*^9,
   3.513714971905009*^9}, {3.515009997183858*^9, 3.515009997183858*^9}, {
   3.5465519457577696`*^9, 3.5465519457577696`*^9}, {3.5465520217278757`*^9,
   3.5465520217278757`*^9}, {3.5465530462393103`*^9,
   3.5465530468893113`*^9}, {3.5465533342697134`*^9,
   3.5465533342697134`*^9}, {3.546561848607443*^9, 3.5465618508474464`*^9}, {
   3.546577232907666*^9, 3.546577232907666*^9}, {3.546723524114443*^9,
   3.546723524114443*^9}, {3.5467251203087397`*^9, 3.5467251203087397`*^9}, {
   3.5481808758099346`*^9, 3.5481808758099346`*^9}, {3.5481809828261223`*^9,
   3.5481809828261223`*^9}, {3.548181270175427*^9, 3.548181270175427*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "2"],
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]], " ",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
         RowBox[{"n", "-", "2"}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["b",
    RowBox[{"m", "+", "1"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "1"}]],
     RowBox[{"(",
      RowBox[{
       RowBox[{"a",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "m"}], "-", "n", "+", "4"}], ")"}]}], "+",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "m"}], "+", "n", "+", "1"}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095546485624905`*^9, 3.5095548310727463`*^9}, {3.509554944782905*^9,
   3.509554978772953*^9}, {3.5095550311130257`*^9, 3.5095550406230392`*^9}, {
   3.5095551029731264`*^9, 3.509555110183137*^9}, {3.509555148833191*^9,
   3.50955518414324*^9}, 3.5095552442833242`*^9, 3.5095554618336287`*^9, {
   3.5101725287803125`*^9, 3.51017253319512*^9}, {3.5101728354144506`*^9,
   3.5101728382380557`*^9}, {3.5101734308362966`*^9, 3.510173455141139*^9}, {
   3.5132794480664415`*^9, 3.513279496296509*^9}, {3.5132795860166345`*^9,
   3.513279591746642*^9}, {3.5133951012864146`*^9, 3.513395436935285*^9}, {
   3.5133955737854767`*^9, 3.51339563336556*^9}, {3.51518396450581*^9,
   3.5151839663310127`*^9}, 3.5465519029577093`*^9, {3.54655194576777*^9,
   3.5465519457877693`*^9}, {3.546552266778219*^9, 3.5465522770182333`*^9}, {
   3.546552353808341*^9, 3.546552354258342*^9}, {3.546552651798758*^9,
   3.546552651808758*^9}, {3.5465528843590837`*^9, 3.546552888089089*^9}, {
   3.546553092679375*^9, 3.546553092939376*^9}, {3.5467174880672007`*^9,
   3.5467174913543887`*^9}, {3.5467177856972246`*^9, 3.5467178038162603`*^9},
   3.548041384829981*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "2"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"b", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "m"}], "-", "n", "+", "4"}], ")"}]}], "+",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "m"}], "+", "n", "+", "1"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "1"}], " ", "&&", " ",
    RowBox[{"n", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.50119120053677*^9, {3.5011912580268507`*^9, 3.501191260026853*^9},
   3.501191906207758*^9, 3.501266112379294*^9, {3.501266934110444*^9,
   3.5012669465204616`*^9}, 3.501267020310565*^9, {3.501807055254323*^9,
   3.5018070667983437`*^9}, {3.501807109511218*^9, 3.501807112069623*^9}, {
   3.501807165546517*^9, 3.5018071672157197`*^9}, 3.5018077525787473`*^9, {
   3.5018811153078213`*^9, 3.501881117787825*^9}, {3.5018900729508686`*^9,
   3.5018900741908703`*^9}, {3.5018980188984685`*^9, 3.50189801985007*^9}, {
   3.5018993588676224`*^9, 3.5018993591016226`*^9}, {3.501899407617708*^9,
   3.5018994162601233`*^9}, {3.5019584349071083`*^9, 3.501958435137108*^9},
   3.502043281447963*^9, {3.502043836886939*^9, 3.5020438378697405`*^9}, {
   3.5020440523233175`*^9, 3.502044053150119*^9}, {3.5020452897486906`*^9,
   3.5020452909654927`*^9}, {3.5023272013119135`*^9, 3.5023272098607283`*^9},
   3.5023293759713326`*^9, {3.502330255532078*^9, 3.502330260882887*^9}, {
   3.505169008467469*^9, 3.5051690099755554`*^9}, {3.505355146667435*^9,
   3.5053551630074577`*^9}, 3.5053551980475073`*^9, 3.505363517073367*^9,
   3.5133879210874643`*^9, {3.5133880027075777`*^9, 3.513388003137579*^9},
   3.5133880665876675`*^9, 3.5133881203977427`*^9, 3.5133958374610467`*^9,
   3.5134409700670853`*^9, {3.513714974962614*^9, 3.5137149768034177`*^9},
   3.5150099857292027`*^9, {3.515972043845019*^9, 3.5159720459978228`*^9},
   3.516820809316676*^9, 3.5168236560844316`*^9, 3.5410883370304046`*^9,
   3.5410883728480673`*^9, {3.545583253702208*^9, 3.545583253722208*^9}, {
   3.5465519557677836`*^9, 3.5465519557877836`*^9}, {3.5465520597779293`*^9,
   3.5465520814679594`*^9}, {3.5465521708580847`*^9, 3.546552182338101*^9}, {
   3.5465527551389027`*^9, 3.546552756958905*^9}, {3.5465528622190523`*^9,
   3.5465528622290525`*^9}, {3.5465528963091*^9, 3.546552909459119*^9}, {
   3.5465531513094573`*^9, 3.5465531543794613`*^9}, 3.546553206529535*^9, {
   3.5465532885296497`*^9, 3.5465532907696524`*^9}, {3.5465618553674526`*^9,
   3.5465618571974554`*^9}, {3.546577241267678*^9, 3.54657724313768*^9}, {
   3.5467178696650267`*^9, 3.546717875224345*^9}, {3.5467235586914206`*^9,
   3.5467235604845233`*^9}, {3.5467251106811895`*^9,
   3.5467251126573024`*^9}, {3.5467355678839035`*^9,
   3.5467355798265867`*^9}, {3.546738839947055*^9, 3.546738843390252*^9},
   3.548178512818984*^9, {3.54818126033181*^9, 3.548181275619837*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9, {3.5465706146584005`*^9, 3.5465706654584713`*^9}, {
   3.5465707925386496`*^9, 3.5465708046786666`*^9}, {3.5469087036173506`*^9,
   3.546908703807351*^9}, {3.5479555878919535`*^9, 3.547955588087964*^9}, {
   3.5481788723372154`*^9, 3.548178872555616*^9}, {3.5481789396669335`*^9,
   3.5481789437229404`*^9}, {3.5481791447916937`*^9,
   3.5481792048361993`*^9}, {3.548181646547288*^9, 3.548181646703288*^9}, {
   3.5481817295394335`*^9, 3.548181729757834*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, 3.5461955886755705`*^9, {
   3.5462104410915537`*^9, 3.5462104410915537`*^9}, 3.546315956281402*^9, {
   3.5465638280147195`*^9, 3.546563854194756*^9}, {3.5465709841989183`*^9,
   3.5465709988489385`*^9}, {3.5481793368280315`*^9,
   3.5481793368280315`*^9}, {3.5481808810827436`*^9,
   3.5481808810827436`*^9}, {3.548180984152125*^9, 3.548180984152125*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, 3.5461955886755705`*^9, {
   3.5462104410915537`*^9, 3.5462104410915537`*^9}, 3.546315956281402*^9, {
   3.5465638280147195`*^9, 3.546563854194756*^9}, {3.5481793375456324`*^9,
   3.5481793375456324`*^9}, {3.548180883656748*^9, 3.548180883656748*^9}, {
   3.548180984776126*^9, 3.548180984776126*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5450136118276796`*^9, 3.5450137802143755`*^9, 3.545496802647196*^9, {
   3.5460548327626085`*^9, 3.5460548330226088`*^9}, 3.5461915391199007`*^9,
   3.5461955218154764`*^9, 3.546195629435627*^9, {3.5461956649756775`*^9,
   3.5461956651956778`*^9}, {3.546210208031227*^9, 3.546210208291228*^9}, {
   3.546287760502779*^9, 3.546287771292794*^9}, 3.546315967507044*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.502157546777938*^9, 3.502157550157943*^9}}],

Cell[TextData[{
 "Basis:  ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SqrtBox["z"],
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ", "z"}]}]]], "=",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}]],
     RowBox[{"b", " ",
      SqrtBox["z"]}]], "-",
    FractionBox["a",
     RowBox[{"b", " ",
      SqrtBox["z"], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}]]}]]}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.502157565987965*^9, 3.5021575687279687`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.5021576750081177`*^9,
   3.502157675948119*^9}, {3.504490660426464*^9, 3.504490660796465*^9},
   3.5046319235868073`*^9, 3.5087908632395973`*^9, 3.515182768160508*^9, {
   3.5462877645527844`*^9, 3.5462877659227867`*^9}, {3.546317489531099*^9,
   3.5463174899281216`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "b"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501814357417549*^9, 3.5018144174776545`*^9}, {3.501821754446142*^9,
   3.5018217794997864`*^9}, {3.501821876204356*^9, 3.501821879620762*^9}, {
   3.501821941724471*^9, 3.5018219589781017`*^9}, {3.5020737562757144`*^9,
   3.5020738155090184`*^9}, {3.502074068873864*^9, 3.502074103287524*^9}, {
   3.502074222097333*^9, 3.502074222580934*^9}, {3.502074331141525*^9,
   3.5020743532623634`*^9}, {3.502157531417917*^9, 3.5021575412379303`*^9}, {
   3.5021576018980155`*^9, 3.502157644398075*^9}, 3.5021579134284515`*^9,
   3.5036869522307844`*^9, {3.505355162397457*^9, 3.5053551624074574`*^9}, {
   3.513381233988102*^9, 3.513381235948105*^9}, {3.515182672953541*^9,
   3.515182680425954*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], ",", "x"}], "]"}]}],
    " ", "-", " ", "\n", "  ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9}, {
   3.5020741121795397`*^9, 3.5020741279043674`*^9}, {3.502074235014156*^9,
   3.5020742444521723`*^9}, {3.5020743100034876`*^9, 3.502074313622694*^9}, {
   3.502074430045698*^9, 3.5020744584377484`*^9}, 3.5020748031939535`*^9, {
   3.5021576806281257`*^9, 3.502157699638152*^9}, {3.5021577549182296`*^9,
   3.5021577603782372`*^9}, {3.5053551624074574`*^9, 3.505355162417457*^9}, {
   3.5133812370681067`*^9, 3.51338123986811*^9}, {3.545583252672207*^9,
   3.545583252692207*^9}, {3.546287804712841*^9, 3.5462878153028555`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.5465535315199895`*^9, 3.5465535315199895`*^9}, {3.5465623981432133`*^9,
   3.546562401303218*^9}, {3.546562447693283*^9, 3.5465624745133204`*^9}, {
   3.5465625225933876`*^9, 3.546562526843394*^9}, {3.546563021063588*^9,
   3.546563021063588*^9}, {3.5465635438943205`*^9, 3.546563544124321*^9}, {
   3.5465635776443677`*^9, 3.5465635979543962`*^9}, {3.546563877544789*^9,
   3.546563877774789*^9}, {3.5481808875255547`*^9, 3.5481808875255547`*^9}, {
   3.5481809854937267`*^9, 3.5481809854937267`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 8 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9}, {
   3.501808030072035*^9, 3.5018080306804357`*^9}, 3.501878569854258*^9,
   3.508786823253941*^9, {3.513387735967205*^9, 3.5133877365072055`*^9}, {
   3.5133974837550697`*^9, 3.5133974848950715`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018083840990562`*^9,
   3.5018084166251135`*^9}, {3.501878604894307*^9, 3.5018786057543077`*^9},
   3.5018790509349318`*^9, {3.50196172920172*^9, 3.5019617316817236`*^9}, {
   3.5020756982035265`*^9, 3.5020757010427313`*^9}, {3.502329414363*^9,
   3.5023294176390057`*^9}, {3.502330219979615*^9, 3.502330219979615*^9}, {
   3.504489691225107*^9, 3.5044896917451077`*^9}, {3.5051719882429028`*^9,
   3.505171990668041*^9}, {3.5051814360318103`*^9, 3.5051814425411825`*^9}, {
   3.5051814833155146`*^9, 3.5051814955322137`*^9}, {3.505189422808628*^9,
   3.5051894301250467`*^9}, {3.5051953230271015`*^9, 3.5051953230271015`*^9},
   3.5133878489773626`*^9, {3.513388238217908*^9, 3.5133882398679104`*^9}, {
   3.5133971092245455`*^9, 3.5133971097845464`*^9}, {3.5136423391180477`*^9,
   3.5136423588080754`*^9}, {3.5137147837686787`*^9, 3.513714809477524*^9}, {
   3.513801775616516*^9, 3.5138017764325624`*^9}, {3.5465519456177692`*^9,
   3.5465519456277695`*^9}, {3.54655201039786*^9, 3.54655201039786*^9}, {
   3.546552805488973*^9, 3.5465528056489735`*^9}, {3.546553039379301*^9,
   3.546553039799301*^9}, {3.546553340809723*^9, 3.546553340809723*^9}, {
   3.546562541953415*^9, 3.546562563693445*^9}, {3.546563009933573*^9,
   3.5465630154835806`*^9}, {3.5480315061546745`*^9,
   3.5480315061546745`*^9}, {3.5481808902243595`*^9,
   3.5481808902243595`*^9}, {3.5481809864297285`*^9, 3.5481809864297285`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "1"}]]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "m"}], "-", "1"}], ")"}],
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "m"}], "-", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "-", "2"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"2", "b", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "1"}], ")"}]}], "-",
         RowBox[{"a", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501807660242185*^9, 3.5018076682761993`*^9}, {3.5018077767119894`*^9,
   3.5018078381604977`*^9}, {3.501807870358954*^9, 3.5018078706397543`*^9}, {
   3.5018080658428974`*^9, 3.501808079789322*^9}, {3.5018081845435057`*^9,
   3.501808206165144*^9}, {3.5018082365851974`*^9, 3.501808240376004*^9}, {
   3.501878579644272*^9, 3.5018785847742786`*^9}, {3.501878617764325*^9,
   3.501878685154419*^9}, {3.50187872151447*^9, 3.5018787216944704`*^9}, {
   3.5048150181500144`*^9, 3.504815019540016*^9}, {3.505355146547435*^9,
   3.505355162897458*^9}, 3.505355197957507*^9, 3.505363502953347*^9,
   3.513388158437796*^9, {3.513396783114089*^9, 3.513396893424244*^9}, {
   3.515183944210174*^9, 3.515183948000981*^9}, 3.5465518919376945`*^9, {
   3.5465519456377697`*^9, 3.5465519935278363`*^9}, {3.5465522275881643`*^9,
   3.5465522350581746`*^9}, {3.5465524827785215`*^9,
   3.5465524841985235`*^9}, {3.5465525534486203`*^9, 3.546552556518625*^9},
   3.5465528249290004`*^9, {3.546553085449365*^9, 3.546553085669366*^9}, {
   3.546562577103464*^9, 3.5465626694335938`*^9}, {3.5465628439733405`*^9,
   3.5465628580933604`*^9}, 3.5480315436347265`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "-", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "-", "1"}], ")"}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ",
    "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "-", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "^",
           RowBox[{"(",
            RowBox[{"m", "-", "2"}], ")"}]}], "*",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "*", "b", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "1"}], ")"}]}], "-",
            RowBox[{"a", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}], "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "1"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9, 3.5018079845979548`*^9},
   3.501808368327429*^9, {3.5018084216015224`*^9, 3.501808427217532*^9}, {
   3.501819528072632*^9, 3.50181953253424*^9}, {3.5018203432520638`*^9,
   3.501820344032065*^9}, {3.5018786091343126`*^9, 3.501878610064314*^9},
   3.5018790581949415`*^9, {3.5018791385150537`*^9, 3.5018791568850794`*^9}, {
   3.5018793597353635`*^9, 3.5018793635253687`*^9}, 3.501910560680503*^9,
   3.5019863481288395`*^9, {3.5020451897213154`*^9, 3.502045201858136*^9},
   3.5020756915891147`*^9, {3.502306962780834*^9, 3.502306963841636*^9}, {
   3.502307025726945*^9, 3.502307027099747*^9}, 3.5023072069680634`*^9, {
   3.5023278108049836`*^9, 3.502327815656592*^9}, {3.502327897057535*^9,
   3.5023278984459376`*^9}, 3.502327932110797*^9, {3.5023282663881836`*^9,
   3.502328267027785*^9}, {3.502330212132801*^9, 3.502330223318021*^9}, {
   3.505171983293619*^9, 3.5051719851817274`*^9}, {3.505181388258078*^9,
   3.505181394954461*^9}, {3.50518148673571*^9, 3.5051815031006465`*^9}, {
   3.5051874256913996`*^9, 3.505187431983759*^9}, {3.5051897160734015`*^9,
   3.5051897271320343`*^9}, {3.5051953059151225`*^9, 3.505195309785344*^9}, {
   3.5053551465674353`*^9, 3.5053551629074583`*^9}, 3.505355197967507*^9,
   3.5053635049333496`*^9, 3.513387898807433*^9, {3.5133879921375637`*^9,
   3.513387992567564*^9}, {3.513388051227646*^9, 3.5133880528176484`*^9},
   3.5133881119577312`*^9, 3.5133970539944687`*^9, {3.513397104734539*^9,
   3.5133971058845406`*^9}, 3.5134409461990433`*^9, {3.513642274197957*^9,
   3.513642291427981*^9}, {3.513714806388718*^9, 3.5137148128627295`*^9}, {
   3.513801780903818*^9, 3.5138017819748793`*^9}, 3.5140067363627625`*^9, {
   3.514006770246022*^9, 3.514006773974428*^9}, 3.516820809206676*^9,
   3.516823655968425*^9, 3.5410883247063828`*^9, 3.5410883813032827`*^9, {
   3.5455832535422077`*^9, 3.545583253562208*^9}, {3.5465519556077833`*^9,
   3.5465519556477833`*^9}, {3.546552059747929*^9, 3.546552073477948*^9}, {
   3.5465521708080845`*^9, 3.5465521822681007`*^9}, {3.5465523896783915`*^9,
   3.546552406118414*^9}, 3.5465524399084616`*^9, {3.5465525480486126`*^9,
   3.546552569538643*^9}, {3.5465527399188814`*^9, 3.546552742158884*^9}, {
   3.5465531377194386`*^9, 3.5465531386594396`*^9}, 3.54655322498956*^9, {
   3.546553262209613*^9, 3.546553267999621*^9}, {3.546562895113412*^9,
   3.546562906383428*^9}, {3.5465629850535383`*^9, 3.5465630052835665`*^9}, {
   3.5465635694843564`*^9, 3.5465635712943587`*^9}, {3.548181307818293*^9,
   3.5481813097682967`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, {3.5461955886755705`*^9,
   3.5461956023755894`*^9}, {3.546195703895732*^9, 3.546195704105732*^9},
   3.546315957155452*^9, {3.5465668300392804`*^9, 3.546566831509282*^9}, {
   3.546566916869402*^9, 3.5465669273294163`*^9}, {3.5465675164976144`*^9,
   3.546567517090415*^9}, {3.546567616817788*^9, 3.546567617036189*^9}, {
   3.546570973448903*^9, 3.546570973648903*^9}, {3.5481808943271666`*^9,
   3.5481808943271666`*^9}, {3.548180987646531*^9, 3.548180987646531*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.544974096328231*^9, {
   3.5449741904119964`*^9, 3.544974195872006*^9}, {3.544974238444481*^9,
   3.5449742523909054`*^9}, 3.5450869371643295`*^9, 3.5454968095072055`*^9,
   3.546191537759899*^9, 3.546195520465475*^9, 3.546195617975611*^9,
   3.5462861809905677`*^9, {3.546286452620948*^9, 3.546286452810948*^9}, {
   3.5462865217910447`*^9, 3.5462865217910447`*^9}, 3.546315992336464*^9,
   3.546709356728115*^9, {3.546709415581481*^9, 3.5467094205337644`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1",
    RowBox[{"z", " ",
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}]]}]], "\[Equal]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}]],
     RowBox[{"a", " ", "z"}]], "-",
    FractionBox["b",
     RowBox[{"a", " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}]]}]]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}, {
   3.5006760576590223`*^9, 3.5006760794090524`*^9}, {3.500676130389124*^9,
   3.500676132759127*^9}, 3.500676240689278*^9, 3.5006764023895044`*^9, {
   3.5006764330595474`*^9, 3.500676467739596*^9}, {3.5022467487167635`*^9,
   3.502246767498838*^9}, {3.516574608534994*^9, 3.516574623285015*^9}, {
   3.516574724719163*^9, 3.5165747651392193`*^9}, {3.516574997667554*^9,
   3.516575043887619*^9}, 3.516575103157702*^9, {3.5467094349115868`*^9,
   3.546709490320756*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976398906331725`*^9, 3.497639892598776*^9}, {3.5006668696561584`*^9,
   3.5006668721161623`*^9}, {3.500675666788475*^9, 3.5006756677784758`*^9},
   3.5006764070295115`*^9, {3.5048161931416597`*^9, 3.50481619370166*^9},
   3.5137247764614363`*^9, {3.5139231329419317`*^9, 3.513923133261932*^9},
   3.515183246535348*^9, {3.5165750921276865`*^9, 3.516575111407714*^9}, {
   3.5467094113422384`*^9, 3.5467094113422384`*^9}, {3.5467103835498457`*^9,
   3.546710383715855*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "a"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["b", "a"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, 3.5006646650530725`*^9, {
   3.5006652709839206`*^9, 3.500665282473937*^9}, 3.5006668515961337`*^9, {
   3.5006668992662*^9, 3.5006669216762314`*^9}, {3.5006756467284465`*^9,
   3.500675652058454*^9}, {3.500676422829533*^9, 3.500676426179538*^9}, {
   3.505668132210605*^9, 3.505668154310636*^9}, {3.5087906823493433`*^9,
   3.508790694919361*^9}, {3.513379994056366*^9, 3.51337999677637*^9}, {
   3.5151822833740563`*^9, 3.5151822896296673`*^9}, {3.5165743691146593`*^9,
   3.5165743732246647`*^9}, {3.5165744577447834`*^9,
   3.5165744635047913`*^9}, {3.5165745062248507`*^9, 3.516574523114875*^9}, {
   3.5165745602349267`*^9, 3.516574587474965*^9}, {3.5165749628375053`*^9,
   3.516574978037527*^9}, {3.546709376467244*^9, 3.546709392706173*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "a"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "-",
    " ", "\[IndentingNewLine]", "  ",
    RowBox[{
     RowBox[{"b", "/", "a"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.505668132210605*^9,
   3.505668154310636*^9}, {3.5087907393994236`*^9, 3.5087907621994553`*^9}, {
   3.513379997736371*^9, 3.5133800005263753`*^9}, {3.5455832526122065`*^9,
   3.545583252632207*^9}, {3.546725443854246*^9, 3.546725454033828*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.546553556800025*^9, 3.546553556800025*^9}, {3.5465661225070844`*^9,
   3.5465661243291883`*^9}, {3.5465661774947987`*^9,
   3.5465661774947987`*^9}, {3.5465662862339644`*^9,
   3.5465663130870667`*^9}, {3.5465667084671073`*^9,
   3.5465667087011075`*^9}, {3.546574770794219*^9, 3.5465747775342283`*^9}, {
   3.546710518738578*^9, 3.546710518891587*^9}, {3.5481810136205764`*^9,
   3.5481810250865965`*^9}, {3.5481821978210564`*^9, 3.548182198148657*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 11 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9},
   3.501815012259899*^9, 3.5087868232939415`*^9, {3.5133877913472824`*^9,
   3.513387792007283*^9}, {3.513397499005091*^9, 3.513397500035093*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "<",
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018152969603987`*^9,
   3.5018152976624002`*^9}, {3.5019631527037125`*^9, 3.501963154183715*^9}, {
   3.5019697498310204`*^9, 3.5019697498310204`*^9}, {3.502045984589511*^9,
   3.502045984589511*^9}, {3.502319396821365*^9, 3.5023194100189877`*^9}, {
   3.5023296064929376`*^9, 3.502329608474141*^9}, {3.5023339013540816`*^9,
   3.5023339013540816`*^9}, {3.5044897774352283`*^9,
   3.5044897786552296`*^9}, {3.505171398971198*^9, 3.5051714013203325`*^9}, {
   3.5051895180320745`*^9, 3.5051895180320745`*^9}, {3.5051895821767435`*^9,
   3.505189597225604*^9}, 3.5133878665673876`*^9, 3.5133882652779455`*^9, {
   3.5137150560983567`*^9, 3.5137150560983567`*^9}, {3.513808993828374*^9,
   3.5138090204088945`*^9}, {3.5465519458377695`*^9,
   3.5465519458377695`*^9}, {3.5465520291578865`*^9,
   3.5465520291578865`*^9}, {3.5465523577983465`*^9,
   3.5465523577983465`*^9}, {3.546553050249316*^9, 3.5465530508093166`*^9}, {
   3.546553330499708*^9, 3.546553330499708*^9}, {3.54656618224407*^9,
   3.54656618224407*^9}, {3.5465663435362706`*^9, 3.5465663435362706`*^9}, {
   3.5465747822742352`*^9, 3.5465747822742352`*^9}, {3.548181017005782*^9,
   3.548181026474999*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"2", "b", " ",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "+", "1"}]], " ",
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "3"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501807660242185*^9, 3.5018076682761993`*^9}, {3.5018077767119894`*^9,
   3.5018078381604977`*^9}, {3.501807870358954*^9, 3.5018078706397543`*^9}, {
   3.501815019950712*^9, 3.501815042773553*^9}, {3.504810650784292*^9,
   3.504810652074294*^9}, {3.505355146717435*^9, 3.5053551630474577`*^9},
   3.5053551980875072`*^9, 3.5053635229733753`*^9, 3.5133881809878273`*^9, {
   3.513393762090927*^9, 3.5133938308270245`*^9}, {3.513393896327116*^9,
   3.5133939132171392`*^9}, {3.5151839734914255`*^9, 3.5151839753010287`*^9},
   3.5465519085177174`*^9, {3.5465519458477697`*^9, 3.5465519458577695`*^9}, {
   3.5465522927582555`*^9, 3.5465522936182566`*^9}, {3.546552328108305*^9,
   3.5465523281183047`*^9}, {3.5465523584683475`*^9,
   3.5465523590983486`*^9}, {3.5465526518287582`*^9, 3.546552651838758*^9},
   3.5465529713492055`*^9, {3.5465530974293823`*^9, 3.5465530976893826`*^9},
   3.5465662223084664`*^9, {3.5465664052640963`*^9, 3.54656646541284*^9},
   3.54656662665506*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}], "*",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}]}], " ",
    "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*", "b", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "^",
           RowBox[{"(",
            RowBox[{"m", "+", "1"}], ")"}]}], "*",
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "3"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}], "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9,
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501815056251976*^9, 3.5018150914456377`*^9}, {3.501962084402217*^9,
   3.5019620853222184`*^9}, 3.501963123453672*^9, {3.5019632157938013`*^9,
   3.5019632266338167`*^9}, {3.5019697456010146`*^9,
   3.5019697463110156`*^9}, {3.502045976461897*^9, 3.5020459805959044`*^9}, {
   3.502319372422922*^9, 3.502319379942135*^9}, {3.502328155378389*^9,
   3.502328170448015*^9}, {3.502333890215662*^9, 3.502333891229664*^9}, {
   3.505171387161523*^9, 3.5051713874075365`*^9}, {3.50518747657731*^9,
   3.5051874809385595`*^9}, {3.5053551467374353`*^9, 3.505355163067458*^9},
   3.505355198107507*^9, 3.505363525043378*^9, 3.5133879372874866`*^9, {
   3.5133880095075874`*^9, 3.5133880099475884`*^9}, 3.513388076437681*^9,
   3.5133881266577516`*^9, 3.513394027856902*^9, 3.5134409776486983`*^9,
   3.5137150631651692`*^9, {3.5138089687019367`*^9, 3.5138089886660786`*^9}, {
   3.513964720348965*^9, 3.513964724628971*^9}, {3.513965013199375*^9,
   3.5139650155993786`*^9}, 3.516820809396676*^9, 3.516823656162436*^9, {
   3.5410883462188206`*^9, 3.5410883660464554`*^9}, {3.545583253812208*^9,
   3.5455832538322086`*^9}, {3.546551955837784*^9, 3.5465519558677835`*^9}, {
   3.546552059807929*^9, 3.546552086647967*^9}, {3.5465521708980846`*^9,
   3.5465521823881006`*^9}, {3.546552765428917*^9, 3.54655276738892*^9}, {
   3.5465528622590528`*^9, 3.5465528622690525`*^9}, {3.5465529511391773`*^9,
   3.546552976109212*^9}, {3.546553161759472*^9, 3.546553196929521*^9}, {
   3.546553304009671*^9, 3.5465533062696743`*^9}, {3.546566372236377*^9,
   3.546566391635421*^9}, 3.5465666823029613`*^9, {3.5465747853042393`*^9,
   3.546574786964242*^9}, {3.548181342996355*^9, 3.54818134575756*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, 3.5461955886755705`*^9, {
   3.5462104410915537`*^9, 3.5462104410915537`*^9}, 3.546315956281402*^9, {
   3.5465638280147195`*^9, 3.546563854194756*^9}, {3.5465709841989183`*^9,
   3.5465709988489385`*^9}, {3.5465748718143606`*^9, 3.546574940884457*^9}, {
   3.546576976637307*^9, 3.5465769779573092`*^9}, {3.548179338310034*^9,
   3.548179338310034*^9}, {3.5481809042331843`*^9, 3.5481809042331843`*^9}, {
   3.548181027645001*^9, 3.548181027645001*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, 3.5461955886755705`*^9, {
   3.5462104410915537`*^9, 3.5462104410915537`*^9}, 3.546315956281402*^9, {
   3.5465638280147195`*^9, 3.546563854194756*^9}, {3.5465709841989183`*^9,
   3.5465709988489385`*^9}, {3.5465748718143606`*^9, 3.546574940884457*^9},
   3.5465769817473145`*^9, {3.54657701438736*^9, 3.5465770145473604`*^9}, {
   3.548179338996435*^9, 3.548179338996435*^9}, {3.5481809059647875`*^9,
   3.5481809059647875`*^9}, {3.5481810284718027`*^9, 3.5481810284718027`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.546553526069982*^9, 3.546553526069982*^9}, {3.5465680912684746`*^9,
   3.5465680922745323`*^9}, 3.5465684448177195`*^9, 3.5465684782556324`*^9, {
   3.5465686696745777`*^9, 3.546568676121947*^9}, 3.54656936061374*^9, {
   3.546569447330674*^9, 3.5465694724780445`*^9}, 3.546571366989454*^9,
   3.546576992377329*^9, {3.5467117801317253`*^9, 3.546711782375854*^9}, {
   3.546711893562214*^9, 3.5467119026557336`*^9}, {3.546712722451623*^9,
   3.5467127524723406`*^9}, {3.548180908679192*^9, 3.548180908679192*^9}, {
   3.5481810290490036`*^9, 3.5481810290490036`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 7 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, 3.501814332956706*^9, 3.5087868232439413`*^9, {
   3.5133877168971777`*^9, 3.513387717377179*^9}, {3.5133931839869146`*^9,
   3.513393184966916*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 12 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9}, {
   3.5018084803824253`*^9, 3.501808481100027*^9}, {3.501880404136826*^9,
   3.501880404716827*^9}, 3.5087868232439413`*^9, {3.5133877259171906`*^9,
   3.513387726737192*^9}, {3.5133931781669064`*^9, 3.5133931795169086`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.5019852252072678`*^9, 3.5019852285472727`*^9}, {
   3.50205482983051*^9, 3.502054831110512*^9}, {3.504489651525052*^9,
   3.5044896818350945`*^9}, {3.505189371841713*^9, 3.505189371841713*^9}, {
   3.51338783997735*^9, 3.513387844567357*^9}, 3.513388233827902*^9, {
   3.5137147643154445`*^9, 3.513714765937847*^9}, {3.5465519455777693`*^9,
   3.5465519455777693`*^9}, {3.546552007467856*^9, 3.546552007467856*^9}, {
   3.5465530363592963`*^9, 3.5465530370092974`*^9}, {3.546553343029726*^9,
   3.546553343039726*^9}, {3.546568101994088*^9, 3.546568103000146*^9}, {
   3.5467127722684727`*^9, 3.5467127722684727`*^9}, {3.5481809108007956`*^9,
   3.5481809108007956`*^9}, {3.5481810301410055`*^9, 3.5481810301410055`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SqrtBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
       RowBox[{"b", " ", "d", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}], "-",
  RowBox[{
   FractionBox["1",
    RowBox[{"2", "a", " ", "b", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "-",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "n"}], "+", "3"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], " ",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"n", "+", "1"}]]}],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.510172397162881*^9, 3.5101724322785425`*^9}, {
   3.513277045993078*^9, 3.5132771366732054`*^9}, {3.5132772238133273`*^9,
   3.5132772240033274`*^9}, {3.513277256793373*^9, 3.513277286693415*^9},
   3.513277413733593*^9, {3.513392577705661*^9, 3.513392609975706*^9}, {
   3.513392694215824*^9, 3.513392704875839*^9}, {3.513392737255884*^9,
   3.51339274112589*^9}, {3.5133931028868012`*^9, 3.513393163546886*^9}, {
   3.5151839301545496`*^9, 3.515183932619354*^9}, 3.54655188873769*^9, {
   3.5465519455877695`*^9, 3.546551972257807*^9}, {3.546552213578144*^9,
   3.5465522234981585`*^9}, 3.54655235317834*^9, {3.5465524731585083`*^9,
   3.5465524747485104`*^9}, {3.546553083329362*^9, 3.5465530835593624`*^9}, {
   3.546568124683386*^9, 3.546568204297937*^9}, {3.546712670696663*^9,
   3.546712676977022*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "-",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*", "a", "*", "b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "-",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "n"}], "+", "3"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
          RowBox[{"(",
           RowBox[{"n", "+", "1"}], ")"}]}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "1"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018783882040033`*^9,
   3.5018783932040105`*^9}, 3.501910304356453*^9, {3.5019850179769773`*^9,
   3.5019850211269817`*^9}, {3.50198507709706*^9, 3.5019850837970695`*^9}, {
   3.501985197727229*^9, 3.5019851992872314`*^9}, {3.5020548244905024`*^9,
   3.502054825820504*^9}, {3.5023202436376524`*^9, 3.502320247444059*^9}, {
   3.5023379615108128`*^9, 3.5023379654264197`*^9}, 3.5033390642030897`*^9, {
   3.505187411879609*^9, 3.505187412225629*^9}, 3.5051875191207433`*^9, {
   3.5053551465274353`*^9, 3.505355162877458*^9}, 3.505355197947507*^9,
   3.505363500433344*^9, 3.5133878886374187`*^9, {3.5133879881275578`*^9,
   3.5133879885875587`*^9}, 3.513388040607631*^9, 3.513388109027727*^9,
   3.5133930839067745`*^9, {3.5133933124866967`*^9, 3.513393352116752*^9}, {
   3.513394105465011*^9, 3.5133941178350286`*^9}, 3.51344093298582*^9, {
   3.513714769151453*^9, 3.5137147711170564`*^9}, {3.5159719822873106`*^9,
   3.5159719840501137`*^9}, 3.516820809176676*^9, 3.5168236559324226`*^9,
   3.541088321898378*^9, 3.5410883841268873`*^9, {3.5455832534922075`*^9,
   3.5455832535022078`*^9}, {3.546551955587783*^9, 3.546551955597783*^9}, {
   3.5465520597379293`*^9, 3.546552070637944*^9}, {3.5465521707880845`*^9,
   3.5465521822481008`*^9}, 3.546552389668391*^9, 3.546552541078603*^9, {
   3.5465527327488713`*^9, 3.5465527356888757`*^9}, 3.546552798268963*^9, {
   3.5465531314394293`*^9, 3.5465531353894353`*^9}, {3.5465532297195673`*^9,
   3.5465532547096024`*^9}, {3.546568242436118*^9, 3.546568320952216*^9}, {
   3.5465683573057146`*^9, 3.546568360100874*^9}, {3.5467127763737073`*^9,
   3.5467128039962873`*^9}, {3.5481813657411947`*^9, 3.548181367550798*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.546553520779975*^9, 3.546553520779975*^9}, {3.5465620183501816`*^9,
   3.5465620475402226`*^9}, 3.546562224642971*^9, {3.546568671423678*^9,
   3.5465686772920136`*^9}, 3.5465693616708*^9, {3.546569449031771*^9,
   3.5465694492137814`*^9}, 3.546571368819456*^9, {3.5465746762240868`*^9,
   3.546574684554098*^9}, 3.546576993927332*^9, 3.5467237881425447`*^9, {
   3.54672410853187*^9, 3.546724112699108*^9}, {3.5467244129842834`*^9,
   3.5467244132222967`*^9}, {3.546724532442116*^9, 3.5467245348112516`*^9}, {
   3.5481809317204323`*^9, 3.5481809317204323`*^9}, {3.5481810363498163`*^9,
   3.5481810363498163`*^9}, {3.5481814121980762`*^9,
   3.5481814121980762`*^9}, {3.5481815885151863`*^9, 3.5481815898723884`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 7 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.5018603533666525`*^9,
   3.5018603814467015`*^9}, {3.5018631639043903`*^9, 3.5018631661195946`*^9},
   3.508786823233941*^9, {3.513387706167163*^9, 3.5133877066171637`*^9}, {
   3.5133974791450634`*^9, 3.513397480265065*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, 3.501860616180314*^9, {
   3.501860766919379*^9, 3.5018607678241806`*^9}, {3.5018636306572104`*^9,
   3.501863632154813*^9}, {3.5019633694840164`*^9, 3.501963370514018*^9}, {
   3.5023182824802074`*^9, 3.5023182851790123`*^9}, {3.502329564622464*^9,
   3.5023295733740797`*^9}, {3.5034412682015095`*^9, 3.503441273581517*^9}, {
   3.504489645915044*^9, 3.504489648125047*^9}, 3.50448967872509*^9, {
   3.505189326723132*^9, 3.505189331207389*^9}, {3.505189366105385*^9,
   3.505189366105385*^9}, 3.5133878373073463`*^9, {3.513388224137888*^9,
   3.5133882304378967`*^9}, {3.5137147401822023`*^9, 3.513714742927807*^9}, {
   3.513801750253065*^9, 3.513801751107114*^9}, {3.5465519454977694`*^9,
   3.5465519454977694`*^9}, {3.546552003917851*^9, 3.546552003917851*^9}, {
   3.54655303177929*^9, 3.5465530322092905`*^9}, {3.5465533451797285`*^9,
   3.5465533451797285`*^9}, {3.5465620245401907`*^9, 3.546562053800231*^9}, {
   3.546574694284112*^9, 3.546574694284112*^9}, {3.546725218901379*^9,
   3.546725218901379*^9}, {3.548180933670436*^9, 3.548180933670436*^9}, {
   3.5481810373014183`*^9, 3.5481810373014183`*^9}, {3.5481814152244816`*^9,
   3.5481814152244816`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "1"}]],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SuperscriptBox["a", "2"], " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "-", "2"}]],
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ",
        RowBox[{"(",
         RowBox[{"m", "-", "1"}], ")"}]}], "-",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{"m", "-", "n", "-", "1"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501860400993536*^9, 3.5018605059505205`*^9}, {3.5018605425013847`*^9,
   3.5018605686782303`*^9}, 3.5033392142597537`*^9, {3.5048106354142704`*^9,
   3.5048106376842737`*^9}, {3.5053551464874353`*^9, 3.505355162827458*^9},
   3.505355197907507*^9, 3.505363493643334*^9, 3.5133881491077833`*^9, {
   3.51339716233462*^9, 3.513397268864769*^9}, {3.51518391343132*^9,
   3.515183916925726*^9}, {3.5465518756376715`*^9, 3.546551878927676*^9}, {
   3.546551945517769*^9, 3.5465519935078363`*^9}, {3.5465521983781233`*^9,
   3.546552208928138*^9}, {3.5465524634384947`*^9, 3.5465524668484993`*^9}, {
   3.5465530810893593`*^9, 3.5465530813493595`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "-", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"a", "^", "2"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "2"}], ")"}]}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*",
           RowBox[{"(",
            RowBox[{"m", "-", "1"}], ")"}]}], "-",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{"m", "-", "n", "-", "1"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", ">", "1"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, 3.5018203266692343`*^9, {3.5018204013465652`*^9,
   3.5018204023137674`*^9}, 3.501860612342707*^9, {3.5018607334729204`*^9,
   3.5018607601801677`*^9}, 3.5018608226738772`*^9, 3.5018782254037757`*^9, {
   3.5023182781434*^9, 3.5023182790326014`*^9}, {3.502328231709323*^9,
   3.5023282353597293`*^9}, 3.503339217036558*^9, {3.503441249321483*^9,
   3.5034412534214892`*^9}, {3.505187375919553*^9, 3.50518737622257*^9},
   3.505187511568311*^9, {3.505355146497435*^9, 3.505355162847458*^9},
   3.505355197917507*^9, 3.5053634954833364`*^9, 3.5133878856174145`*^9, {
   3.5133879841875525`*^9, 3.513387984837553*^9}, {3.5133880235676074`*^9,
   3.5133880366976256`*^9}, 3.513388106307723*^9, 3.513397433294999*^9,
   3.5134409156697893`*^9, {3.5137147466406136`*^9, 3.5137147486998167`*^9}, {
   3.5138017561114*^9, 3.5138017573564715`*^9}, {3.514002620461131*^9,
   3.5140026297743473`*^9}, {3.5140067847540474`*^9,
   3.5140067908536577`*^9}, {3.515971927587615*^9, 3.5159719342956266`*^9}, {
   3.515971967482885*^9, 3.5159719737228956`*^9}, 3.516820809136676*^9,
   3.5168236558924203`*^9, {3.5410883033031454`*^9, 3.5410883099643574`*^9}, {
   3.5455832534322076`*^9, 3.5455832534522076`*^9}, {3.546551955507783*^9,
   3.546551955557783*^9}, {3.546552059717929*^9, 3.546552068227941*^9}, {
   3.5465521707580843`*^9, 3.5465521822081003`*^9}, {3.546552389648391*^9,
   3.546552406098414*^9}, {3.5465524386184597`*^9, 3.54655243925846*^9}, {
   3.546552691138813*^9, 3.5465526956488194`*^9}, {3.5465531253894215`*^9,
   3.546553129419427*^9}, {3.5465532342895737`*^9, 3.546553245469589*^9}, {
   3.5465620352802057`*^9, 3.546562037090208*^9}, {3.5465746979941173`*^9,
   3.5465746997841196`*^9}, {3.5467241169203496`*^9,
   3.5467241421517925`*^9}, {3.54672522556176*^9, 3.54672522765188*^9}, {
   3.546738925719961*^9, 3.5467389291701584`*^9}, 3.5481785506958504`*^9, {
   3.54818140853207*^9, 3.548181422712495*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.546553408339817*^9, 3.546553427399844*^9}, {
   3.546553561560032*^9, 3.546553561560032*^9}, {3.5465621525103693`*^9,
   3.546562154190372*^9}, 3.546562225492972*^9, {3.546568756940605*^9,
   3.5465687624899225`*^9}, {3.5465687941566677`*^9, 3.546568794515688*^9}, {
   3.5465690348612633`*^9, 3.546569042707712*^9}, {3.546569156979164*^9,
   3.54656915848425*^9}, {3.5465748901043863`*^9, 3.5465748912443876`*^9},
   3.5465769846973186`*^9, {3.5465770158773623`*^9, 3.5465770160573626`*^9}, {
   3.5481809368684416`*^9, 3.5481809368684416`*^9}, {3.54818103829982*^9,
   3.54818103829982*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 12 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017223746994925`*^9, 3.5017223749958925`*^9}, {3.5017230174518213`*^9,
   3.5017230272330384`*^9}, {3.501807621678917*^9, 3.5018076224433184`*^9}, {
   3.5018084803824253`*^9, 3.501808481100027*^9}, 3.5018151793673925`*^9,
   3.5087868232939415`*^9, {3.513387796477289*^9, 3.5133877972872906`*^9}, {
   3.5133975009950943`*^9, 3.5133975020150957`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "<", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018079315890617`*^9,
   3.5018079522746983`*^9}, {3.5018088942823524`*^9, 3.5018088954991546`*^9},
   3.50180892701121*^9, {3.50181529162519*^9, 3.5018152927015915`*^9}, {
   3.5019635541242747`*^9, 3.501963558874282*^9}, {3.5019652763866863`*^9,
   3.5019652763866863`*^9}, {3.501985346137437*^9, 3.5019853551474495`*^9}, {
   3.5023187886386967`*^9, 3.502318789403098*^9}, {3.5023296895162835`*^9,
   3.5023297015595045`*^9}, {3.5023316517677307`*^9,
   3.5023316517677307`*^9}, {3.502333862822014*^9, 3.502333863555215*^9}, {
   3.5023886706912384`*^9, 3.5023886706912384`*^9}, {3.5044897842752376`*^9,
   3.504489785155239*^9}, {3.5051895461906853`*^9, 3.5051895514119835`*^9},
   3.513387869507392*^9, 3.5133882701579523`*^9, {3.513705975188499*^9,
   3.513705975188499*^9}, {3.5137150684067783`*^9, 3.513715069935581*^9}, {
   3.513717114783574*^9, 3.513717115891176*^9}, {3.5465519458677697`*^9,
   3.5465519458677697`*^9}, {3.5465520321378903`*^9,
   3.5465520321378903`*^9}, {3.5465530521393185`*^9,
   3.5465530526393194`*^9}, {3.5465533243996997`*^9, 3.546553325569701*^9}, {
   3.5465621613303823`*^9, 3.5465621613303823`*^9}, {3.5465691346988897`*^9,
   3.546569163977564*^9}, {3.5481809403472476`*^9, 3.5481809403472476`*^9}, {
   3.548181039173421*^9, 3.548181039173421*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}],
          RowBox[{"m", "+", "1"}]],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "n"]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SuperscriptBox["a", "2"],
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "m"],
     RowBox[{"(",
      RowBox[{
       RowBox[{"a",
        RowBox[{"(",
         RowBox[{"m", "+",
          RowBox[{"2", "n"}], "+", "2"}], ")"}]}], "-",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{"m", "+", "n", "+", "2"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9,
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9,
   3.5013586400931444`*^9}, 3.5027672052757444`*^9, 3.5035556969716425`*^9,
   3.5053446414737844`*^9, {3.505344693303857*^9, 3.505344708433878*^9},
   3.5053535619252167`*^9, {3.5094747245329013`*^9, 3.509474861672745*^9}, {
   3.5095533946779337`*^9, 3.509553415627963*^9}, {3.509553538668135*^9,
   3.5095535518681536`*^9}, {3.5095535889582057`*^9,
   3.5095536266082582`*^9}, {3.5101725552067585`*^9,
   3.5101725573127623`*^9}, {3.5101728674101067`*^9,
   3.5101728711385136`*^9}, {3.510173662715104*^9, 3.510173677129529*^9},
   3.5102536435885286`*^9, {3.513292062852798*^9, 3.513292242867111*^9}, {
   3.5132923801169157`*^9, 3.5132923861569242`*^9}, {3.5133942235351763`*^9,
   3.5133943581717653`*^9}, {3.515183978218234*^9, 3.515183979809437*^9},
   3.5465519114077215`*^9, {3.5465519458777695`*^9, 3.5465519458877697`*^9}, {
   3.5465522943982573`*^9, 3.5465522951482587`*^9}, {3.5465523281283045`*^9,
   3.5465523281383047`*^9}, 3.5465526518487577`*^9, {3.546552981019219*^9,
   3.546552985339225*^9}, {3.5465531000093856`*^9, 3.546553100289386*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"a", "^", "2"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*",
           RowBox[{"(",
            RowBox[{"m", "+",
             RowBox[{"2", "*", "n"}], "+", "2"}], ")"}]}], "-",
          RowBox[{"b", "*",
           RowBox[{"(",
            RowBox[{"m", "+", "n", "+", "2"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "*",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"ZeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "<", "0"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018079781707435`*^9,
   3.5018079845979548`*^9}, {3.501808142938233*^9, 3.501808157227858*^9}, {
   3.501808857045087*^9, 3.501808860570693*^9}, {3.501808898962361*^9,
   3.501808916137991*^9}, {3.501815185950604*^9, 3.501815193859818*^9},
   3.5018153663025208`*^9, {3.501963510624214*^9, 3.5019635224342303`*^9}, {
   3.5019853143173923`*^9, 3.501985331897417*^9}, {3.5023186901245236`*^9,
   3.5023186995781403`*^9}, {3.502328108500306*^9, 3.5023281359095545`*^9}, {
   3.502329683447873*^9, 3.502329705787112*^9}, 3.502329766050018*^9, {
   3.5023316434061155`*^9, 3.5023316474465227`*^9}, {3.5023338521983953`*^9,
   3.5023338551468005`*^9}, 3.502388666141232*^9, 3.5033390786331153`*^9, {
   3.5051874883769846`*^9, 3.505187491383157*^9}, 3.5051895386622543`*^9, {
   3.505355146767435*^9, 3.505355163097458*^9}, 3.505355198127507*^9,
   3.5053635303733854`*^9, 3.5133879447774973`*^9, {3.513388013527593*^9,
   3.513388014077594*^9}, 3.513388079607686*^9, 3.513388129147755*^9,
   3.513394426691861*^9, 3.513440981923106*^9, {3.513705980289708*^9,
   3.513705985921318*^9}, {3.5137150728839865`*^9, 3.51371507492759*^9}, {
   3.5137171197287827`*^9, 3.5137171207583847`*^9}, {3.515972096541911*^9,
   3.5159720985543146`*^9}, 3.5168208094266768`*^9, 3.5168236561984377`*^9, {
   3.5410883498224273`*^9, 3.541088357591241*^9}, {3.5455832538622084`*^9,
   3.5455832538822083`*^9}, {3.546551955877784*^9, 3.546551955887784*^9}, {
   3.5465520598179293`*^9, 3.5465520890879703`*^9}, {3.546552170918085*^9,
   3.546552182418101*^9}, {3.5465527700189238`*^9, 3.5465527758889318`*^9},
   3.5465528622790527`*^9, {3.5465529906292324`*^9, 3.546552994489238*^9}, {
   3.546553183079502*^9, 3.5465531914495134`*^9}, {3.5465533119296823`*^9,
   3.5465533139696856`*^9}, {3.54656906033372*^9, 3.5465690620138164`*^9}, {
   3.54656909966397*^9, 3.5465691010750504`*^9}, 3.548178556530261*^9, {
   3.548181439560525*^9, 3.548181441463728*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["6.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, 3.5465761741261835`*^9, {3.5481787916382737`*^9,
   3.548178862774399*^9}, {3.5481792150854177`*^9, 3.548179219968226*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[NotEqual]", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, {3.5465754184051256`*^9, 3.5465754303251424`*^9},
   3.5465761767861876`*^9, {3.5481789872158175`*^9, 3.5481789874186172`*^9}, {
   3.5481792333062496`*^9, 3.54817923942146*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.546200717732751*^9, 3.5462007439427876`*^9}, {3.546206237565669*^9,
   3.546206237885669*^9}, 3.5463152382663336`*^9, 3.546575717935545*^9, {
   3.546575866675753*^9, 3.546575884775779*^9}, {3.5481793397452364`*^9,
   3.5481793397452364`*^9}, {3.5481794619826508`*^9, 3.548179464977856*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546198899460205*^9, {3.5462006330526323`*^9,
   3.546200647082652*^9}, 3.5463157494235706`*^9, {3.546547659681451*^9,
   3.546547661811454*^9}, {3.5465477041496267`*^9, 3.546547708190858*^9}, {
   3.5465758962957945`*^9, 3.5465758965457954`*^9}, {3.548179340431638*^9,
   3.548179340431638*^9}, {3.548179477676278*^9, 3.548179477676278*^9}, {
   3.5481799104522386`*^9, 3.5481799104522386`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5450142036771193`*^9,
   3.5454968155772142`*^9, {3.5460549819028172`*^9, 3.5460549821228175`*^9},
   3.546191544689909*^9, 3.5461961601363707`*^9, 3.546197017797571*^9,
   3.546198904120212*^9, {3.546199021800377*^9, 3.5461990221303773`*^9},
   3.546315755413913*^9, 3.5465319936643767`*^9, 3.5465476639714565`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017234466769753`*^9, {3.503797992634972*^9, 3.5037979962649775`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SqrtBox["z"], " ",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ", "z"}]}]]}], "\[Equal]",
   RowBox[{
    RowBox[{"-",
     FractionBox["a",
      RowBox[{
       SqrtBox["z"], " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ", "z"}]}]]}]]}], "+",
    FractionBox[
     RowBox[{"a", "+",
      RowBox[{"a", " ", "z"}], "+",
      RowBox[{"b", " ",
       SuperscriptBox["z", "2"]}]}],
     RowBox[{
      SqrtBox["z"], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}]]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.508354923854859*^9,
   3.508354923854859*^9}, {3.508361590872611*^9, 3.5083615983626213`*^9}, {
   3.508361640892681*^9, 3.508361643482684*^9}, 3.5108633469910617`*^9, {
   3.5108842882102137`*^9, 3.510884343449911*^9}, {3.5108843749619665`*^9,
   3.510884406786022*^9}, {3.5148563582542953`*^9, 3.5148563625755033`*^9}, {
   3.5448167556862326`*^9, 3.5448167637358465`*^9}, {3.544826626203169*^9,
   3.544826640274394*^9}, {3.5448269617909584`*^9, 3.5448269617909584`*^9}, {
   3.544933298428343*^9, 3.544933298428343*^9}, {3.5449343303097878`*^9,
   3.544934349169814*^9}, {3.544939776979414*^9, 3.544939776979414*^9}, {
   3.544972536122691*^9, 3.5449726055740128`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.504395467815114*^9, 3.504395468855116*^9}, 3.5044134935312862`*^9,
   3.5077509925081367`*^9, 3.5077529278888516`*^9, 3.5083632227748957`*^9,
   3.508380395140566*^9, 3.5086310963405914`*^9, 3.513377608083026*^9,
   3.5145992494881935`*^9, 3.514861882255986*^9, 3.5151814805918455`*^9, {
   3.544972439745722*^9, 3.5449724400733223`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SqrtBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]], " ",
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-", "a"}]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"a", "+",
      RowBox[{"a", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
      RowBox[{"b", " ",
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}],
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, 3.5038696365424623`*^9, {3.503869666572504*^9,
   3.5038696695325084`*^9}, 3.5083527415018034`*^9, {3.5086323118371267`*^9,
   3.5086323389967747`*^9}, {3.508654663630771*^9, 3.5086546674007764`*^9}, {
   3.5098474619088945`*^9, 3.5098474646688986`*^9}, {3.5151679137940855`*^9,
   3.515167924934101*^9}, 3.515977822753965*^9, 3.5449723784532137`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"a", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
         RowBox[{"b", "*",
          RowBox[{
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, 3.503851442368843*^9, 3.503869917614463*^9, {
   3.5038699479017515`*^9, 3.503869961781771*^9}, {3.508352748471813*^9,
   3.5083527515018177`*^9}, 3.5086323848920555`*^9, {3.508654667990777*^9,
   3.5086546708507814`*^9}, {3.5098474657189007`*^9,
   3.5098474686489043`*^9}, {3.5449724812261944`*^9, 3.544972492551814*^9}, {
   3.5461249080634203`*^9, 3.5461249080734205`*^9}, {3.546124949343478*^9,
   3.5461249493534784`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174717888803`*^9, 3.5454174717888803`*^9},
   3.545417514532955*^9, 3.5454181125600057`*^9, {3.545418521561524*^9,
   3.545418521561524*^9}, 3.545496849437261*^9, {3.5461230514508214`*^9,
   3.546123051460821*^9}, {3.5461231287809296`*^9, 3.546123129760931*^9},
   3.5461241157523117`*^9, 3.546197847838733*^9, {3.5461983391394205`*^9,
   3.5461983397094216`*^9}, {3.546198868830162*^9, 3.546198868830162*^9},
   3.546198906220215*^9, {3.546199023710379*^9, 3.5461990239003797`*^9}, {
   3.5461998402415223`*^9, 3.5461998404015226`*^9}, {3.5462006053025937`*^9,
   3.5462006055225935`*^9}, {3.5462006700926843`*^9, 3.546200696922722*^9},
   3.546315756278962*^9, {3.546534907408456*^9, 3.546534907408456*^9},
   3.5465476680214624`*^9, {3.546547741497763*^9, 3.546547747174088*^9}, {
   3.548179531948774*^9, 3.548179531948774*^9}, {3.5481799115754404`*^9,
   3.5481799115754404`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "2",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.501729652057078*^9}, {3.5029994366665936`*^9,
   3.502999483496659*^9}, 3.5029995988368206`*^9, 3.5053451043744326`*^9,
   3.512064350982525*^9, {3.5454336182801046`*^9, 3.545433620160107*^9}, {
   3.548010167980506*^9, 3.5480101698905087`*^9}}],

Cell[TextData[{
 "Derivation: Recurrence ",
 "3",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.501729652057078*^9}, 3.505345123254459*^9,
   3.5120643640425425`*^9, {3.545433624220113*^9, 3.5454336250501137`*^9}, {
   3.548010174210515*^9, 3.548010175220516*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4993685152127995`*^9, 3.499368525272814*^9}, {3.5003196739046497`*^9,
   3.5003196775646553`*^9}, {3.5004320602230625`*^9, 3.500432061347127*^9}, {
   3.5013754079366193`*^9, 3.5013754082466197`*^9}, {3.501375469666706*^9,
   3.501375475386714*^9}, {3.5030004141879616`*^9, 3.503000417287966*^9},
   3.503000460198026*^9, {3.504244010654842*^9, 3.5042440117348433`*^9}, {
   3.504414729143016*^9, 3.504414729843017*^9}, {3.5048369828686285`*^9,
   3.5048369828686285`*^9}, {3.5049951877300296`*^9,
   3.5049951877300296`*^9}, {3.5051934868360767`*^9, 3.5051934911753254`*^9},
   3.509828339752122*^9, {3.5101745086109896`*^9, 3.5101745086109896`*^9}, {
   3.5101794665537453`*^9, 3.5101794724973555`*^9}, {3.5117202325135317`*^9,
   3.5117202325135317`*^9}, {3.5454171780403643`*^9,
   3.5454171780403643`*^9}, {3.5454185119051065`*^9,
   3.5454185145415115`*^9}, {3.5454301381652327`*^9, 3.545430138705233*^9}, {
   3.5461230515108213`*^9, 3.5461230515208216`*^9}, {3.5461231230409217`*^9,
   3.5461231241109233`*^9}, {3.5461983442694283`*^9, 3.546198345009429*^9}, {
   3.548021391109312*^9, 3.548021391109312*^9}, {3.5481795421511917`*^9,
   3.5481795421511917`*^9}, {3.548179913026243*^9, 3.548179913026243*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "1"}]],
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"2", "m"}], "+", "1"}]], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "-", "2"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"2", "a", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "1"}], ")"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "-", "1"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"a", " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.5095014878340373`*^9, 3.5095014885516386`*^9}, {3.509501723296851*^9,
   3.5095017455424905`*^9}, {3.5098281918219147`*^9, 3.509828327592105*^9}, {
   3.5098339976558056`*^9, 3.5098340003858104`*^9}, {3.510174666108866*^9,
   3.510174669821673*^9}, {3.510174994645443*^9, 3.510175008716668*^9}, {
   3.5151682226545177`*^9, 3.515168225054521*^9}, {3.5461230515508213`*^9,
   3.5461230515808215`*^9}, {3.5461236315816336`*^9, 3.546123659571673*^9}, {
   3.5461239378120623`*^9, 3.5461239522920823`*^9}, {3.5461978521787395`*^9,
   3.546197899658806*^9}, {3.546198387729489*^9, 3.5461984339795537`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5003184730429688`*^9, 3.50031848112298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "-", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "+", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"2", "*", "m"}], "+", "1"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "2"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"2", "*", "a", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "1"}], ")"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "-", "1"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"a", "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "1"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, {3.4993575889901257`*^9,
   3.4993576670838633`*^9}, {3.499365544950614*^9, 3.4993655661406436`*^9}, {
   3.4993657073008413`*^9, 3.499365707870842*^9}, 3.4993699181547637`*^9, {
   3.5003179803689146`*^9, 3.500317981117716*^9}, {3.5003185042030125`*^9,
   3.5003185122330236`*^9}, {3.500319341644185*^9, 3.500319361824213*^9}, {
   3.5003214645171566`*^9, 3.500321470987166*^9}, {3.500432015647513*^9,
   3.5004320167615767`*^9}, {3.501043209599528*^9, 3.5010432350499835`*^9},
   3.5026771020013933`*^9, {3.502677180841504*^9, 3.5026772181615562`*^9}, {
   3.502677352241744*^9, 3.5026773539717464`*^9}, 3.5027670707255077`*^9, {
   3.503071968728242*^9, 3.503071977848255*^9}, 3.5038761956487827`*^9, {
   3.5040290099495783`*^9, 3.504029011478381*^9}, {3.5041565286043806`*^9,
   3.504156530008383*^9}, {3.5042865784817295`*^9, 3.5042866008017607`*^9}, {
   3.5042870585024014`*^9, 3.5042870681924148`*^9}, {3.504287484912998*^9,
   3.504287490763006*^9}, {3.5042940452901697`*^9, 3.5042940507501793`*^9},
   3.5042956788330393`*^9, {3.504296854565608*^9, 3.5042968614056177`*^9}, {
   3.505100941436471*^9, 3.505100953336488*^9}, {3.505101028776593*^9,
   3.5051010300865946`*^9}, 3.505344641403784*^9, {3.5053446931238565`*^9,
   3.5053447150138874`*^9}, 3.5053535519652023`*^9, 3.509472213767294*^9,
   3.509472341770615*^9, {3.5094725099262333`*^9, 3.5094725194427776`*^9},
   3.50947329995942*^9, {3.5094751389386044`*^9, 3.5094751435978703`*^9}, {
   3.509501492451645*^9, 3.50950149522845*^9}, {3.5095017530305033`*^9,
   3.5095017758065434`*^9}, {3.5098283629621544`*^9, 3.509828382652182*^9}, {
   3.5098284316522503`*^9, 3.509828435992257*^9}, {3.509833712066104*^9,
   3.509833712268904*^9}, 3.509834084376358*^9, 3.510174579216714*^9, {
   3.5101746725828776`*^9, 3.510174676966485*^9}, {3.510175013256276*^9,
   3.510175033583112*^9}, {3.510179479548568*^9, 3.5101794815609713`*^9},
   3.5114937938350897`*^9, 3.5118063315907135`*^9, 3.514403389122464*^9, {
   3.515197876939445*^9, 3.515197877454246*^9}, {3.516667527508463*^9,
   3.516667530316468*^9}, 3.5168206559764614`*^9, 3.5168238870096397`*^9, {
   3.5170754961429863`*^9, 3.5170754976929884`*^9}, 3.541090455939726*^9,
   3.5410905404538736`*^9, 3.541090590841962*^9, 3.5419780732852306`*^9, {
   3.5454185639623985`*^9, 3.5454185699060087`*^9}, {3.5454912112010565`*^9,
   3.545491211238657*^9}, 3.545503547056638*^9, {3.546040971713232*^9,
   3.546040974403236*^9}, 3.5460412140335712`*^9, {3.5461059984192276`*^9,
   3.54610602269287*^9}, 3.5461060985090036`*^9, {3.5461064995857077`*^9,
   3.546106521441346*^9}, {3.546106583217455*^9, 3.5461066123427057`*^9}, {
   3.546123433421356*^9, 3.546123439781365*^9}, {3.546124340992627*^9,
   3.5461243466526346`*^9}, {3.546198464149596*^9, 3.5461986251198215`*^9},
   3.5461988212900963`*^9, {3.5465477772668095`*^9, 3.546547778817898*^9}, {
   3.54802136787928*^9, 3.5480213739292884`*^9}, {3.548180114403797*^9,
   3.548180116619001*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546198899460205*^9, {3.5461989426102657`*^9,
   3.5461989515502787`*^9}, 3.5463157505256333`*^9, {3.5463169605038404`*^9,
   3.5463169728685474`*^9}, {3.5465678507772727`*^9,
   3.5465679268756256`*^9}, {3.5481794796730824`*^9,
   3.5481794796730824`*^9}, {3.548179914102645*^9, 3.548179914102645*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, 3.544978044730829*^9, {3.5450005108293576`*^9,
   3.545000511047758*^9}, {3.545000719479724*^9, 3.54500072297413*^9}, {
   3.545001302085947*^9, 3.5450013102603617`*^9}, {3.545001740587117*^9,
   3.5450017407743177`*^9}, 3.5454967823371677`*^9, {3.5469088649575768`*^9,
   3.5469088844976034`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5448167308665895`*^9, 3.544816734267395*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{" ",
   RowBox[{
    RowBox[{"z",
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", "/", "z"}]}]]}], "\[Equal]",
    RowBox[{
     FractionBox["b",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", "/", "z"}]}]]], "+",
     FractionBox[
      RowBox[{"a", " ", "z"}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", "/", "z"}]}]]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.508354923854859*^9,
   3.508354923854859*^9}, {3.508361590872611*^9, 3.5083615983626213`*^9}, {
   3.508361640892681*^9, 3.508361643482684*^9}, 3.5108633469910617`*^9, {
   3.5108842882102137`*^9, 3.510884343449911*^9}, {3.5108843749619665`*^9,
   3.510884406786022*^9}, {3.5148563582542953`*^9, 3.5148563625755033`*^9}, {
   3.5448167556862326`*^9, 3.5448167637358465`*^9}, {3.5448249679670563`*^9,
   3.5448249777950735`*^9}, {3.5448266935952873`*^9,
   3.5448267126429205`*^9}, {3.5448431875109177`*^9,
   3.5448432045461483`*^9}, {3.5449343717098455`*^9,
   3.5449343766498528`*^9}, {3.5450011070856047`*^9, 3.545001174555723*^9}, {
   3.5450013741424737`*^9, 3.5450013950777106`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.4982393791815863`*^9, 3.498239383051592*^9}, {
   3.498240152312669*^9, 3.4982401612626815`*^9}, 3.4987612880523596`*^9, {
   3.498761948883285*^9, 3.498761976013323*^9}, {3.5059675026278906`*^9,
   3.50596750349494*^9}, 3.5060116665952845`*^9, 3.506016542053919*^9,
   3.506017498790203*^9, 3.506197187541685*^9, {3.5107904345917826`*^9,
   3.510790434771783*^9}, {3.51079227461636*^9, 3.51079227461636*^9},
   3.510792933471285*^9, {3.5108662797751675`*^9, 3.5108662797751675`*^9}, {
   3.5108678950974293`*^9, 3.5108678976974325`*^9}, {3.510867944407498*^9,
   3.5108679451674995`*^9}, {3.510868054967653*^9, 3.5108680555976534`*^9}, {
   3.5108681105177307`*^9, 3.5108681231277485`*^9}, 3.5108828042789707`*^9, {
   3.5136220690172005`*^9, 3.5136220690172005`*^9}, {3.514225012031127*^9,
   3.514225013247929*^9}, {3.5142251131193047`*^9, 3.514225145832562*^9}, {
   3.514253810168543*^9, 3.514253840658586*^9}, {3.514395770421965*^9,
   3.51439577397197*^9}, {3.5143967942433987`*^9, 3.514396846703472*^9}, {
   3.514396893313537*^9, 3.514396975353652*^9}, {3.514398018354274*^9,
   3.514398031170007*^9}, {3.5148560565081654`*^9, 3.5148560579589677`*^9}, {
   3.515181703282237*^9, 3.515181704171438*^9}, {3.544816954648982*^9,
   3.544816964320999*^9}, 3.5448173779401255`*^9, 3.5448176985362887`*^9,
   3.544818226706416*^9, {3.544933557238705*^9, 3.5449335574387054`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "b"}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"a",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979870210135884`*^9,
   3.497987022604791*^9}, {3.498761170922196*^9, 3.498761170922196*^9}, {
   3.4987623460938416`*^9, 3.498762351773849*^9}, {3.498771763207025*^9,
   3.498771766317029*^9}, {3.499176679905081*^9, 3.4991767019167194`*^9}, {
   3.4991769134450912`*^9, 3.4991769208239045`*^9}, {3.499177089507001*^9,
   3.4991770988514175`*^9}, {3.4991771440134964`*^9, 3.49917724823728*^9}, {
   3.49917733957544*^9, 3.499177343725047*^9}, {3.499177507728135*^9,
   3.4991775227821617`*^9}, {3.4991958536064606`*^9,
   3.4991958550572634`*^9}, {3.4991964253402653`*^9, 3.499196426213866*^9}, {
   3.499220611573718*^9, 3.499220621053732*^9}, {3.499220791953971*^9,
   3.4992208047139883`*^9}, {3.499220842934042*^9, 3.499220858054063*^9}, {
   3.49922124888461*^9, 3.4992212502446127`*^9}, {3.506011634305239*^9,
   3.506011658545273*^9}, {3.506016286753561*^9, 3.506016298583578*^9}, {
   3.506017364036765*^9, 3.506017388996809*^9}, {3.507168650069973*^9,
   3.507168654459979*^9}, {3.5107903473316607`*^9, 3.5107903569216743`*^9},
   3.510791815495717*^9, {3.510791877225804*^9, 3.5107918796458073`*^9}, {
   3.5107919206958647`*^9, 3.5107919361058865`*^9}, {3.5107929340912857`*^9,
   3.51079296574133*^9}, {3.510793049051447*^9, 3.510793057921459*^9}, {
   3.510793103201523*^9, 3.5107931037715235`*^9}, {3.510793310961814*^9,
   3.510793315101819*^9}, 3.5108624550198126`*^9, 3.5108626131100345`*^9, {
   3.510862732070201*^9, 3.5108627625502434`*^9}, {3.510862855050373*^9,
   3.510862862860384*^9}, {3.510863006510585*^9, 3.5108630253906116`*^9}, {
   3.5108654917540646`*^9, 3.510865494574068*^9}, {3.510865542214135*^9,
   3.510865562964164*^9}, {3.510866059424859*^9, 3.5108660839748936`*^9}, {
   3.5108672905565825`*^9, 3.510867342806656*^9}, {3.510867537366928*^9,
   3.51086753861693*^9}, {3.5108677323472013`*^9, 3.5108678210373254`*^9},
   3.5108827919789534`*^9, {3.5108834101002717`*^9, 3.5108834689123745`*^9}, {
   3.510883571264155*^9, 3.5108835715449553`*^9}, {3.5108836880459595`*^9,
   3.510883710182399*^9}, {3.510883778604119*^9, 3.5108838678674755`*^9}, {
   3.5108845596722918`*^9, 3.510884601277564*^9}, {3.5142247663462954`*^9,
   3.5142248021639585`*^9}, {3.514253761668475*^9, 3.514253785538509*^9}, {
   3.514253853498604*^9, 3.514253870598628*^9}, {3.5142539471187353`*^9,
   3.5142540442288713`*^9}, {3.514256942172928*^9, 3.5142569660829616`*^9}, {
   3.5143958129420247`*^9, 3.514395822802038*^9}, {3.5143963480027733`*^9,
   3.514396363392795*^9}, 3.514396471892947*^9, {3.5143965757730923`*^9,
   3.5143965997731256`*^9}, {3.5143966406231833`*^9, 3.514396655623204*^9},
   3.5144003680906715`*^9, {3.515168129674388*^9, 3.5151681310343895`*^9}, {
   3.515181125380422*^9, 3.5151811284848275`*^9}, {3.5448166251296034`*^9,
   3.5448166802757006`*^9}, {3.5448249626942472`*^9,
   3.5448250048923216`*^9}, {3.544843090806348*^9, 3.544843140274035*^9}, {
   3.5448432838722873`*^9, 3.5448432871326933`*^9}, {3.5450007351889515`*^9,
   3.5450007762014236`*^9}, {3.5450013122883654`*^9,
   3.5450013479344277`*^9}, {3.5469088944476175`*^9, 3.5469089037976303`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.4991772959421635`*^9, 3.4991773069401827`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}],
      "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{"a", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.4979870291256027`*^9,
   3.4979870422296257`*^9}, {3.497987678082342*^9, 3.497987689735563*^9}, {
   3.4979879183851643`*^9, 3.4979879218639708`*^9}, 3.497988073511837*^9,
   3.4984970174250083`*^9, {3.4987611709321957`*^9, 3.4987611709321957`*^9}, {
   3.498762437503969*^9, 3.498762476604024*^9}, {3.498762534054104*^9,
   3.4987625544741325`*^9}, {3.4987718156570983`*^9, 3.498771821157106*^9},
   3.499176757172016*^9, 3.499177473610875*^9, {3.499177533998582*^9,
   3.4991775542474174`*^9}, {3.499185447236084*^9, 3.4991854476572847`*^9}, {
   3.4991867525007772`*^9, 3.4991867535459795`*^9}, {3.499221289154667*^9,
   3.4992213232347145`*^9}, 3.5060117270153685`*^9, {3.506011884195589*^9,
   3.506011911555627*^9}, {3.506016315403601*^9, 3.506016334533628*^9}, {
   3.5060164328137655`*^9, 3.5060164512337914`*^9}, {3.506017490787389*^9,
   3.506017520833041*^9}, {3.507169195320736*^9, 3.507169237320795*^9}, {
   3.5107903649416857`*^9, 3.510790414641755*^9}, {3.5107914373131866`*^9,
   3.510791440833192*^9}, {3.5107918503857665`*^9, 3.5107918531657705`*^9}, {
   3.510792015105997*^9, 3.510792064656066*^9}, {3.5107921207661448`*^9,
   3.5107921449961786`*^9}, {3.5107922428463154`*^9,
   3.5107922587363377`*^9}, {3.510792532578723*^9, 3.51079253780873*^9}, {
   3.510792628798857*^9, 3.510792635248866*^9}, {3.5107929359612885`*^9,
   3.5107929415412965`*^9}, {3.5107929894213634`*^9, 3.510793020761407*^9}, {
   3.5107933579518795`*^9, 3.510793360861883*^9}, {3.5107934219719687`*^9,
   3.510793434731987*^9}, {3.5107934832620544`*^9, 3.510793511982095*^9}, {
   3.510799189346859*^9, 3.5107992041968803`*^9}, {3.510799776677682*^9,
   3.510799780597687*^9}, 3.510863075290681*^9, {3.5108631067007256`*^9,
   3.510863112650734*^9}, 3.5108634203511643`*^9, {3.510863486311257*^9,
   3.510863486521257*^9}, {3.510865446524001*^9, 3.5108654554340134`*^9},
   3.5108661348649645`*^9, {3.5108661791050267`*^9, 3.5108661865550375`*^9}, {
   3.510866302065199*^9, 3.5108663079952073`*^9}, {3.510867921877466*^9,
   3.510867937547488*^9}, {3.510867973887539*^9, 3.510868046637641*^9},
   3.5108680905877028`*^9, {3.510868148657784*^9, 3.510868177777825*^9}, {
   3.510882816248987*^9, 3.510882824228998*^9}, {3.5108840906514673`*^9,
   3.5108841599155884`*^9}, {3.5108845736187162`*^9,
   3.5108846146467876`*^9}, {3.510888427388686*^9, 3.5108884743291683`*^9}, {
   3.5108886381918564`*^9, 3.5108886485658746`*^9}, {3.510888678720728*^9,
   3.5108886796255293`*^9}, {3.510888720684801*^9, 3.5108887275800133`*^9}, {
   3.5108888796802807`*^9, 3.510888881021883*^9}, {3.5120885974018*^9,
   3.5120886011318054`*^9}, {3.5120894445570097`*^9, 3.512089448317015*^9}, {
   3.513109116247131*^9, 3.513109181236845*^9}, {3.5131109783852024`*^9,
   3.5131109820668087`*^9}, {3.513111738496537*^9, 3.5131117413357425`*^9},
   3.513112310803943*^9, 3.513116549990039*^9, 3.513116631840153*^9, {
   3.513116674560213*^9, 3.5131166806702213`*^9}, {3.513116760960334*^9,
   3.5131167691403456`*^9}, 3.513122838946004*^9, {3.5131355540184326`*^9,
   3.513135558760841*^9}, {3.5131356301777663`*^9, 3.513135650832203*^9},
   3.5131372241913633`*^9, {3.513139910664424*^9, 3.513139925016449*^9}, {
   3.5131399628933153`*^9, 3.5131399657793207`*^9}, {3.513622089406437*^9,
   3.5136221199356904`*^9}, 3.5142223995725384`*^9, {3.5142249275881786`*^9,
   3.5142249458246107`*^9}, 3.514225230603111*^9, {3.5142290392362003`*^9,
   3.5142290573946323`*^9}, 3.5142538004285297`*^9, {3.5142542521991625`*^9,
   3.5142542532391634`*^9}, {3.514254291249217*^9, 3.5142544290794096`*^9}, {
   3.5142583832749453`*^9, 3.5142584292150097`*^9}, {3.5143958450020695`*^9,
   3.5143958674421005`*^9}, {3.5143960423023453`*^9, 3.514396074522391*^9}, {
   3.514396122022457*^9, 3.5143961313624706`*^9}, {3.5143961632325153`*^9,
   3.5143961760225325`*^9}, {3.5143967449833293`*^9, 3.514396779623378*^9}, {
   3.514396986183667*^9, 3.5143970626537743`*^9}, {3.5143979759968514`*^9,
   3.5143979981801205`*^9}, 3.5143987761166153`*^9, {3.5143990236597743`*^9,
   3.514399032938305*^9}, 3.5143990733486166`*^9, 3.51440091844615*^9,
   3.5144013824526896`*^9, {3.51458952436273*^9, 3.5145895478527627`*^9}, {
   3.5159781843141985`*^9, 3.5159781857806015`*^9}, 3.516821030696986*^9, {
   3.5448169854434366`*^9, 3.5448170351451235`*^9}, {3.54481720966263*^9,
   3.5448172147638392`*^9}, {3.5448172830763593`*^9,
   3.5448173600624943`*^9}, {3.5448175301027927`*^9,
   3.5448175433940163`*^9}, {3.5448250181367445`*^9, 3.5448250354371753`*^9},
   3.544825076886448*^9, {3.5448259031886992`*^9, 3.5448259216903315`*^9},
   3.544826103586651*^9, {3.544843238086207*^9, 3.544843273560669*^9}, {
   3.5448433179583473`*^9, 3.544843325976761*^9}, {3.5449368007252474`*^9,
   3.5449368139852657`*^9}, {3.545000907732855*^9, 3.545000908325656*^9},
   3.5450009587605443`*^9, {3.5450014176509504`*^9, 3.545001444982198*^9}, {
   3.5469089165976486`*^9, 3.5469089278076644`*^9}, {3.546908966747719*^9,
   3.5469089791377363`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, 3.5449770099650764`*^9, 3.5450142181695447`*^9,
   3.5454968189672184`*^9, 3.546191543479907*^9, 3.546196158346368*^9,
   3.5461970146775665`*^9, 3.5461989030302105`*^9, 3.546315763107353*^9, {
   3.546316892807968*^9, 3.546316928423005*^9}, {3.546567831788187*^9,
   3.5465678319561963`*^9}, {3.5469088680175805`*^9, 3.546908868237581*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503684296481346*^9, 3.503684306324963*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083798476097994`*^9,
   3.508434297064023*^9, {3.508463496340228*^9, 3.5084635020810385`*^9},
   3.5084671393946285`*^9, 3.511723015157428*^9, 3.5117235997982464`*^9, {
   3.5117236451883097`*^9, 3.5117236476883135`*^9}, {3.5133774503128047`*^9,
   3.513377451182806*^9}, {3.514598989547829*^9, 3.5145989900378304`*^9}, {
   3.514861911086027*^9, 3.514861912006028*^9}, {3.5151814989842777`*^9,
   3.515181499561479*^9}, {3.5449818989532714`*^9, 3.5449818995832725`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"(",
       RowBox[{"a", "-", "b"}], ")"}]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"b",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"1", "+",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9,
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9,
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9,
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9,
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9},
   3.503766096195198*^9, {3.5037661877253265`*^9, 3.5037662215753736`*^9}, {
   3.5037934245846434`*^9, 3.50379345749469*^9}, {3.5037935423448086`*^9,
   3.503793545024812*^9}, 3.5037936152649107`*^9, {3.50379430075587*^9,
   3.503794334785918*^9}, 3.50379511440884*^9, {3.5077498602365513`*^9,
   3.50774986646656*^9}, {3.5083772829662085`*^9, 3.5083772943262243`*^9}, {
   3.5083773590963154`*^9, 3.508377372616334*^9}, {3.508388786478467*^9,
   3.5083887924376774`*^9}, {3.5084372823782024`*^9, 3.508437284128205*^9}, {
   3.5098474132988267`*^9, 3.5098474148488293`*^9}, {3.511723750078457*^9,
   3.5117237507984576`*^9}, {3.5117238134785457`*^9,
   3.5117238319685717`*^9}, {3.5151679489341345`*^9, 3.5151679561841445`*^9},
   3.515977843876402*^9, 3.544973769195657*^9, 3.544977025258951*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.503793631084933*^9, 3.503793632574935*^9}, {
   3.5037944216260395`*^9, 3.5037944225760407`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a", "-", "b"}], ")"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", "\n", "  ",
    RowBox[{"b", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9,
   3.5036056404067173`*^9}, {3.5036056742667646`*^9,
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9},
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9,
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9,
   3.5037659012749257`*^9}, {3.503766302475487*^9, 3.50376632618552*^9}, {
   3.503766402395627*^9, 3.503766407875635*^9}, {3.503770024751327*^9,
   3.50377002685133*^9}, {3.503794417466034*^9, 3.503794451276081*^9},
   3.503795118059246*^9, {3.50835146720002*^9, 3.5083514771000333`*^9}, {
   3.508351568700162*^9, 3.5083515849901843`*^9}, {3.5083773160962553`*^9,
   3.508377338276286*^9}, {3.508377434756421*^9, 3.5083774377764254`*^9}, {
   3.508377494506505*^9, 3.5083774993365116`*^9}, {3.508388797211286*^9,
   3.508388807647704*^9}, {3.5083889395927362`*^9, 3.508388945255546*^9}, {
   3.508437284598205*^9, 3.5084372861482077`*^9}, {3.50984741543883*^9,
   3.509847417008832*^9}, 3.5117167391086416`*^9, {3.511719388862351*^9,
   3.511719391572355*^9}, {3.511719766062879*^9, 3.5117197816929007`*^9}, {
   3.5117198420629854`*^9, 3.511719872013027*^9}, 3.511723615988269*^9, {
   3.5117238934486575`*^9, 3.511723958258748*^9}, {3.5449824999741125`*^9,
   3.544982514604133*^9}, {3.5449830718349133`*^9, 3.544983077874922*^9}, {
   3.544983460725458*^9, 3.5449834622754602`*^9}, {3.5461249080334206`*^9,
   3.546124908043421*^9}, {3.5461249493134785`*^9, 3.5461249493234787`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, {3.5449769810684233`*^9, 3.5449769847296333`*^9},
   3.5449773151485076`*^9, 3.5449784760774918`*^9, 3.5449785354905243`*^9, {
   3.545014440064335*^9, 3.545014440298335*^9}, {3.5450859891530027`*^9,
   3.5450859893130026`*^9}, {3.5451010225880623`*^9, 3.5451010229880624`*^9},
   3.5454968216372223`*^9, 3.546054953842778*^9, 3.5461915458499107`*^9,
   3.546196161436372*^9, 3.5461970200775743`*^9, 3.546198905010213*^9, {
   3.5461989564702854`*^9, 3.5461989566802855`*^9}, 3.546315764232417*^9,
   3.5465320888145103`*^9, 3.5465480528324113`*^9, {3.546908869517583*^9,
   3.5469088697075825`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503684296481346*^9, 3.503684306324963*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083798476097994`*^9,
   3.508434297064023*^9, {3.508463496340228*^9, 3.5084635020810385`*^9}, {
   3.508466829578085*^9, 3.508466836114496*^9}, 3.5084671368362246`*^9, {
   3.5117237254084225`*^9, 3.511723726168423*^9}, {3.5133775399629307`*^9,
   3.513377540682931*^9}, {3.51459917589809*^9, 3.5145991784580936`*^9}, {
   3.5148619392560663`*^9, 3.5148619394860663`*^9}, {3.515181548202365*^9,
   3.515181548561165*^9}, {3.5449819187832994`*^9, 3.5449819194233*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"(",
       RowBox[{"a", "+", "b"}], ")"}]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " "}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"a",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"1", "-",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}],
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"3", "/", "2"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, {3.5076127763984814`*^9,
   3.5076128071242385`*^9}, 3.5076130465769343`*^9, {3.5083732519879675`*^9,
   3.5083732907384357`*^9}, 3.5083733452137313`*^9, {3.5083886663894563`*^9,
   3.508388682363884*^9}, {3.5084632355077705`*^9, 3.508463294569474*^9}, {
   3.5084635215498724`*^9, 3.508463523468676*^9}, {3.50846671873989*^9,
   3.508466774010787*^9}, {3.5084668971106033`*^9, 3.5084669030698137`*^9}, {
   3.508608530371062*^9, 3.508608532211865*^9}, {3.5098474186688347`*^9,
   3.509847419928836*^9}, {3.515167975914172*^9, 3.5151679775641747`*^9},
   3.5159778756036577`*^9, 3.5449785276329136`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}], "/",
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(",
      RowBox[{"a", "+", "b"}], ")"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{"a", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "-",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "^",
           RowBox[{"(",
            RowBox[{"3", "/", "2"}], ")"}]}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", " ", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9},
   3.5076128775622673`*^9, {3.507612916492494*^9, 3.507612944323086*^9}, {
   3.5076130584166117`*^9, 3.5076130663340645`*^9}, {3.5083733592381554`*^9,
   3.5083733848066006`*^9}, {3.5083734610595345`*^9, 3.5083734653963423`*^9},
   3.5083735959685717`*^9, {3.508388698572313*^9, 3.5083887255447598`*^9}, {
   3.5084633423367577`*^9, 3.5084633483427687`*^9}, 3.5084634258281045`*^9, {
   3.508463468104179*^9, 3.5084634690089808`*^9}, {3.508467014079609*^9,
   3.508467066776501*^9}, {3.5086085329450665`*^9, 3.508608534676669*^9}, {
   3.509847420368837*^9, 3.509847421918839*^9}, {3.544982586594234*^9,
   3.544982604244259*^9}, {3.5449831560750313`*^9, 3.544983160885038*^9}, {
   3.5449839531061473`*^9, 3.544983954536149*^9}, {3.546124908093421*^9,
   3.5461249081034207`*^9}, {3.5461249493734784`*^9, 3.546124949383478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174445512323`*^9, 3.5454174445512323`*^9},
   3.545417525952175*^9, {3.54541811488441*^9, 3.545418115914011*^9}, {
   3.545418536911951*^9, 3.545418536911951*^9}, {3.5454186415257344`*^9,
   3.5454186415257344`*^9}, 3.5454968502272625`*^9, {3.5461230516308217`*^9,
   3.5461230516408215`*^9}, {3.546123139980945*^9, 3.546123140910947*^9},
   3.546124119732317*^9, {3.5461243532826443`*^9, 3.5461243705426683`*^9},
   3.546197866448759*^9, {3.5461988074000764`*^9, 3.5461988081600776`*^9}, {
   3.5461988721501675`*^9, 3.5461988721501675`*^9}, 3.546198907190216*^9, {
   3.546198958380288*^9, 3.546198958560288*^9}, 3.546315765349481*^9, {
   3.5465349238184795`*^9, 3.5465349238184795`*^9}, {3.5465500118950624`*^9,
   3.546550013335064*^9}, {3.5465504297056475`*^9, 3.5465504306756487`*^9}, {
   3.5465509702464037`*^9, 3.5465509702464037`*^9}, {3.5465678345083427`*^9,
   3.5465678346383495`*^9}, {3.546908870977585*^9, 3.546908871147585*^9}, {
   3.548179553242811*^9, 3.548179553242811*^9}, {3.5481799148670464`*^9,
   3.5481799148670464`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "4",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5026792929744606`*^9, 3.5026792977144675`*^9}, {
   3.502987649060487*^9, 3.502987649653288*^9}, 3.5053450875344086`*^9,
   3.512064374922558*^9}],

Cell[TextData[{
 "Derivation: Recurrence ",
 "5",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017234466769753`*^9, {3.502998242234921*^9, 3.5029982849849806`*^9}, {
   3.5029987946456947`*^9, 3.502998794965695*^9}, {3.5029988485857697`*^9,
   3.502998856295781*^9}, 3.5053451043744326`*^9, 3.5120643187924795`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027678067396016`*^9,
   3.5027678067396016`*^9}, {3.5029877379026427`*^9,
   3.5029877392286453`*^9}, {3.502998711525578*^9, 3.502998721425592*^9}, {
   3.504244649795737*^9, 3.5042446511057386`*^9}, {3.5044149421133146`*^9,
   3.504414942543315*^9}, {3.5048377642897224`*^9, 3.5048377642897224`*^9}, {
   3.5048378025997763`*^9, 3.504837813959792*^9}, {3.504995494340459*^9,
   3.5049954968304625`*^9}, {3.5049955276005054`*^9,
   3.5049955358505173`*^9}, {3.5049955747305717`*^9, 3.5049955814505806`*^9},
   3.5098231025745106`*^9, {3.51017452600502*^9, 3.51017452600502*^9}, {
   3.510179749522642*^9, 3.510179750053043*^9}, {3.5117202664735794`*^9,
   3.5117202664735794`*^9}, {3.515197986013636*^9, 3.5151979937044497`*^9}, {
   3.5151980424545355`*^9, 3.51519804516894*^9}, {3.5454171968695974`*^9,
   3.5454171968695974`*^9}, {3.54541852518073*^9, 3.5454185291275373`*^9}, {
   3.54541863324212*^9, 3.5454186374541273`*^9}, {3.545430139865235*^9,
   3.545430140385236*^9}, {3.5461230516908216`*^9, 3.546123051700822*^9}, {
   3.54612314339095*^9, 3.546123144310951*^9}, {3.546124376362676*^9,
   3.546124379782681*^9}, {3.546198811080082*^9, 3.546198811840083*^9}, {
   3.546550016885069*^9, 3.5465500184150715`*^9}, {3.546550960956391*^9,
   3.546550965456397*^9}, {3.548179556331617*^9, 3.548179556331617*^9}, {
   3.548179915803048*^9, 3.548179915803048*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SqrtBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"2",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "+", "1"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "b"}], "+",
         RowBox[{"2", "a", " ",
          RowBox[{"(",
           RowBox[{"m", "+", "2"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "5"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095542513719344`*^9, 3.509554323542035*^9}, {3.509823152934581*^9,
   3.509823211784663*^9}, {3.510174743141802*^9, 3.510174746589408*^9}, {
   3.5101754311810102`*^9, 3.510175452443847*^9}, {3.5151682596745696`*^9,
   3.5151682619145727`*^9}, {3.546123051740822*^9, 3.5461230517708216`*^9}, {
   3.5461236664816823`*^9, 3.5461236859317093`*^9}, {3.5461239589320917`*^9,
   3.5461239649321003`*^9}, {3.5461243601126537`*^9, 3.546124362422657*^9}, {
   3.5461978687987623`*^9, 3.5461978959288006`*^9}, {3.546198675739892*^9,
   3.5461987159999485`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"-", "b"}], "+",
            RowBox[{"2", "*", "a", "*",
             RowBox[{"(",
              RowBox[{"m", "+", "1", "+", "1"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "5"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "\[LessEqual]",
     RowBox[{"-", "2"}]}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, {3.5095542554019403`*^9,
   3.5095542862019835`*^9}, {3.509554360482087*^9, 3.509554381662117*^9},
   3.509554414102162*^9, 3.509823132964553*^9, 3.509823338674841*^9, {
   3.5098337678362017`*^9, 3.509833771299408*^9}, 3.5101745651298885`*^9, {
   3.5101747488670115`*^9, 3.510174751581416*^9}, {3.5101754587150583`*^9,
   3.510175486982308*^9}, 3.5101797555598526`*^9, {3.510590889936245*^9,
   3.5105908939662504`*^9}, 3.5105926008786464`*^9, {3.5107845017059927`*^9,
   3.5107845051067986`*^9}, {3.510800783319091*^9, 3.5108008143491344`*^9}, {
   3.5109411534950943`*^9, 3.510941162525107*^9}, 3.5117475145860443`*^9,
   3.5118070276116877`*^9, 3.513440883486933*^9, 3.5144041602025676`*^9,
   3.5144043185446243`*^9, 3.5144050825383224`*^9, {3.51519800534207*^9,
   3.515198028352111*^9}, {3.5166676274266386`*^9, 3.516667648330675*^9},
   3.5168206561564617`*^9, 3.5168238870486417`*^9, 3.517075505753*^9, {
   3.517075855023489*^9, 3.5170758837435293`*^9}, 3.5410904673433456`*^9, {
   3.541090554993099*^9, 3.5410905740563326`*^9}, {3.5419781293353095`*^9,
   3.541978146295333*^9}, {3.545418542730761*^9, 3.5454185494075727`*^9}, {
   3.5454186249585056`*^9, 3.5454186272049093`*^9}, {3.5454912112586565`*^9,
   3.5454912112886567`*^9}, 3.5455035504366426`*^9, {3.5460409827032475`*^9,
   3.5460409850632505`*^9}, 3.5460412238635855`*^9, {3.5461059984504275`*^9,
   3.5461060227396708`*^9}, 3.5461060985402036`*^9, {3.546106499616908*^9,
   3.5461065214725466`*^9}, {3.546106583279855*^9, 3.5461066309691386`*^9},
   3.5461234447913723`*^9, {3.546198485279626*^9, 3.546198514159666*^9}, {
   3.546198607469796*^9, 3.5461986101798005`*^9}, {3.546198743729987*^9,
   3.5461988183600917`*^9}, 3.5462068749665613`*^9, {3.5465500064750547`*^9,
   3.5465500083050575`*^9}, {3.546550973876409*^9, 3.5465509758464117`*^9}, {
   3.5480216219796357`*^9, 3.548021627279643*^9}, {3.5481801542774673`*^9,
   3.5481801563990707`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551166430063`*^9,
   3.5460551228030148`*^9}, 3.546191551409918*^9, {3.546191590889973*^9,
   3.5461915910799737`*^9}, {3.5461962048464327`*^9, 3.546196220606455*^9},
   3.54620081712289*^9, {3.5462008964430013`*^9, 3.5462008966830015`*^9}, {
   3.5462062409156733`*^9, 3.5462062411656737`*^9}, 3.546315239389398*^9, {
   3.546563247993906*^9, 3.546563260743924*^9}, 3.546575719155547*^9, {
   3.5465759110858154`*^9, 3.5465759412258577`*^9}, {3.5481793410712385`*^9,
   3.5481793410712385`*^9}, {3.548179483214288*^9, 3.548179483214288*^9}, {
   3.5481799167702494`*^9, 3.5481799167702494`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417461227661*^9, 3.545417461227661*^9},
   3.5454175187137623`*^9, 3.545418106085994*^9, {3.5454184488029957`*^9,
   3.545418451548601*^9}, 3.5454968468872576`*^9, {3.546123051080821*^9,
   3.546123051090821*^9}, 3.5461241066122985`*^9, {3.5461242666225224`*^9,
   3.546124267662524*^9}, {3.546196903617411*^9, 3.546196908817418*^9},
   3.546197134877735*^9, 3.5462072234970493`*^9, {3.5462072535870914`*^9,
   3.5462072544770927`*^9}, 3.546315780735361*^9, {3.5465341886474495`*^9,
   3.5465341886474495`*^9}, 3.5465757101555343`*^9, {3.5465759561058784`*^9,
   3.5465759561058784`*^9}, {3.54657599271593*^9, 3.5465759995559397`*^9}, {
   3.54817934175764*^9, 3.54817934175764*^9}, {3.548179568889639*^9,
   3.548179568889639*^9}, {3.5481799175346513`*^9, 3.5481799175346513`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "3",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.5029913263881474`*^9, 3.502991354483797*^9},
   3.5053451232644587`*^9, 3.512064364952544*^9, {3.545433489979925*^9,
   3.5454334903999257`*^9}, {3.548010184620529*^9, 3.548010185610531*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4993685152127995`*^9, 3.499368525272814*^9}, {3.5003196739046497`*^9,
   3.5003196775646553`*^9}, {3.5004320218638687`*^9,
   3.5004320229179287`*^9}, {3.5026773276717095`*^9,
   3.5026773598217545`*^9}, {3.5027672801246758`*^9,
   3.5027672801246758`*^9}, {3.502768130767771*^9, 3.5027681579118185`*^9}, {
   3.5027753310736456`*^9, 3.5027753310736456`*^9}, {3.502991383655848*^9,
   3.50299138473225*^9}, {3.502991707559217*^9, 3.5029917094936204`*^9}, {
   3.5030207060612226`*^9, 3.5030207060612226`*^9}, {3.503551944574388*^9,
   3.503551944574388*^9}, {3.50355356026665*^9, 3.503553566106658*^9}, {
   3.504244004574834*^9, 3.5042440069048367`*^9}, 3.504414741133033*^9,
   3.504896654124844*^9, {3.50490022089384*^9, 3.5049002220738416`*^9}, {
   3.50498910951152*^9, 3.5049891106915216`*^9}, {3.5049892920217752`*^9,
   3.5049893083417983`*^9}, {3.5049937788480573`*^9,
   3.5049937901080728`*^9}, {3.504995426630364*^9, 3.504995426630364*^9}, {
   3.505193560047264*^9, 3.5051935618823695`*^9}, 3.5098260227888784`*^9, {
   3.510174514944601*^9, 3.510174514944601*^9}, {3.5101795807771454`*^9,
   3.5101795897159615`*^9}, {3.511720246153551*^9, 3.511720246153551*^9}, {
   3.5454171878995814`*^9, 3.5454171878995814`*^9}, {3.5454184598322153`*^9,
   3.5454184598322153`*^9}, {3.5454301343552275`*^9,
   3.5454301349752283`*^9}, {3.5461230511408205`*^9, 3.546123051160821*^9}, {
   3.546124270712528*^9, 3.54612427170253*^9}, {3.5461969115574226`*^9,
   3.5461969122174234`*^9}, {3.5465760253759756`*^9,
   3.5465760253759756`*^9}, {3.548179344035244*^9, 3.548179344035244*^9}, {
   3.5481795714168434`*^9, 3.548179571432443*^9}, {3.5481799186890535`*^9,
   3.5481799186890535`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"3", "/", "2"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2", "b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}], "m"],
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "m"}], "+", "3"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"2", "m"}], "+", "3"}]], " ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "-", "1"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"2", "a", " ", "b", " ", "m"}], "+",
         RowBox[{
          RowBox[{"(",
           RowBox[{
            RowBox[{
             RowBox[{"(",
              RowBox[{
               SuperscriptBox["a", "2"], "+",
               SuperscriptBox["b", "2"]}], ")"}], " ",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "m"}], "+", "3"}], ")"}]}], "-",
            RowBox[{"2",
             SuperscriptBox["b", "2"]}]}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"2", "a", " ", "b", " ",
          RowBox[{"(",
           RowBox[{"m", "+", "2"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.509826148849055*^9, 3.50982648101952*^9}, {3.50982653116959*^9,
   3.509826604149692*^9}, {3.5101747057641363`*^9, 3.510174708665741*^9}, {
   3.510175116325657*^9, 3.5101751335636873`*^9}, {3.515168237154538*^9,
   3.515168239564541*^9}, {3.546123051200821*^9, 3.546123051240821*^9}, {
   3.546123577531558*^9, 3.546123597521586*^9}, {3.546123905452017*^9,
   3.5461239193120365`*^9}, {3.5461242844325476`*^9, 3.546124288122553*^9},
   3.54619630297657*^9, {3.546196338036619*^9, 3.546196414266726*^9}, {
   3.546196453436781*^9, 3.546196477006814*^9}, 3.5461965605569305`*^9,
   3.5461967360571766`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5003184730429688`*^9, 3.50031848112298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*", "b", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "+", "3"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"2", "*", "m"}], "+", "3"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "1"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"2", "*", "a", "*", "b", "*", "m"}], "+",
            RowBox[{
             RowBox[{"(",
              RowBox[{
               RowBox[{
                RowBox[{"(",
                 RowBox[{
                  RowBox[{"a", "^", "2"}], "+",
                  RowBox[{"b", "^", "2"}]}], ")"}], "*",
                RowBox[{"(",
                 RowBox[{
                  RowBox[{"2", "*", "m"}], "+", "3"}], ")"}]}], "-",
               RowBox[{"2", "*",
                RowBox[{"b", "^", "2"}]}]}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"2", "*", "a", "*", "b", "*",
             RowBox[{"(",
              RowBox[{"m", "+", "2"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "0"}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, {3.4993575889901257`*^9,
   3.4993576670838633`*^9}, {3.499365544950614*^9, 3.4993655661406436`*^9}, {
   3.4993657073008413`*^9, 3.499365707870842*^9}, 3.4993699181547637`*^9, {
   3.5003179803689146`*^9, 3.500317981117716*^9}, {3.5003185042030125`*^9,
   3.5003185122330236`*^9}, {3.500319341644185*^9, 3.500319361824213*^9}, {
   3.5003214645171566`*^9, 3.500321470987166*^9}, {3.500432015647513*^9,
   3.5004320167615767`*^9}, {3.501043209599528*^9, 3.5010432350499835`*^9},
   3.5026771020013933`*^9, {3.502677180841504*^9, 3.5026772181615562`*^9}, {
   3.502677352241744*^9, 3.5026773539717464`*^9}, 3.5027670707255077`*^9, {
   3.503071968728242*^9, 3.503071977848255*^9}, 3.5038761956487827`*^9, {
   3.5040290099495783`*^9, 3.504029011478381*^9}, {3.5041565286043806`*^9,
   3.504156530008383*^9}, {3.5042865784817295`*^9, 3.5042866008017607`*^9}, {
   3.5042870585024014`*^9, 3.5042870681924148`*^9}, {3.504287484912998*^9,
   3.504287490763006*^9}, {3.5042940452901697`*^9, 3.5042940507501793`*^9},
   3.5042956788330393`*^9, {3.504296854565608*^9, 3.5042968614056177`*^9}, {
   3.505100941436471*^9, 3.505100953336488*^9}, {3.505101028776593*^9,
   3.5051010300865946`*^9}, 3.505344641403784*^9, {3.5053446931238565`*^9,
   3.5053447150138874`*^9}, 3.5053535519652023`*^9, 3.509472213767294*^9,
   3.509472341770615*^9, {3.5094725099262333`*^9, 3.5094725194427776`*^9},
   3.50947329995942*^9, {3.5094751389386044`*^9, 3.5094751435978703`*^9}, {
   3.509826061318932*^9, 3.5098261037389917`*^9}, 3.5098267121198435`*^9, {
   3.5098337393505516`*^9, 3.50983374409296*^9}, 3.5101745729299026`*^9, {
   3.5101747106937447`*^9, 3.5101747135329494`*^9}, {3.510175139569698*^9,
   3.5101751667917457`*^9}, {3.510175341886453*^9, 3.510175344070457*^9}, {
   3.510179601915183*^9, 3.5101796398232493`*^9}, 3.5101796802273207`*^9,
   3.5114942843657765`*^9, 3.5118064939309406`*^9, 3.514403928551318*^9, {
   3.5151978718226357`*^9, 3.515197872384237*^9}, {3.516667559628919*^9,
   3.5166675632793255`*^9}, {3.5166819799245424`*^9, 3.5166819808945436`*^9},
   3.5168206560464616`*^9, 3.51682388702464*^9, {3.51683771019328*^9,
   3.5168377122503977`*^9}, 3.516837745038274*^9, 3.517075503132996*^9,
   3.517075759393355*^9, 3.541090461337335*^9, 3.541090545180682*^9,
   3.541090584367951*^9, 3.541978285985529*^9, {3.5454912110810566`*^9,
   3.5454912111210566`*^9}, 3.5455035432666326`*^9, {3.5460409356931815`*^9,
   3.546040938693186*^9}, 3.5460411974935484`*^9, {3.5461059983568277`*^9,
   3.54610602259927*^9}, 3.546106098462203*^9, {3.546106499538908*^9,
   3.5461065213945465`*^9}, {3.5461065830458546`*^9, 3.5461066122647057`*^9},
   {3.546123404831316*^9, 3.546123422521341*^9}, {3.5461242959225636`*^9,
   3.5461243064625783`*^9}, {3.546124568632945*^9, 3.546124570642948*^9}, {
   3.546135065442835*^9, 3.5461350729932485`*^9}, {3.546196306276575*^9,
   3.5461963165665894`*^9}, {3.5461967665472193`*^9, 3.5461968494473352`*^9},
   3.54619744556817*^9, 3.5461988333801126`*^9, {3.5465760153459616`*^9,
   3.5465760175659647`*^9}, {3.548021710119759*^9, 3.5480217166697683`*^9},
   3.5481793886637225`*^9, {3.548180183511918*^9, 3.548180185165521*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.5461970908076735`*^9, {3.546197485768226*^9,
   3.5461974859782267`*^9}, {3.5462072497770863`*^9, 3.5462072497770863`*^9},
   3.546315781772421*^9, {3.546563296633974*^9, 3.5465633013839808`*^9},
   3.546575711295536*^9, {3.5465760410759974`*^9, 3.5465760410759974`*^9}, {
   3.548179576564852*^9, 3.548179576564852*^9}, {3.5481799211226573`*^9,
   3.5481799211226573`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.5449788142409177`*^9, 3.5449788210485277`*^9},
   3.544978906681848*^9, {3.545005139240287*^9, 3.545005139911088*^9}, {
   3.5450054955605125`*^9, 3.545005504312128*^9}, 3.545005561626629*^9, {
   3.545066438471629*^9, 3.5450664386116295`*^9}, {3.5450708498378053`*^9,
   3.5450708499478054`*^9}, {3.545086986414399*^9, 3.545086988164401*^9}, {
   3.5454268637731485`*^9, 3.545426882173174*^9}, {3.5454278009019604`*^9,
   3.545427806851969*^9}, 3.545496787147174*^9, {3.546909778308855*^9,
   3.546909779398856*^9}, {3.546909814948906*^9, 3.546909819078912*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5017301202763004`*^9,
   3.501730120603901*^9}, {3.501730162162374*^9, 3.5017301694943867`*^9}, {
   3.501730682335688*^9, 3.501730694191709*^9}, {3.501730983011017*^9,
   3.501731011652667*^9}, {3.5017312520178895`*^9, 3.501731277820335*^9}, {
   3.5017313805309153`*^9, 3.5017313819349174`*^9}, {3.501732216760784*^9,
   3.5017322266044016`*^9}, {3.501732477218842*^9, 3.501732508434497*^9}, {
   3.501732542832557*^9, 3.501732562925392*^9}, {3.5017328634443207`*^9,
   3.5017328811347513`*^9}, {3.5017331736456656`*^9, 3.501733192084898*^9}, {
   3.5037071786357527`*^9, 3.5037071821457577`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}], "z"], "\[Equal]",
   RowBox[{"b", "+",
    FractionBox[
     RowBox[{"a", " "}], "z"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, {3.497921629815009*^9, 3.497921629815009*^9}, {
   3.49792329284033*^9, 3.4979232943847327`*^9}, {3.500665574114345*^9,
   3.500665579084352*^9}, {3.5037057947638154`*^9, 3.5037058112138386`*^9}, {
   3.5037060418141613`*^9, 3.5037060779242115`*^9}, 3.5037071432757034`*^9, {
   3.5037093357487726`*^9, 3.5037093589888053`*^9}, 3.508379494439305*^9, {
   3.508379545189376*^9, 3.508379579079423*^9}, {3.5454279721921997`*^9,
   3.54542810792239*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.508379709069605*^9,
   3.508434285164006*^9, 3.513377438952789*^9, 3.5145989720378046`*^9,
   3.514861840885928*^9, 3.51518144892379*^9, {3.544981925013308*^9,
   3.5449819254733086`*^9}, {3.545428147292445*^9, 3.545428147292445*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "b"}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"a",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, {3.5006637227717533`*^9,
   3.5006637494417906`*^9}, {3.500663932532047*^9, 3.5006639393020563`*^9}, {
   3.5006643002125616`*^9, 3.5006643280526004`*^9}, 3.503706090074229*^9, {
   3.503706145154306*^9, 3.5037061511543145`*^9}, {3.503706990075489*^9,
   3.5037070229855347`*^9}, 3.5037075942263346`*^9, 3.503707785076602*^9, {
   3.503709231438627*^9, 3.503709234438631*^9}, {3.5037092810886965`*^9,
   3.5037092905987096`*^9}, {3.508379103238757*^9, 3.508379107788763*^9}, {
   3.508379329799074*^9, 3.508379374709137*^9}, {3.508379409729186*^9,
   3.5083794292692137`*^9}, {3.50843717329805*^9, 3.5084371742480507`*^9}, {
   3.5098474046188145`*^9, 3.5098474057688165`*^9}, {3.5151678854140453`*^9,
   3.5151678906040525`*^9}, {3.5454278903320856`*^9,
   3.5454279197121267`*^9}, {3.546909830448928*^9, 3.5469098509889565`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{"sin", "[",
      RowBox[{"c_.", "+",
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"b", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], ",", "x"}], "]"}]}],
    " ", "+", " ",
    RowBox[{"a", "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9},
   3.5006637724018226`*^9, 3.500663837491914*^9, {3.5006639475420675`*^9,
   3.5006639508120728`*^9}, {3.500664419972729*^9, 3.5006644393127565`*^9}, {
   3.5035339753347754`*^9, 3.5035339845647883`*^9}, {3.5037062012943845`*^9,
   3.503706235094432*^9}, 3.503706302204526*^9, {3.503706415274684*^9,
   3.503706444224725*^9}, {3.5037065927949324`*^9, 3.503706593814934*^9}, {
   3.5037071976757793`*^9, 3.503707206025791*^9}, 3.5037072620958695`*^9, {
   3.503709379408834*^9, 3.5037094036788683`*^9}, {3.504996643812068*^9,
   3.504996647622073*^9}, {3.504997186592828*^9, 3.504997190122833*^9}, {
   3.5083796089694653`*^9, 3.5083796272194905`*^9}, {3.5083796889695773`*^9,
   3.5083797178396177`*^9}, {3.508437175078052*^9, 3.508437175928053*^9}, {
   3.509847406278817*^9, 3.509847407538819*^9}, {3.5449826082742643`*^9,
   3.544982615894275*^9}, {3.5449831720750537`*^9, 3.544983174335057*^9}, {
   3.544984020756242*^9, 3.544984022116244*^9}, {3.5454281823224945`*^9,
   3.545428189242504*^9}, {3.545428228042558*^9, 3.545428241672577*^9},
   3.5454959708560314`*^9, {3.546909866758979*^9, 3.5469098939490166`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, {3.5449769810684233`*^9, 3.5449769847296333`*^9},
   3.5449773151485076`*^9, 3.5450781467080207`*^9, 3.5454968247672267`*^9,
   3.5461915525499196`*^9, 3.5461962066564355`*^9, 3.546197122287717*^9,
   3.5463157863226805`*^9, 3.5465759193558273`*^9, {3.546909782828861*^9,
   3.5469097830988617`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.503710341632182*^9, 3.503710345182187*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.507750824167901*^9, 3.508375367273527*^9, 3.5084343099640408`*^9, {
   3.5086309231802874`*^9, 3.508630923819888*^9}, {3.513377566082967*^9,
   3.513377566802968*^9}, {3.5145991981281214`*^9, 3.5145991983781214`*^9}, {
   3.5148619604260955`*^9, 3.514861960756096*^9}, {3.515181579324419*^9,
   3.51518157982362*^9}, {3.5449819039832783`*^9, 3.5449819047932796`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"3", "a", " ", "b"}], "2"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1", "2"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"a", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", " ", "a"}], "-",
          RowBox[{"3", " ", "b"}]}], ")"}]}], "+",
       RowBox[{"a", " ", "b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
       RowBox[{"2", " ",
        SuperscriptBox["b", "2"], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]], " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, 3.507752208297844*^9, {
   3.507752635308442*^9, 3.5077526707584915`*^9}, {3.5086277563635235`*^9,
   3.5086278002464*^9}, 3.5086278352060614`*^9, {3.50865434859033*^9,
   3.508654351190334*^9}, {3.5098474358488584`*^9, 3.509847437898861*^9}, {
   3.515167997344202*^9, 3.5151679997742057`*^9}, 3.5159780039826827`*^9,
   3.544977242166333*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"3", "*", "a", "*",
     RowBox[{"b", "/", "2"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/", "2"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "*",
           RowBox[{"(",
            RowBox[{
             RowBox[{"2", "*", "a"}], "-",
             RowBox[{"3", "*", "b"}]}], ")"}]}], "+",
          RowBox[{"a", "*", "b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
          RowBox[{"2", "*",
           RowBox[{"b", "^", "2"}], "*",
           RowBox[{
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9}, {
   3.507612961088045*^9, 3.5076129665543575`*^9}, {3.507752818138698*^9,
   3.5077528465987377`*^9}, 3.508627943751052*^9, {3.5086543517303343`*^9,
   3.5086543537903376`*^9}, {3.5098474385988626`*^9, 3.509847440528865*^9}, {
   3.515978038895544*^9, 3.515978040049946*^9}, {3.5449825575841937`*^9,
   3.5449825668642063`*^9}, {3.544983101204954*^9, 3.544983108764965*^9}, {
   3.5449835617455993`*^9, 3.5449835655856047`*^9}, {3.546124908213421*^9,
   3.546124908223421*^9}, {3.546124949493479*^9, 3.5461249495034785`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.5449790216656103`*^9, {3.5450145631641507`*^9,
   3.545014563382551*^9}, {3.5450782620681825`*^9, 3.5450782622681828`*^9}, {
   3.545085317262062*^9, 3.5450853174620624`*^9}, {3.5451011335382175`*^9,
   3.5451011343782187`*^9}, 3.5454968266172295`*^9, {3.5460551352930317`*^9,
   3.5460551371130342`*^9}, 3.546191553679921*^9, 3.546196207986437*^9,
   3.546197124927721*^9, 3.5463157872987366`*^9, 3.546575920185828*^9, {
   3.546909784828864*^9, 3.5469097850088644`*^9}, {3.548196213419607*^9,
   3.5481962137096243`*^9}, {3.5481970133452396`*^9, 3.548197013476247*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.503710341632182*^9, 3.503710345182187*^9}}],

Cell[TextData[{
 "Note: Although not essential, this rule produces a simpler antiderivative \
than the rule for integrating ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
    RowBox[{"3", "/", "2"}]]}]]],
 " when ",
 Cell[BoxData[
  RowBox[{"m", "\[LessEqual]",
   RowBox[{"-", "2"}]}]]],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.507750824167901*^9, 3.5077528900087986`*^9, 3.50838036953053*^9,
   3.508434321304057*^9, 3.5086305544892397`*^9, 3.508630953600341*^9,
   3.51172198842599*^9, {3.5133775804029865`*^9, 3.5133775811229877`*^9}, {
   3.5145992142681437`*^9, 3.5145992145981445`*^9}, {3.514861974126115*^9,
   3.514861974426115*^9}, {3.5151815937388444`*^9, 3.515181593972845*^9}, {
   3.5449819305933156`*^9, 3.544981931213317*^9}, {3.548202582944256*^9,
   3.548202605834288*^9}, {3.548202640144336*^9, 3.548202707614431*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.507750824167901*^9, 3.5077528900087986`*^9, 3.50838036953053*^9,
   3.508434321304057*^9, 3.5086305544892397`*^9, 3.508630953600341*^9,
   3.51172198842599*^9, {3.5133775804029865`*^9, 3.5133775811229877`*^9}, {
   3.5145992142681437`*^9, 3.5145992145981445`*^9}, {3.514861974126115*^9,
   3.514861974426115*^9}, {3.5151815937388444`*^9, 3.515181593972845*^9}, {
   3.5449819305933156`*^9, 3.544981931213317*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      SuperscriptBox["b", "2"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " "}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+",
      RowBox[{"b",
       RowBox[{"(",
        RowBox[{
         RowBox[{"2", " ", "a"}], "-", "b"}], ")"}], " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}],
     RowBox[{
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], ")"}],
       RowBox[{"3", "/", "2"}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " "}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, {3.508629985389839*^9,
   3.508630038523533*^9}, {3.5086302175650473`*^9, 3.508630272523944*^9}, {
   3.5086303373732576`*^9, 3.5086303857489424`*^9}, {3.5086544815205164`*^9,
   3.5086544839805193`*^9}, {3.5098474421388674`*^9,
   3.5098474438788695`*^9}, {3.5117222656363783`*^9,
   3.5117223500564966`*^9}, {3.5151680121142225`*^9, 3.5151680139842253`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", "2"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{
         RowBox[{"a", "^", "2"}], "+",
         RowBox[{"b", "*",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "*", "a"}], "-", "b"}], ")"}], "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "^",
          RowBox[{"(",
           RowBox[{"3", "/", "2"}], ")"}]}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9}, {
   3.507612961088045*^9, 3.5076129665543575`*^9}, 3.508630104043648*^9, {
   3.508630460519874*^9, 3.508630490908727*^9}, {3.5086544845305204`*^9,
   3.5086544866805234`*^9}, {3.509847444628871*^9, 3.509847447028874*^9},
   3.511719105891955*^9, {3.511720046553272*^9, 3.511720055293284*^9}, {
   3.5117204168737903`*^9, 3.511720418213792*^9}, {3.511722415106588*^9,
   3.5117224284766064`*^9}, {3.5117224905666933`*^9, 3.511722494646699*^9}, {
   3.544983201735095*^9, 3.5449832051851*^9}, {3.544984118626379*^9,
   3.5449841198663807`*^9}, {3.5461249082434206`*^9, 3.546124908253421*^9}, {
   3.5461249495234785`*^9, 3.5461249495334787`*^9}, {3.548196217242826*^9,
   3.548196221693081*^9}, {3.548202559464223*^9, 3.5482025631442285`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417450198442*^9, 3.545417450198442*^9},
   3.5454175233937707`*^9, {3.545418107427596*^9, 3.5454181199232187`*^9}, {
   3.545418471672636*^9, 3.545418471672636*^9}, 3.5454968476872587`*^9, {
   3.546123051290821*^9, 3.546123051290821*^9}, {3.5461231084609013`*^9,
   3.5461231096709027`*^9}, 3.546124110632304*^9, {3.546197137877739*^9,
   3.5461971632477746`*^9}, {3.5461974644681964`*^9, 3.5461974652381973`*^9},
   3.546315788213789*^9, {3.546563404984126*^9, 3.5465634188741455`*^9},
   3.5465759210358295`*^9, {3.5465760666660333`*^9, 3.546576070806039*^9}, {
   3.5469097862588663`*^9, 3.5469097864688663`*^9}, {3.548023122051736*^9,
   3.5480231294717464`*^9}, {3.5481795846924667`*^9,
   3.5481795846924667`*^9}, {3.548179922230259*^9, 3.548179922230259*^9}, {
   3.5481969929130707`*^9, 3.5481970151393423`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "4",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "a"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "b"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017234466769753`*^9, {3.502998242234921*^9, 3.5029982849849806`*^9}, {
   3.5029988164157248`*^9, 3.5029988339157495`*^9}, 3.5053450875344086`*^9,
   3.5120643745425577`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9},
   3.501360698386026*^9, 3.502764465517331*^9, {3.502764564717905*^9,
   3.5027645817219353`*^9}, {3.502998417925167*^9, 3.502998419595169*^9}, {
   3.502998626215459*^9, 3.50299862725546*^9}, {3.5035539664672184`*^9,
   3.503553976037232*^9}, {3.5038893695137835`*^9, 3.50388937472379*^9}, {
   3.503890883141954*^9, 3.503890891861966*^9}, {3.5042446447557297`*^9,
   3.5042446461157317`*^9}, 3.504414935433305*^9, {3.5048378518798456`*^9,
   3.5048378518798456`*^9}, {3.5048382177403574`*^9, 3.50483821931036*^9}, {
   3.504843908498325*^9, 3.5048439317383575`*^9}, {3.504900873084753*^9,
   3.504900885664771*^9}, {3.5049246531715817`*^9, 3.504924653361582*^9}, {
   3.5049894512319984`*^9, 3.504989452192*^9}, {3.504989525292102*^9,
   3.504989536582118*^9}, {3.504993844378149*^9, 3.5049938479981537`*^9}, {
   3.5049954676004214`*^9, 3.504995484400445*^9}, 3.5098234569950066`*^9, {
   3.5101745222610135`*^9, 3.5101745222610135`*^9}, {3.5101796674196978`*^9,
   3.510179672193306*^9}, {3.5109411329150653`*^9, 3.5109411355750685`*^9}, {
   3.5117202607035713`*^9, 3.5117202607035713`*^9}, {3.5131010330863237`*^9,
   3.513101033596324*^9}, {3.513101131996462*^9, 3.513101133166464*^9}, {
   3.515198643679591*^9, 3.515198643679591*^9}, {3.5166676161478186`*^9,
   3.5166676171618204`*^9}, {3.5454171937963915`*^9,
   3.5454171937963915`*^9}, {3.545418464325023*^9, 3.5454184668522277`*^9}, {
   3.54543013630523*^9, 3.5454301369552307`*^9}, {3.546123051330821*^9,
   3.546123051330821*^9}, {3.5461231117709055`*^9, 3.546123112620907*^9}, {
   3.546197460718191*^9, 3.546197461398192*^9}, {3.546563424164153*^9,
   3.546563424164153*^9}, {3.5465760908860674`*^9, 3.5465760908860674`*^9}, {
   3.5480231348417535`*^9, 3.5480231348417535`*^9}, {3.5481795872976713`*^9,
   3.5481795872976713`*^9}, {3.548179923259861*^9, 3.548179923259861*^9}, {
   3.5481970044657316`*^9, 3.5481970044657316`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
     RowBox[{"3", "/", "2"}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["1",
    RowBox[{"2",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "+", "1"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"a", " ", "b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "1"}], ")"}]}], "+",
         RowBox[{"2",
          RowBox[{"(",
           RowBox[{
            SuperscriptBox["a", "2"], "+",
            RowBox[{
             RowBox[{"(",
              RowBox[{
               SuperscriptBox["a", "2"], "+",
               SuperscriptBox["b", "2"]}], ")"}], " ",
             RowBox[{"(",
              RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"a", " ", "b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "5"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5095542513719344`*^9, 3.509554323542035*^9}, {3.5098235046450734`*^9,
   3.5098237102853613`*^9}, {3.5101747294137774`*^9,
   3.5101747324245825`*^9}, {3.510175254245499*^9, 3.5101752850867534`*^9}, {
   3.5151682518345585`*^9, 3.515168255164563*^9}, {3.546123051370821*^9,
   3.546123051400821*^9}, {3.5461236016715918`*^9, 3.546123621111619*^9}, {
   3.5461239249120445`*^9, 3.546123932622055*^9}, {3.546124313822589*^9,
   3.5461243216326*^9}, {3.5461971656377783`*^9, 3.546197209457839*^9}, {
   3.5461972460378904`*^9, 3.546197287177948*^9}, {3.5465343487176743`*^9,
   3.5465343516876783`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"a", "*", "b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "1"}], ")"}]}], "+",
            RowBox[{"2", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"a", "^", "2"}], "+",
               RowBox[{
                RowBox[{"(",
                 RowBox[{
                  RowBox[{"a", "^", "2"}], "+",
                  RowBox[{"b", "^", "2"}]}], ")"}], "*",
                RowBox[{"(",
                 RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"a", "*", "b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "5"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "\[LessEqual]",
     RowBox[{"-", "2"}]}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, {3.5095542554019403`*^9,
   3.5095542862019835`*^9}, {3.509554360482087*^9, 3.509554381662117*^9},
   3.509554414102162*^9, 3.5098234804750395`*^9, 3.5098238444655495`*^9, {
   3.5098337589909863`*^9, 3.509833762656993*^9}, 3.510174567625893*^9, {
   3.5101747364181895`*^9, 3.510174740162196*^9}, {3.5101752915763645`*^9,
   3.5101753267856264`*^9}, {3.510179727370603*^9, 3.5101797293050065`*^9},
   3.5101798832460766`*^9, {3.5105937009401865`*^9, 3.5105937079301963`*^9}, {
   3.5107844612707214`*^9, 3.51078447726075*^9}, {3.510941099225018*^9,
   3.5109411034950237`*^9}, {3.513101096386412*^9, 3.5131011240064507`*^9},
   3.5134408741893167`*^9, {3.5151979296207376`*^9, 3.5151979301043386`*^9},
   3.515198630107568*^9, {3.5166675750105467`*^9, 3.51666759992379*^9},
   3.5168206561164618`*^9, 3.5168238870406413`*^9, 3.5170755050129986`*^9,
   3.541090465674143*^9, {3.5410905523722944`*^9, 3.5410905769735374`*^9},
   3.541978342565608*^9, {3.545491211141056*^9, 3.5454912111710567`*^9}, {
   3.546040953583207*^9, 3.5460409565232105`*^9}, 3.5460412055635595`*^9, {
   3.5461059983880277`*^9, 3.5461060226460705`*^9}, 3.5461060984934034`*^9, {
   3.5461064995701075`*^9, 3.546106521425746*^9}, {3.546106583139455*^9,
   3.5461066309223385`*^9}, 3.5461234277913485`*^9, {3.5461245742629533`*^9,
   3.546124575892956*^9}, {3.5461352291807227`*^9, 3.5461352348903327`*^9}, {
   3.546197231867871*^9, 3.5461972330978727`*^9}, {3.546197321947997*^9,
   3.546197379598078*^9}, {3.5461974390081606`*^9, 3.546197456328185*^9},
   3.5461988408501234`*^9, 3.5465634263441563`*^9, {3.5465760775560484`*^9,
   3.5465760808160534`*^9}, {3.5480217375597973`*^9, 3.548021743009805*^9},
   3.5480231375117574`*^9, {3.548180207832361*^9, 3.548180209922765*^9},
   3.5481970068258667`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, 3.546315233972088*^9, {
   3.546537994952779*^9, 3.5465380149828067`*^9}, {3.5465386159836483`*^9,
   3.546538616183648*^9}, {3.546538663693715*^9, 3.5465386673137197`*^9}, {
   3.546575317754985*^9, 3.5465753179849854`*^9}, {3.546575376355067*^9,
   3.546575376355067*^9}, {3.5465754184051256`*^9, 3.5465754303251424`*^9},
   3.5465761767861876`*^9, {3.546576428076539*^9, 3.5465764476065664`*^9}, {
   3.5481793450180454`*^9, 3.5481793450180454`*^9}, {3.548179487473096*^9,
   3.548179487473096*^9}, {3.548179924429863*^9, 3.548179924429863*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "\[GreaterEqual]",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174662196703`*^9, 3.5454174662196703`*^9},
   3.5454175165297585`*^9, 3.5454181000019836`*^9, {3.5454183011955366`*^9,
   3.545418306187546*^9}, 3.5454968445772543`*^9, {3.5461230507608204`*^9,
   3.54612307907086*^9}, 3.5461240974722857`*^9, {3.546207368267252*^9,
   3.546207368267252*^9}, {3.5462074504873667`*^9, 3.5462074602373805`*^9},
   3.5463157973533115`*^9, {3.5465337534268403`*^9, 3.5465337534268403`*^9}, {
   3.5465763347064085`*^9, 3.5465763347064085`*^9}, 3.546576455646578*^9, {
   3.548179345673247*^9, 3.548179345673247*^9}, {3.5481795927108803`*^9,
   3.5481795927108803`*^9}, {3.548179925506265*^9, 3.548179925506265*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "3",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=",
   SuperscriptBox["a", "2"]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=",
   RowBox[{"2", "a", " ", "b"}]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=",
   SuperscriptBox["b", "2"]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9,
   3.5038813546802473`*^9}, {3.5049162938617954`*^9,
   3.5049163006634073`*^9}, {3.5049224814485416`*^9,
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, {
   3.504923521959998*^9, 3.504923555010044*^9}, 3.504923770360346*^9,
   3.505345123254459*^9, 3.5120643645025434`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "2"}], " ", "\[And]", " ",
   RowBox[{"m", "\[GreaterEqual]",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4993685152127995`*^9, 3.499368525272814*^9}, {3.5003196739046497`*^9,
   3.5003196775646553`*^9}, {3.5004320218638687`*^9,
   3.5004320229179287`*^9}, {3.5026773276717095`*^9,
   3.5026773598217545`*^9}, {3.5027672801246758`*^9,
   3.5027672801246758`*^9}, {3.502768130767771*^9, 3.5027681579118185`*^9}, {
   3.5027753310736456`*^9, 3.5027753310736456`*^9}, {3.502991383655848*^9,
   3.50299138473225*^9}, {3.502991707559217*^9, 3.5029917094936204`*^9}, {
   3.5030207060612226`*^9, 3.5030207060612226`*^9}, {3.503551944574388*^9,
   3.503551944574388*^9}, {3.50355356026665*^9, 3.503553566106658*^9}, {
   3.504244004574834*^9, 3.5042440069048367`*^9}, 3.504414741133033*^9,
   3.504824760204614*^9, {3.5048249652669744`*^9, 3.504824987699814*^9}, {
   3.504825078045573*^9, 3.504825078045573*^9}, 3.504841031574297*^9, {
   3.504900714664531*^9, 3.504900725614547*^9}, {3.504924847031853*^9,
   3.504924855461865*^9}, 3.504989107021517*^9, {3.504989328791827*^9,
   3.5049893334318333`*^9}, {3.5049937989480853`*^9, 3.504993803738092*^9}, {
   3.5049953676002817`*^9, 3.504995369860285*^9}, {3.504995403620332*^9,
   3.5049954090803394`*^9}, {3.5049960169011903`*^9,
   3.5049960172211905`*^9}, {3.5051935402161303`*^9, 3.505193542359253*^9},
   3.509826810499981*^9, {3.509912291872099*^9, 3.5099122933697014`*^9}, {
   3.510174512339396*^9, 3.510174512339396*^9}, {3.5101794850865774`*^9,
   3.510179492605791*^9}, {3.510437188690962*^9, 3.510437188690962*^9}, {
   3.511720238903541*^9, 3.511720238903541*^9}, {3.515197446943491*^9,
   3.515197448924694*^9}, {3.5454171838435745`*^9, 3.5454171838435745`*^9}, {
   3.5454183152511616`*^9, 3.5454183152511616`*^9}, {3.5454301304252214`*^9,
   3.5454301309852223`*^9}, {3.5461230508108206`*^9, 3.54612305083082*^9}, {
   3.546123084200867*^9, 3.546123085340869*^9}, {3.5462073772772646`*^9,
   3.5462073772772646`*^9}, {3.5462074701173944`*^9,
   3.5462074701173944`*^9}, {3.546533760746851*^9, 3.5465337635668545`*^9}, {
   3.5465763204263887`*^9, 3.5465763283363996`*^9}, {3.548179346422048*^9,
   3.548179346422048*^9}, {3.5481795956280856`*^9, 3.5481795956280856`*^9}, {
   3.548179926769867*^9, 3.548179926769867*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "+", "1"}]],
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "-", "2"}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{"m", "+", "n"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"m", "+", "n"}]], "\[CenterDot]", "\[IndentingNewLine]", " ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"a", " ",
        RowBox[{"(",
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"],
           RowBox[{"(",
            RowBox[{"n", "-", "1"}], ")"}]}], "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{
             SuperscriptBox["a", "2"], "+",
             SuperscriptBox["b", "2"]}], ")"}],
           RowBox[{"(",
            RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}]}], "+",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{
          RowBox[{"-",
           SuperscriptBox["b", "2"]}], "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{
             RowBox[{"3",
              SuperscriptBox["a", "2"]}], "+",
             SuperscriptBox["b", "2"]}], ")"}],
           RowBox[{"(",
            RowBox[{"m", "+", "n"}], ")"}]}]}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
       RowBox[{"a", " ",
        SuperscriptBox["b", "2"],
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "m"}], "+",
          RowBox[{"3", " ", "n"}], "-", "2"}], ")"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "3"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499404292486275*^9, 3.499404294656278*^9}, {3.4994047741669493`*^9,
   3.4994047806169586`*^9}, {3.5003179797605133`*^9, 3.500317980041314*^9},
   3.5003181732532535`*^9, {3.501043182982005*^9, 3.501043190019408*^9}, {
   3.502999922267273*^9, 3.5029999245372763`*^9}, 3.505344641393784*^9, {
   3.5053446930938563`*^9, 3.505344715003887*^9}, 3.5053535501052*^9,
   3.5094714967392817`*^9, {3.5094716071916*^9, 3.509471662428759*^9}, {
   3.509471696610714*^9, 3.5094717281785192`*^9}, {3.509471786124834*^9,
   3.509471792090175*^9}, {3.509471873836851*^9, 3.509471876436*^9}, {
   3.509826870440065*^9, 3.5098270099202604`*^9}, {3.5098270502403164`*^9,
   3.5098270505703173`*^9}, {3.5098271624604735`*^9,
   3.5098272239105597`*^9}, {3.509827264120616*^9, 3.509827271610626*^9}, {
   3.509827316060689*^9, 3.509827333370713*^9}, {3.50982738124078*^9,
   3.5098274080308175`*^9}, {3.50982754542101*^9, 3.50982754580101*^9}, {
   3.5098278988615046`*^9, 3.5098279043915124`*^9}, {3.510174680398491*^9,
   3.510174684438898*^9}, {3.5101750442067304`*^9, 3.5101750761555862`*^9}, {
   3.515168229294527*^9, 3.5151682325945315`*^9}, {3.5461230508608203`*^9,
   3.546123050960821*^9}, {3.5461235177914743`*^9, 3.546123545311513*^9}, {
   3.546123889571995*^9, 3.5461238928219995`*^9}, {3.5461242150424504`*^9,
   3.5461242301324716`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5003184730429688`*^9, 3.50031848112298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"b", "^", "2"}]}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "2"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "n"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "n"}], ")"}]}], "*", "\[IndentingNewLine]", "    ",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
        "\[IndentingNewLine]", "      ",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{"a", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{
               RowBox[{"a", "^", "2"}], "*",
               RowBox[{"(",
                RowBox[{"n", "-", "1"}], ")"}]}], "+",
              RowBox[{
               RowBox[{"(",
                RowBox[{
                 RowBox[{"a", "^", "2"}], "+",
                 RowBox[{"b", "^", "2"}]}], ")"}], "*",
               RowBox[{"(",
                RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}]}], "+",
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"-",
               RowBox[{"b", "^", "2"}]}], "+",
              RowBox[{
               RowBox[{"(",
                RowBox[{
                 RowBox[{"3", "*",
                  RowBox[{"a", "^", "2"}]}], "+",
                 RowBox[{"b", "^", "2"}]}], ")"}], "*",
               RowBox[{"(",
                RowBox[{"m", "+", "n"}], ")"}]}]}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
           RowBox[{"a", "*",
            RowBox[{"b", "^", "2"}], "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"2", "*", "m"}], "+",
              RowBox[{"3", "*", "n"}], "+",
              RowBox[{"-", "2"}]}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*", "\n", "      ",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "3"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "2"}], " ", "&&", " ",
    RowBox[{"m", "\[GreaterEqual]",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "\[NotEqual]", "2"}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{
      RowBox[{"2", "*", "m"}], ",",
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, {3.4993575889901257`*^9,
   3.4993576670838633`*^9}, {3.499365544950614*^9, 3.4993655661406436`*^9}, {
   3.4993657073008413`*^9, 3.499365707870842*^9}, 3.4993699181547637`*^9, {
   3.5003179803689146`*^9, 3.500317981117716*^9}, {3.5003185042030125`*^9,
   3.5003185122330236`*^9}, {3.500319341644185*^9, 3.500319361824213*^9}, {
   3.5003214645171566`*^9, 3.500321470987166*^9}, {3.500432015647513*^9,
   3.5004320167615767`*^9}, {3.501043209599528*^9, 3.5010432350499835`*^9},
   3.5026771020013933`*^9, {3.502677180841504*^9, 3.5026772181615562`*^9}, {
   3.502677352241744*^9, 3.5026773539717464`*^9}, 3.5027670707255077`*^9, {
   3.503071968728242*^9, 3.503071977848255*^9}, 3.5038761956487827`*^9, {
   3.5040290099495783`*^9, 3.504029011478381*^9}, {3.5041565286043806`*^9,
   3.504156530008383*^9}, {3.5042865784817295`*^9, 3.5042866008017607`*^9}, {
   3.5042870585024014`*^9, 3.5042870681924148`*^9}, {3.504287484912998*^9,
   3.504287490763006*^9}, {3.5042940452901697`*^9, 3.5042940507501793`*^9},
   3.5042956788330393`*^9, {3.504296854565608*^9, 3.5042968614056177`*^9}, {
   3.505100941436471*^9, 3.505100953336488*^9}, {3.505101028776593*^9,
   3.5051010300865946`*^9}, 3.505344641403784*^9, {3.5053446931238565`*^9,
   3.5053447150138874`*^9}, 3.5053535519652023`*^9, 3.509472213767294*^9,
   3.509472341770615*^9, {3.5094725099262333`*^9, 3.5094725194427776`*^9},
   3.50947329995942*^9, {3.5094751389386044`*^9, 3.5094751435978703`*^9}, {
   3.5098268365600176`*^9, 3.5098268428800263`*^9}, {3.5098337250453267`*^9,
   3.509833729725335*^9}, 3.5098339048980427`*^9, 3.5098987574091883`*^9, {
   3.509912284477686*^9, 3.5099122866616898`*^9}, 3.510174575925108*^9, {
   3.510174686997303*^9, 3.5101746970593204`*^9}, {3.510175084454801*^9,
   3.5101751024416323`*^9}, {3.510175350887669*^9, 3.510175353040473*^9}, {
   3.510179498097*^9, 3.5101795410906763`*^9}, {3.510437173650941*^9,
   3.5104371768509455`*^9}, 3.511231366160061*^9, {3.5112314762494545`*^9,
   3.5112314769982557`*^9}, 3.511373876321891*^9, 3.5114943820759134`*^9,
   3.5118066363811407`*^9, 3.5144891673708353`*^9, {3.5151973613773403`*^9,
   3.515197375276965*^9}, {3.51519742944026*^9, 3.5151974322014647`*^9}, {
   3.515197866799427*^9, 3.5151978675794287`*^9}, {3.5159784267198243`*^9,
   3.515978440728649*^9}, {3.516667543342491*^9, 3.5166675492081013`*^9}, {
   3.516681962864518*^9, 3.5166819707545295`*^9}, 3.5168206560064616`*^9,
   3.51682388701764*^9, 3.5168368352462363`*^9, {3.516836867150061*^9,
   3.5168368934705667`*^9}, {3.5168372514820433`*^9, 3.516837267402954*^9}, {
   3.5168373768522143`*^9, 3.5168374000695424`*^9}, 3.517075501062993*^9,
   3.517075718593298*^9, 3.5410904581705294`*^9, 3.5410905426378775`*^9,
   3.541090587487956*^9, 3.5419795158272505`*^9, {3.545418362519244*^9,
   3.5454183692428565`*^9}, {3.545491210971056*^9, 3.5454912110010567`*^9},
   3.5455035405666285`*^9, {3.546040872303093*^9, 3.5460408750830965`*^9}, {
   3.5460409070931416`*^9, 3.5460409126131496`*^9}, 3.546041178763522*^9, {
   3.5461059982788277`*^9, 3.54610602252127*^9}, 3.5461060984154034`*^9, {
   3.5461064994921074`*^9, 3.546106521347746*^9}, {3.546106582905454*^9,
   3.5461066308131385`*^9}, {3.546106800385436*^9, 3.546106821851074*^9}, {
   3.5461233881412926`*^9, 3.546123388331293*^9}, {3.546124466842803*^9,
   3.546124468222805*^9}, {3.5461245463729143`*^9, 3.5461245578229303`*^9}, {
   3.5461246371530414`*^9, 3.5461246388930435`*^9}, 3.546206932736642*^9,
   3.546207372287257*^9, {3.5462074916174245`*^9, 3.546207492407426*^9}, {
   3.546533777746875*^9, 3.5465337828568816`*^9}, {3.5465763133163786`*^9,
   3.5465763152563815`*^9}, {3.5480226467010703`*^9, 3.548022652311078*^9},
   3.5481793906605263`*^9, {3.5481802310764017`*^9, 3.5481802328080053`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", ">", "2"}], " ", "\[And]", " ",
       RowBox[{"m", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417455221651*^9, 3.545417455221651*^9},
   3.5454175209133663`*^9, {3.545418100953585*^9, 3.545418123558025*^9}, {
   3.545418335499997*^9, 3.545418335499997*^9}, 3.5454968453272552`*^9, {
   3.546123051000821*^9, 3.546123051000821*^9}, {3.546123087510872*^9,
   3.546123088480873*^9}, 3.5461241009822907`*^9, {3.5462075159574585`*^9,
   3.5462075159574585`*^9}, 3.546208785459236*^9, 3.546315803320653*^9,
   3.5465338469569716`*^9, {3.5465339048370523`*^9, 3.5465339048370523`*^9}, {
   3.546576369286457*^9, 3.546576375466466*^9}, 3.54657645715658*^9, {
   3.5481796004016943`*^9, 3.5481796004016943`*^9}, {3.5481799281426697`*^9,
   3.5481799281426697`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "4",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=",
   SuperscriptBox["a", "2"]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=",
   RowBox[{"2", "a", " ", "b"}]}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=",
   SuperscriptBox["b", "2"]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"n", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722470936061*^9, 3.501722471263662*^9}, {3.501722511371332*^9,
   3.501722513914137*^9}, {3.5017225883886676`*^9, 3.501722594472678*^9}, {
   3.501722636046751*^9, 3.501722636405552*^9}, {3.501722673970418*^9,
   3.5017227105524817`*^9}, {3.503880515951973*^9, 3.5038805176835756`*^9}, {
   3.5038805488524303`*^9, 3.5038805721276717`*^9}, {3.503881323994993*^9,
   3.5038813546802473`*^9}, {3.5049162938617954`*^9,
   3.5049163006634073`*^9}, {3.5049224814485416`*^9,
   3.5049225441586294`*^9}, {3.504922716808871*^9, 3.5049227329788933`*^9}, {
   3.504923521959998*^9, 3.504923555010044*^9}, 3.504923770360346*^9, {
   3.504924121650838*^9, 3.504924125290843*^9}, 3.505345087524409*^9,
   3.512064374152557*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", ">", "2"}], " ", "\[And]", " ",
   RowBox[{"m", "<",
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9},
   3.501360698386026*^9, 3.502764465517331*^9, {3.502764564717905*^9,
   3.5027645817219353`*^9}, {3.5040444512814093`*^9,
   3.5040444521714106`*^9}, {3.504053340593854*^9, 3.504053349543867*^9}, {
   3.504066741697694*^9, 3.504066851700986*^9}, {3.504119823905727*^9,
   3.504119823905727*^9}, {3.5041479977137966`*^9, 3.5041480034702067`*^9}, {
   3.504148210794571*^9, 3.504148226566199*^9}, {3.5041534502353735`*^9,
   3.5041534502353735`*^9}, {3.504154534889679*^9, 3.504154536215681*^9}, {
   3.504216285491615*^9, 3.504216285731615*^9}, {3.5042166285920954`*^9,
   3.504216629042096*^9}, {3.5042972939462233`*^9, 3.504297296396227*^9},
   3.504313351644659*^9, {3.5049241795509186`*^9, 3.5049241815409217`*^9}, {
   3.504924760461732*^9, 3.504924771411747*^9}, {3.5049248421018467`*^9,
   3.5049248685818834`*^9}, 3.504989432461972*^9, {3.5049895561521454`*^9,
   3.5049895619921536`*^9}, {3.5049938262081237`*^9,
   3.5049938282681265`*^9}, {3.5049952877401695`*^9,
   3.5049953017901893`*^9}, {3.5049960526112404`*^9, 3.504996055481244*^9},
   3.509823932645673*^9, {3.510174517581005*^9, 3.510174517581005*^9}, {
   3.5101796532080727`*^9, 3.510179654050474*^9}, {3.511720253253561*^9,
   3.511720253253561*^9}, {3.515198647314398*^9, 3.515198647314398*^9}, {
   3.515198716453719*^9, 3.5151987171557207`*^9}, {3.5454171907543864`*^9,
   3.5454171907543864`*^9}, {3.5454183266079817`*^9,
   3.5454183285891848`*^9}, {3.5454301324952245`*^9, 3.545430132985225*^9}, {
   3.546123051010821*^9, 3.546123051010821*^9}, {3.546123090700876*^9,
   3.5461230918308783`*^9}, {3.5465763810664735`*^9,
   3.5465763810664735`*^9}, {3.5481796028508987`*^9,
   3.5481796028508987`*^9}, {3.5481799292034717`*^9, 3.5481799292034717`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "2"], " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]], " ",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
         RowBox[{"n", "-", "2"}]]}],
       RowBox[{"d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"m", "+", "1"}]], "\[CenterDot]", "\[IndentingNewLine]",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "+", "1"}]],
     RowBox[{"(",
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], " ", "b",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "m"}], "-", "n", "+", "4"}], ")"}]}], "+",
       RowBox[{"a",
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{
             SuperscriptBox["a", "2"], "+",
             RowBox[{"3",
              SuperscriptBox["b", "2"]}]}], ")"}], " ",
           RowBox[{"(",
            RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
       RowBox[{"b",
        RowBox[{"(",
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"], " ",
           RowBox[{"(",
            RowBox[{"n", "-", "1"}], ")"}]}], "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{
             SuperscriptBox["a", "2"], "+",
             SuperscriptBox["b", "2"]}], ")"}],
           RowBox[{"(",
            RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "-", "3"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.5040325720154343`*^9,
   3.5040325776782446`*^9}, 3.505344641413784*^9, {3.5053446931638565`*^9,
   3.505344715023887*^9}, 3.5053535547652063`*^9, {3.509472692844695*^9,
   3.509472735704147*^9}, {3.5094728451264057`*^9, 3.509472933684471*^9}, {
   3.5098239966057625`*^9, 3.5098241785372534`*^9}, {3.509824224042533*^9,
   3.509824264041003*^9}, {3.509824371415992*^9, 3.5098243716031923`*^9}, {
   3.510174716715355*^9, 3.5101747204593616`*^9}, {3.510175189536586*^9,
   3.5101752122814255`*^9}, {3.515168244344548*^9, 3.5151682469945517`*^9}, {
   3.546123051010821*^9, 3.546123051040821*^9}, {3.546123551201521*^9,
   3.546123573891553*^9}, {3.5461238974620056`*^9, 3.546123901242011*^9}, {
   3.5461242365524807`*^9, 3.546124251772502*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "-", "2"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*", "\[IndentingNewLine]", "    ",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*", "\[IndentingNewLine]",
        "      ",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "^", "2"}], "*", "b", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"2", "*", "m"}], "-", "n", "+", "4"}], ")"}]}], "+",
           RowBox[{"a", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"a", "^", "2"}], "+",
              RowBox[{
               RowBox[{"(",
                RowBox[{
                 RowBox[{"a", "^", "2"}], "+",
                 RowBox[{"3", "*",
                  RowBox[{"b", "^", "2"}]}]}], ")"}], "*",
               RowBox[{"(",
                RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{
               RowBox[{"a", "^", "2"}], "*",
               RowBox[{"(",
                RowBox[{"n", "-", "1"}], ")"}]}], "+",
              RowBox[{
               RowBox[{"(",
                RowBox[{
                 RowBox[{"a", "^", "2"}], "+",
                 RowBox[{"b", "^", "2"}]}], ")"}], "*",
               RowBox[{"(",
                RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*", "\[IndentingNewLine]", "      ",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "-", "3"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", ">", "2"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{
      RowBox[{"2", "*", "m"}], ",",
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5038761961479836`*^9, {3.504156546965613*^9,
   3.504156548322815*^9}, {3.5042968954456654`*^9, 3.5042969168056955`*^9}, {
   3.5051010426366124`*^9, 3.505101050326623*^9}, 3.5053446414337845`*^9, {
   3.5053446931938567`*^9, 3.505344715043887*^9}, 3.50535355708521*^9, {
   3.509473076633647*^9, 3.509473117827003*^9}, 3.509473221522934*^9, {
   3.5094732830534534`*^9, 3.509473292318983*^9}, {3.5094751195374947`*^9,
   3.5094751247597933`*^9}, {3.509824473923772*^9, 3.5098244976826134`*^9}, {
   3.50983374978697*^9, 3.509833754388978*^9}, 3.5101745705118985`*^9, {
   3.510174722128565*^9, 3.5101747265901723`*^9}, {3.51017522022184*^9,
   3.5101752424362783`*^9}, {3.5101753326668367`*^9, 3.510175334866441*^9},
   3.510179660103285*^9, 3.5105909874363813`*^9, 3.5105926180386705`*^9, {
   3.5107844286510644`*^9, 3.5107844342826743`*^9}, 3.5134408643456993`*^9, {
   3.5151979256895304`*^9, 3.5151979262043314`*^9}, 3.5151986340543747`*^9, {
   3.515198720837327*^9, 3.5151987219137287`*^9}, 3.5166675688017354`*^9,
   3.5168206560864615`*^9, 3.5168238870326405`*^9, 3.5170755043029976`*^9,
   3.5410904628505373`*^9, 3.541090548753088*^9, 3.5410905801871433`*^9,
   3.5419794123171053`*^9, {3.545418344797613*^9, 3.5454183508192244`*^9}, {
   3.545491211021056*^9, 3.545491211061056*^9}, {3.546040925463167*^9,
   3.546040928263171*^9}, 3.5460411875635347`*^9, {3.546105998310027*^9,
   3.54610602255247*^9}, 3.546106098431003*^9, {3.5461064995077076`*^9,
   3.546106521363346*^9}, {3.5461065829990544`*^9, 3.5461066308599386`*^9}, {
   3.5461233943713017`*^9, 3.546123399151308*^9}, {3.546124627843028*^9,
   3.546124629813031*^9}, 3.546206942636656*^9, {3.546576384456478*^9,
   3.5465763860664806`*^9}, {3.5480226676610994`*^9,
   3.5480226729711075`*^9}, {3.5481802502956357`*^9, 3.54818025293204*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9, {3.5465706146584005`*^9, 3.546570688468504*^9}, {
   3.5465708209686894`*^9, 3.5465708283986998`*^9}, {3.5469087056573534`*^9,
   3.5469087058773537`*^9}, {3.547955589394039*^9, 3.5479555895890503`*^9}, {
   3.54817898872902*^9, 3.54817898891622*^9}, {3.5481792523850827`*^9,
   3.5481792587654943`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, {3.5462104433715568`*^9,
   3.5462104433715568`*^9}, 3.5463159078596325`*^9, {3.546569603280778*^9,
   3.5465696082610626`*^9}, {3.5465708861787806`*^9,
   3.5465708902287865`*^9}, {3.5481793471552496`*^9,
   3.5481793471552496`*^9}, {3.5481796204945297`*^9,
   3.5481796204945297`*^9}, {3.5481799302018733`*^9, 3.5481799302018733`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, {3.5462104433715568`*^9,
   3.5462104433715568`*^9}, 3.5463159078596325`*^9, {3.546569603280778*^9,
   3.5465696082610626`*^9}, 3.5465708714587603`*^9, {3.5481793477636504`*^9,
   3.5481793477636504`*^9}, {3.548179622553733*^9, 3.548179622553733*^9}, {
   3.548179930935075*^9, 3.548179930935075*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.5449788142409177`*^9, 3.5449788210485277`*^9},
   3.5449900020646152`*^9, {3.544990162814841*^9, 3.544990162814841*^9}, {
   3.5449903348550816`*^9, 3.544990335145082*^9}, 3.545013392288494*^9,
   3.5454967910871797`*^9, {3.545863957391494*^9, 3.5458639576098948`*^9},
   3.5460546595523663`*^9, {3.5460547421624813`*^9, 3.546054761882509*^9}, {
   3.546058535054557*^9, 3.5460585351775637`*^9}, 3.54619153130989*^9,
   3.5461929538318815`*^9, {3.5461932044722323`*^9, 3.546193206182235*^9},
   3.5461933768424735`*^9, {3.546193449252575*^9, 3.5461934494025755`*^9},
   3.5463159293288603`*^9, 3.5465313180934315`*^9, 3.546707015150184*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SqrtBox["z"],
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}]], "\[Equal]",
   RowBox[{
    FractionBox["1",
     RowBox[{"b",
      SqrtBox["z"]}]], "-",
    FractionBox["a",
     RowBox[{"b",
      SqrtBox["z"],
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.500666948156269*^9, 3.5006669508262725`*^9}, {
   3.5006760576590223`*^9, 3.5006760794090524`*^9}, {3.500676130389124*^9,
   3.500676132759127*^9}, 3.500676240689278*^9, 3.5006764023895044`*^9, {
   3.5006764330595474`*^9, 3.500676467739596*^9}, {3.500677045830405*^9,
   3.5006770482704086`*^9}, {3.5083585925884132`*^9,
   3.5083585969384193`*^9}, {3.5083783058576407`*^9, 3.508378358077714*^9}, {
   3.5449788239385314`*^9, 3.5449788252285333`*^9}, {3.544990075114718*^9,
   3.544990092304742*^9}, {3.5449901228647847`*^9, 3.5449901346648016`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083775601165967`*^9, {
   3.5083787694382896`*^9, 3.5083787807083054`*^9}, 3.5084342812040005`*^9,
   3.513377426312771*^9, 3.514598964197794*^9, 3.514861832535917*^9,
   3.5151814359289675`*^9, {3.5449819212033024`*^9, 3.5449819218033037`*^9}, {
   3.5449906023954563`*^9, 3.5449906023954563`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "b"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]],
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497639950506078*^9, 3.4976399764957237`*^9}, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.497923207991781*^9, {
   3.4991292213496065`*^9, 3.499129226379614*^9}, 3.5006646650530725`*^9, {
   3.5006652709839206`*^9, 3.500665282473937*^9}, 3.5006668515961337`*^9, {
   3.5006668992662*^9, 3.5006669216762314`*^9}, {3.5006756467284465`*^9,
   3.500675652058454*^9}, {3.500676422829533*^9, 3.500676426179538*^9}, {
   3.5006769280202403`*^9, 3.5006769719603024`*^9}, {3.5006770647304316`*^9,
   3.500677084220459*^9}, {3.50835843329819*^9, 3.508358456938223*^9}, {
   3.5083782298375344`*^9, 3.508378245757557*^9}, {3.5084371648280373`*^9,
   3.50843716654804*^9}, {3.5098473871687903`*^9, 3.5098473892987933`*^9}, {
   3.5151678758440323`*^9, 3.51516788151404*^9}, 3.5159777898055067`*^9,
   3.5449839766961803`*^9, {3.544990010694628*^9, 3.5449900601546974`*^9}, {
   3.5449900990647516`*^9, 3.544990106344762*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sqrt", "[",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}], ",", "x"}], "]"}]}],
    " ", "-", " ", "\[IndentingNewLine]", "  ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497639879666353*^9, {
   3.497921614589382*^9, 3.497921644806636*^9}, 3.4979231493512783`*^9, {
   3.499129496489992*^9, 3.49912950910001*^9}, {3.5006670128563595`*^9,
   3.500667030256384*^9}, {3.5006756721584826`*^9, 3.5006757072485313`*^9},
   3.5006761770891895`*^9, {3.500676504879648*^9, 3.500676511719658*^9}, {
   3.500676615389803*^9, 3.50067662058981*^9}, {3.50067712041051*^9,
   3.500677157770562*^9}, 3.500684516250436*^9, {3.508358781038677*^9,
   3.508358787338686*^9}, {3.5083588719288044`*^9, 3.508358881988818*^9}, {
   3.508378414067792*^9, 3.5083784269778104`*^9}, {3.508378464587863*^9,
   3.508378467637867*^9}, {3.5083785093179255`*^9, 3.50837851959794*^9}, {
   3.5083787060882015`*^9, 3.5083787263182297`*^9}, 3.508380619208137*^9, {
   3.5084371686080427`*^9, 3.508437170918046*^9}, {3.5098473915587964`*^9,
   3.5098473943488007`*^9}, {3.544983166675046*^9, 3.544983168935049*^9}, {
   3.5449839924662027`*^9, 3.5449839938762045`*^9}, {3.544990195604887*^9,
   3.5449902048048997`*^9}, {3.5449902673649874`*^9, 3.544990278745003*^9},
   3.545503317836317*^9, {3.5461249077934203`*^9, 3.54612490780342*^9}, {
   3.5461249490734777`*^9, 3.546124949083478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.545004700754717*^9, 3.5450047087575307`*^9}, 3.5450134029901133`*^9,
   3.5454967947871847`*^9, 3.5458627991518593`*^9, 3.5458630904823713`*^9, {
   3.545863138031255*^9, 3.545863138171655*^9}, {3.545863961447501*^9,
   3.545863962009102*^9}, 3.546054661002368*^9, {3.5460547431324835`*^9,
   3.546054763322511*^9}, {3.546058536559643*^9, 3.5460585367246523`*^9},
   3.5461915322998915`*^9, 3.546192954761883*^9, {3.54619321725225*^9,
   3.546193219192253*^9}, 3.5461933802024784`*^9, {3.5461934522125793`*^9,
   3.5461934523625793`*^9}, {3.546210379671468*^9, 3.546210379871468*^9},
   3.5463159300769033`*^9, 3.5465313834535227`*^9, 3.5467070166622705`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}, {3.5448167308665895`*^9, 3.544816734267395*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["z",
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}]], "\[Equal]",
   RowBox[{
    FractionBox["1", "b"], "-",
    FractionBox["a",
     RowBox[{"b", " ",
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.508354923854859*^9,
   3.508354923854859*^9}, {3.508361590872611*^9, 3.5083615983626213`*^9}, {
   3.508361640892681*^9, 3.508361643482684*^9}, 3.5108633469910617`*^9, {
   3.5108842882102137`*^9, 3.510884343449911*^9}, {3.5108843749619665`*^9,
   3.510884406786022*^9}, {3.5148563582542953`*^9, 3.5148563625755033`*^9}, {
   3.5448167556862326`*^9, 3.5448167637358465`*^9}, {3.544826626203169*^9,
   3.544826640274394*^9}, {3.5448269617909584`*^9, 3.5448269617909584`*^9}, {
   3.544933298428343*^9, 3.544933298428343*^9}, {3.5449343303097878`*^9,
   3.544934349169814*^9}, {3.5450047571176157`*^9, 3.54500478797447*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4975780482324586`*^9,
   3.4975780519624643`*^9}, {3.4975830331314387`*^9, 3.4975830513314643`*^9},
   3.4975830851915116`*^9, {3.4982393791815863`*^9, 3.498239383051592*^9}, {
   3.498240152312669*^9, 3.4982401612626815`*^9}, 3.4987612880523596`*^9, {
   3.498761948883285*^9, 3.498761976013323*^9}, {3.5059675026278906`*^9,
   3.50596750349494*^9}, 3.5060116665952845`*^9, 3.506016542053919*^9,
   3.506017498790203*^9, 3.506197187541685*^9, {3.5107904345917826`*^9,
   3.510790434771783*^9}, {3.51079227461636*^9, 3.51079227461636*^9},
   3.510792933471285*^9, {3.5108662797751675`*^9, 3.5108662797751675`*^9}, {
   3.5108678950974293`*^9, 3.5108678976974325`*^9}, {3.510867944407498*^9,
   3.5108679451674995`*^9}, {3.510868054967653*^9, 3.5108680555976534`*^9}, {
   3.5108681105177307`*^9, 3.5108681231277485`*^9}, 3.5108828042789707`*^9, {
   3.5136220690172005`*^9, 3.5136220690172005`*^9}, {3.514225012031127*^9,
   3.514225013247929*^9}, {3.5142251131193047`*^9, 3.514225145832562*^9}, {
   3.514253810168543*^9, 3.514253840658586*^9}, {3.514395770421965*^9,
   3.51439577397197*^9}, {3.5143967942433987`*^9, 3.514396846703472*^9}, {
   3.514396893313537*^9, 3.514396975353652*^9}, {3.514398018354274*^9,
   3.514398031170007*^9}, {3.5148560565081654`*^9, 3.5148560579589677`*^9}, {
   3.515181703282237*^9, 3.515181704171438*^9}, {3.544816954648982*^9,
   3.544816964320999*^9}, 3.5448173779401255`*^9, 3.5448176985362887`*^9,
   3.544818226706416*^9, {3.544933554378701*^9, 3.5449335545987015`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "b"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["a", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979870210135884`*^9,
   3.497987022604791*^9}, {3.498761170922196*^9, 3.498761170922196*^9}, {
   3.4987623460938416`*^9, 3.498762351773849*^9}, {3.498771763207025*^9,
   3.498771766317029*^9}, {3.499176679905081*^9, 3.4991767019167194`*^9}, {
   3.4991769134450912`*^9, 3.4991769208239045`*^9}, {3.499177089507001*^9,
   3.4991770988514175`*^9}, {3.4991771440134964`*^9, 3.49917724823728*^9}, {
   3.49917733957544*^9, 3.499177343725047*^9}, {3.499177507728135*^9,
   3.4991775227821617`*^9}, {3.4991958536064606`*^9,
   3.4991958550572634`*^9}, {3.4991964253402653`*^9, 3.499196426213866*^9}, {
   3.499220611573718*^9, 3.499220621053732*^9}, {3.499220791953971*^9,
   3.4992208047139883`*^9}, {3.499220842934042*^9, 3.499220858054063*^9}, {
   3.49922124888461*^9, 3.4992212502446127`*^9}, {3.506011634305239*^9,
   3.506011658545273*^9}, {3.506016286753561*^9, 3.506016298583578*^9}, {
   3.506017364036765*^9, 3.506017388996809*^9}, {3.507168650069973*^9,
   3.507168654459979*^9}, {3.5107903473316607`*^9, 3.5107903569216743`*^9},
   3.510791815495717*^9, {3.510791877225804*^9, 3.5107918796458073`*^9}, {
   3.5107919206958647`*^9, 3.5107919361058865`*^9}, {3.5107929340912857`*^9,
   3.51079296574133*^9}, {3.510793049051447*^9, 3.510793057921459*^9}, {
   3.510793103201523*^9, 3.5107931037715235`*^9}, {3.510793310961814*^9,
   3.510793315101819*^9}, 3.5108624550198126`*^9, 3.5108626131100345`*^9, {
   3.510862732070201*^9, 3.5108627625502434`*^9}, {3.510862855050373*^9,
   3.510862862860384*^9}, {3.510863006510585*^9, 3.5108630253906116`*^9}, {
   3.5108654917540646`*^9, 3.510865494574068*^9}, {3.510865542214135*^9,
   3.510865562964164*^9}, {3.510866059424859*^9, 3.5108660839748936`*^9}, {
   3.5108672905565825`*^9, 3.510867342806656*^9}, {3.510867537366928*^9,
   3.51086753861693*^9}, {3.5108677323472013`*^9, 3.5108678210373254`*^9},
   3.5108827919789534`*^9, {3.5108834101002717`*^9, 3.5108834689123745`*^9}, {
   3.510883571264155*^9, 3.5108835715449553`*^9}, {3.5108836880459595`*^9,
   3.510883710182399*^9}, {3.510883778604119*^9, 3.5108838678674755`*^9}, {
   3.5108845596722918`*^9, 3.510884601277564*^9}, {3.5142247663462954`*^9,
   3.5142248021639585`*^9}, {3.514253761668475*^9, 3.514253785538509*^9}, {
   3.514253853498604*^9, 3.514253870598628*^9}, {3.5142539471187353`*^9,
   3.5142540442288713`*^9}, {3.514256942172928*^9, 3.5142569660829616`*^9}, {
   3.5143958129420247`*^9, 3.514395822802038*^9}, {3.5143963480027733`*^9,
   3.514396363392795*^9}, 3.514396471892947*^9, {3.5143965757730923`*^9,
   3.5143965997731256`*^9}, {3.5143966406231833`*^9, 3.514396655623204*^9},
   3.5144003680906715`*^9, {3.515168129674388*^9, 3.5151681310343895`*^9}, {
   3.515181125380422*^9, 3.5151811284848275`*^9}, {3.5448166251296034`*^9,
   3.5448166802757006`*^9}, {3.5448268073818874`*^9,
   3.5448268858188252`*^9}, {3.544826971712576*^9, 3.5448269760025835`*^9}, {
   3.544933255308283*^9, 3.5449332855483246`*^9}, {3.5450047155123425`*^9,
   3.545004736182379*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.4991772959421635`*^9, 3.4991773069401827`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "]"}], ",", "x"}], "]"}]}], " ",
    "-", " ", "\n", "  ",
    RowBox[{
     RowBox[{"a", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "/",
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.4979870291256027`*^9,
   3.4979870422296257`*^9}, {3.497987678082342*^9, 3.497987689735563*^9}, {
   3.4979879183851643`*^9, 3.4979879218639708`*^9}, 3.497988073511837*^9,
   3.4984970174250083`*^9, {3.4987611709321957`*^9, 3.4987611709321957`*^9}, {
   3.498762437503969*^9, 3.498762476604024*^9}, {3.498762534054104*^9,
   3.4987625544741325`*^9}, {3.4987718156570983`*^9, 3.498771821157106*^9},
   3.499176757172016*^9, 3.499177473610875*^9, {3.499177533998582*^9,
   3.4991775542474174`*^9}, {3.499185447236084*^9, 3.4991854476572847`*^9}, {
   3.4991867525007772`*^9, 3.4991867535459795`*^9}, {3.499221289154667*^9,
   3.4992213232347145`*^9}, 3.5060117270153685`*^9, {3.506011884195589*^9,
   3.506011911555627*^9}, {3.506016315403601*^9, 3.506016334533628*^9}, {
   3.5060164328137655`*^9, 3.5060164512337914`*^9}, {3.506017490787389*^9,
   3.506017520833041*^9}, {3.507169195320736*^9, 3.507169237320795*^9}, {
   3.5107903649416857`*^9, 3.510790414641755*^9}, {3.5107914373131866`*^9,
   3.510791440833192*^9}, {3.5107918503857665`*^9, 3.5107918531657705`*^9}, {
   3.510792015105997*^9, 3.510792064656066*^9}, {3.5107921207661448`*^9,
   3.5107921449961786`*^9}, {3.5107922428463154`*^9,
   3.5107922587363377`*^9}, {3.510792532578723*^9, 3.51079253780873*^9}, {
   3.510792628798857*^9, 3.510792635248866*^9}, {3.5107929359612885`*^9,
   3.5107929415412965`*^9}, {3.5107929894213634`*^9, 3.510793020761407*^9}, {
   3.5107933579518795`*^9, 3.510793360861883*^9}, {3.5107934219719687`*^9,
   3.510793434731987*^9}, {3.5107934832620544`*^9, 3.510793511982095*^9}, {
   3.510799189346859*^9, 3.5107992041968803`*^9}, {3.510799776677682*^9,
   3.510799780597687*^9}, 3.510863075290681*^9, {3.5108631067007256`*^9,
   3.510863112650734*^9}, 3.5108634203511643`*^9, {3.510863486311257*^9,
   3.510863486521257*^9}, {3.510865446524001*^9, 3.5108654554340134`*^9},
   3.5108661348649645`*^9, {3.5108661791050267`*^9, 3.5108661865550375`*^9}, {
   3.510866302065199*^9, 3.5108663079952073`*^9}, {3.510867921877466*^9,
   3.510867937547488*^9}, {3.510867973887539*^9, 3.510868046637641*^9},
   3.5108680905877028`*^9, {3.510868148657784*^9, 3.510868177777825*^9}, {
   3.510882816248987*^9, 3.510882824228998*^9}, {3.5108840906514673`*^9,
   3.5108841599155884`*^9}, {3.5108845736187162`*^9,
   3.5108846146467876`*^9}, {3.510888427388686*^9, 3.5108884743291683`*^9}, {
   3.5108886381918564`*^9, 3.5108886485658746`*^9}, {3.510888678720728*^9,
   3.5108886796255293`*^9}, {3.510888720684801*^9, 3.5108887275800133`*^9}, {
   3.5108888796802807`*^9, 3.510888881021883*^9}, {3.5120885974018*^9,
   3.5120886011318054`*^9}, {3.5120894445570097`*^9, 3.512089448317015*^9}, {
   3.513109116247131*^9, 3.513109181236845*^9}, {3.5131109783852024`*^9,
   3.5131109820668087`*^9}, {3.513111738496537*^9, 3.5131117413357425`*^9},
   3.513112310803943*^9, 3.513116549990039*^9, 3.513116631840153*^9, {
   3.513116674560213*^9, 3.5131166806702213`*^9}, {3.513116760960334*^9,
   3.5131167691403456`*^9}, 3.513122838946004*^9, {3.5131355540184326`*^9,
   3.513135558760841*^9}, {3.5131356301777663`*^9, 3.513135650832203*^9},
   3.5131372241913633`*^9, {3.513139910664424*^9, 3.513139925016449*^9}, {
   3.5131399628933153`*^9, 3.5131399657793207`*^9}, {3.513622089406437*^9,
   3.5136221199356904`*^9}, 3.5142223995725384`*^9, {3.5142249275881786`*^9,
   3.5142249458246107`*^9}, 3.514225230603111*^9, {3.5142290392362003`*^9,
   3.5142290573946323`*^9}, 3.5142538004285297`*^9, {3.5142542521991625`*^9,
   3.5142542532391634`*^9}, {3.514254291249217*^9, 3.5142544290794096`*^9}, {
   3.5142583832749453`*^9, 3.5142584292150097`*^9}, {3.5143958450020695`*^9,
   3.5143958674421005`*^9}, {3.5143960423023453`*^9, 3.514396074522391*^9}, {
   3.514396122022457*^9, 3.5143961313624706`*^9}, {3.5143961632325153`*^9,
   3.5143961760225325`*^9}, {3.5143967449833293`*^9, 3.514396779623378*^9}, {
   3.514396986183667*^9, 3.5143970626537743`*^9}, {3.5143979759968514`*^9,
   3.5143979981801205`*^9}, 3.5143987761166153`*^9, {3.5143990236597743`*^9,
   3.514399032938305*^9}, 3.5143990733486166`*^9, 3.51440091844615*^9,
   3.5144013824526896`*^9, {3.51458952436273*^9, 3.5145895478527627`*^9}, {
   3.5159781843141985`*^9, 3.5159781857806015`*^9}, 3.516821030696986*^9, {
   3.5448169854434366`*^9, 3.5448170351451235`*^9}, {3.54481720966263*^9,
   3.5448172147638392`*^9}, {3.5448172830763593`*^9,
   3.5448173600624943`*^9}, {3.5448175301027927`*^9,
   3.5448175433940163`*^9}, {3.544827130661255*^9, 3.5448271792709403`*^9}, {
   3.5449333165583687`*^9, 3.5449333417884035`*^9}, {3.5449366173249903`*^9,
   3.5449366364750175`*^9}, {3.544936670515065*^9, 3.5449366880250893`*^9}, {
   3.544939079678438*^9, 3.5449390809384394`*^9}, {3.545004823979333*^9,
   3.5450048446649694`*^9}, {3.5461249078234205`*^9,
   3.5461249078334208`*^9}, {3.546124949103478*^9, 3.5461249491134777`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, 3.5454968564872713`*^9, {
   3.5461230524008226`*^9, 3.5461230524008226`*^9}, {3.546123181351003*^9,
   3.5461231822410045`*^9}, 3.546124166712383*^9, {3.546193335142415*^9,
   3.5461933667824593`*^9}, {3.54621038127147*^9, 3.54621038143147*^9},
   3.5463159310929613`*^9, {3.54653606029007*^9, 3.54653606029007*^9}, {
   3.5465696375077353`*^9, 3.5465696444411316`*^9}, 3.54670702049649*^9, {
   3.5481796506961823`*^9, 3.5481796506961823`*^9}, {3.548179931668276*^9,
   3.548179931668276*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"n", "=",
   RowBox[{"-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.501729725689207*^9,
   3.5017297313520174`*^9}, 3.501729800304138*^9, 3.5053451043644323`*^9,
   3.512064350632524*^9, {3.5454331412594366`*^9, 3.5454331488594475`*^9}, {
   3.546193907113216*^9, 3.5461939131132245`*^9}, {3.548010259820635*^9,
   3.5480102603506355`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.5012692292076674`*^9, 3.5012692361876774`*^9}, {3.503000515888104*^9,
   3.503000515888104*^9}, {3.5030010047587886`*^9, 3.503001015708804*^9}, {
   3.503001063418871*^9, 3.503001064418872*^9}, {3.504243197472898*^9,
   3.5042431987328997`*^9}, {3.5044146979829726`*^9, 3.5044146985729733`*^9},
   3.504482472366866*^9, 3.505193456354334*^9, 3.509828539372401*^9, {
   3.5101745056313844`*^9, 3.5101745056313844`*^9}, {3.5101794376000943`*^9,
   3.510179438036895*^9}, {3.511720227183525*^9, 3.511720227183525*^9}, {
   3.545417174155957*^9, 3.545417174155957*^9}, {3.5454188726401405`*^9,
   3.5454188726401405`*^9}, {3.5454301491152477`*^9,
   3.5454301498152485`*^9}, {3.5461230524408226`*^9,
   3.5461230524408226`*^9}, {3.5461231845110073`*^9, 3.546123185391009*^9}, {
   3.5461937223529577`*^9, 3.5461937232929587`*^9}, {3.546569650901501*^9,
   3.546569650901501*^9}, {3.548179653160987*^9, 3.54817965506419*^9}, {
   3.5481799325886774`*^9, 3.5481799325886774`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "2"}]]}],
        RowBox[{"b", " ", "d", " ",
         RowBox[{"(",
          RowBox[{"m", "-", "1"}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{"m", "-", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "-", "3"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"a", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "2"}], ")"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "2"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "-",
         RowBox[{"a", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "1"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5461230524808226`*^9,
   3.546123052510823*^9}, {3.5461238335819163`*^9, 3.5461238460719337`*^9}, {
   3.546124014232169*^9, 3.54612402153218*^9}, {3.546124396912705*^9,
   3.546124403832715*^9}, 3.546193469892604*^9, {3.5461935485227137`*^9,
   3.5461935510027175`*^9}, {3.546193741352984*^9, 3.546193784583044*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"Cos", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "-",
         RowBox[{"2", "*", "1"}]}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"m", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"m", "-", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "3"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"a", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "2"}], ")"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "2"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "-",
            RowBox[{"a", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "1"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "2"}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9,
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9,
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9,
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9},
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9,
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9,
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9},
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9,
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9,
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9,
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9},
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9,
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9},
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9,
   3.5454189017497916`*^9}, {3.545491211558657*^9, 3.5454912115886574`*^9},
   3.545503553376647*^9, {3.546041042293331*^9, 3.546041044673334*^9},
   3.546041265173643*^9, {3.5461059986220284`*^9, 3.5461060229580708`*^9},
   3.546106098665004*^9, {3.546106499726108*^9, 3.5461065215973463`*^9}, {
   3.546106583529455*^9, 3.546106612514306*^9}, {3.54612348614143*^9,
   3.5461234970314455`*^9}, {3.5461244095627227`*^9,
   3.5461244143727293`*^9}, {3.5461246026129932`*^9, 3.546124604232995*^9}, {
   3.5461938121830835`*^9, 3.5461938841831837`*^9}, 3.5465362918703947`*^9, {
   3.546569622610883*^9, 3.5465696243889847`*^9}, {3.5480217622698317`*^9,
   3.54802176788984*^9}, {3.548180285629698*^9, 3.548180287610901*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, {3.546193232512272*^9,
   3.5461932372522783`*^9}, 3.546315908901692*^9, {3.546569693570942*^9,
   3.546569693570942*^9}, 3.546570872768762*^9, {3.548179663706605*^9,
   3.548179663706605*^9}, {3.5481799334622793`*^9, 3.5481799334622793`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.5449979068763857`*^9, {3.54499883159921*^9,
   3.54499883177081*^9}, 3.545496773897156*^9, {3.545588999870443*^9,
   3.545589000069454*^9}, 3.5469077519060183`*^9, {3.546908656727285*^9,
   3.5469086680173006`*^9}, {3.5469086991073437`*^9, 3.5469086993173447`*^9},
   3.5479163032370033`*^9, 3.547955346107318*^9, {3.547955563897581*^9,
   3.5479555666567388`*^9}, 3.548179683081839*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, 3.4976636252234545`*^9, {3.4979864214265356`*^9,
   3.497986422409337*^9}, {3.4979866389377174`*^9, 3.49798665193254*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1",
    RowBox[{"z",
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}], ")"}]}]], "\[Equal]",
   RowBox[{
    FractionBox["1",
     RowBox[{"a", " ", "z"}]], "-",
    FractionBox["b",
     RowBox[{"a",
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ", "z"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
   3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
   3.497664560788298*^9, 3.4976645733775206`*^9}, {3.4979867025546293`*^9,
   3.4979867054094343`*^9}, {3.5004274880015464`*^9, 3.500427526248734*^9}, {
   3.500577748166791*^9, 3.5005777941712723`*^9}, {3.5005778953918495`*^9,
   3.5005778978566537`*^9}, {3.500583178653531*^9, 3.500583194347159*^9}, {
   3.5083583642480936`*^9, 3.5083583664580965`*^9}, {3.50843226194516*^9,
   3.508432308345225*^9}, {3.5166724284966736`*^9, 3.51667246652954*^9}, {
   3.5449976402719173`*^9, 3.544997641145519*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4982408987437143`*^9, 3.4982408987437143`*^9}, {3.503706588564927*^9,
   3.503706589604928*^9}, {3.5043957204754677`*^9, 3.504395728475479*^9},
   3.5044139444019175`*^9, 3.5077486654848785`*^9, {3.508361020591812*^9,
   3.5083610391318383`*^9}, 3.5083620191532106`*^9, {3.5084341819038615`*^9,
   3.508434182773863*^9}, {3.513377341102652*^9, 3.5133773414326525`*^9}, {
   3.514598474437108*^9, 3.5145984747071085`*^9}, {3.514752528141506*^9,
   3.514752528141506*^9}, {3.5151813933720922`*^9, 3.5151813937776933`*^9}, {
   3.544981907483283*^9, 3.5449819081432843`*^9}, {3.5449936203796816`*^9,
   3.5449936203796816`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "a"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["b", "a"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9,
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4979862492990327`*^9,
   3.4979862502662344`*^9}, {3.497987000218752*^9, 3.4979870022311554`*^9}, {
   3.500427423095834*^9, 3.5004274236088634`*^9}, {3.5004275574055157`*^9,
   3.5004276042171936`*^9}, {3.5004328122050734`*^9, 3.500432862882972*^9},
   3.500577560076061*^9, {3.5005776542858267`*^9, 3.5005776585134335`*^9}, {
   3.5005778782474194`*^9, 3.5005778816794252`*^9}, {3.5005831554094906`*^9,
   3.500583168763114*^9}, {3.5083582601079473`*^9, 3.5083582791879745`*^9}, {
   3.5084321966550684`*^9, 3.508432242745133*^9}, {3.508435338515481*^9,
   3.5084353396954823`*^9}, {3.5098472024485316`*^9,
   3.5098472051185355`*^9}, {3.515167836293977*^9, 3.51516784604399*^9},
   3.5159777406654205`*^9, {3.5166723560345464`*^9, 3.5166724183722563`*^9}, {
   3.5449978875323515`*^9, 3.544997897531969*^9}, 3.546908672177306*^9, {
   3.547916237864264*^9, 3.547916256484329*^9}, {3.5479552280311203`*^9,
   3.5479552545246353`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
       RowBox[{"(",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "a"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "-",
    " ",
    RowBox[{
     RowBox[{"b", "/", "a"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9,
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, {3.497986253963441*^9,
   3.4979862552738433`*^9}, 3.4979863375295877`*^9, {3.497986505495083*^9,
   3.497986507819487*^9}, {3.49798706165166*^9, 3.497987068765272*^9}, {
   3.497987706708393*^9, 3.497987708642796*^9}, {3.4979879276983805`*^9,
   3.497987930365986*^9}, 3.4979880679114275`*^9, 3.498497171646879*^9, {
   3.5004276750552454`*^9, 3.5004276923832364`*^9}, {3.500427741061021*^9,
   3.5004277415710497`*^9}, 3.5004329174270916`*^9, {3.500432950987011*^9,
   3.500433005771145*^9}, {3.5005779794447966`*^9, 3.5005780180236645`*^9},
   3.500578063248144*^9, 3.500578099767808*^9, {3.5005832139251933`*^9,
   3.500583240086439*^9}, {3.5083587271786013`*^9, 3.5083587379086165`*^9}, {
   3.508358813958723*^9, 3.508358816458727*^9}, {3.508432384255331*^9,
   3.508432444825416*^9}, {3.5084330622062807`*^9, 3.5084330632262816`*^9}, {
   3.5084353403254833`*^9, 3.508435341415485*^9}, {3.5098472081385393`*^9,
   3.5098472109985437`*^9}, {3.516672495249191*^9, 3.516672499991599*^9}, {
   3.516672547649683*^9, 3.516672555777297*^9}, {3.5449838311659765`*^9,
   3.5449838325859785`*^9}, 3.5449977109400415`*^9, {3.5449979171724033`*^9,
   3.544997929590025*^9}, 3.545091331552483*^9, 3.5455890071227922`*^9, {
   3.546907772656047*^9, 3.546907793426076*^9}, {3.5469080960365*^9,
   3.5469080988165035`*^9}, 3.547916226688625*^9, {3.5479162889831877`*^9,
   3.5479162917483463`*^9}, {3.5479551693553066`*^9,
   3.5479551827582865`*^9}, {3.547955332840559*^9, 3.547955336119746*^9},
   3.5481796951094604`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.54497812656551*^9, 3.5449781507428837`*^9}, {
   3.544978266727518*^9, 3.5449782753190093`*^9}, {3.544993575879619*^9,
   3.544993599319652*^9}, 3.5450134095889244`*^9, 3.545496797397188*^9, {
   3.5458631396068573`*^9, 3.545863139762858*^9}, {3.545863953101486*^9,
   3.545863953335487*^9}, 3.5460546563823614`*^9, {3.5460547411624804`*^9,
   3.546054760072507*^9}, {3.546058533675478*^9, 3.5460585338364873`*^9},
   3.5461915302898884`*^9, 3.5461929528618803`*^9, {3.546193244212288*^9,
   3.5461932462022905`*^9}, 3.5461940241233797`*^9, 3.5463159432096543`*^9, {
   3.5465418523656793`*^9, 3.546541857045686*^9}, 3.5467070482720785`*^9, {
   3.5479555681318235`*^9, 3.547955568343835*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    RowBox[{"EllipticPi", "[",
     RowBox[{
      RowBox[{"2", "m"}], ",",
      RowBox[{
       FractionBox["z", "2"], "-",
       FractionBox["\[Pi]", "4"]}], ",", "2"}], "]"}]}], "\[Equal]",
   FractionBox["1",
    RowBox[{"2", " ",
     RowBox[{"(",
      RowBox[{"1", "-", "m", "+",
       RowBox[{"m", " ",
        RowBox[{"Sin", "[", "z", "]"}]}]}], ")"}], " ",
     SqrtBox[
      RowBox[{"Sin", "[", "z", "]"}]]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, {3.497921629815009*^9, 3.497921629815009*^9}, {
   3.49792329284033*^9, 3.4979232943847327`*^9}, {3.500665574114345*^9,
   3.500665579084352*^9}, {3.5037057947638154`*^9, 3.5037058112138386`*^9}, {
   3.5037060418141613`*^9, 3.5037060779242115`*^9}, {3.508360748681432*^9,
   3.5083607522614365`*^9}, {3.5083609757217493`*^9,
   3.5083609804417562`*^9}, {3.5084356400459027`*^9,
   3.5084356664759398`*^9}, {3.5449781417163763`*^9, 3.544978143592475*^9}, {
   3.5449936653697443`*^9, 3.5449936819697676`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4982408987437143`*^9, 3.4982408987437143`*^9}, {3.503706588564927*^9,
   3.503706589604928*^9}, {3.5043957204754677`*^9, 3.504395728475479*^9},
   3.5044139444019175`*^9, 3.5077486654848785`*^9, {3.508361020591812*^9,
   3.5083610391318383`*^9}, 3.5083620191532106`*^9, {3.5084341819038615`*^9,
   3.508434182773863*^9}, {3.513377341102652*^9, 3.5133773414326525`*^9}, {
   3.514598474437108*^9, 3.5145984747071085`*^9}, {3.514752528141506*^9,
   3.514752528141506*^9}, {3.5151813933720922`*^9, 3.5151813937776933`*^9}, {
   3.544981907483283*^9, 3.5449819081432843`*^9}, {3.5449936203796816`*^9,
   3.5449936203796816`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "x"}]}], "]"}]],
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{"2", " "}],
      RowBox[{"d",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}]]}]}],
   RowBox[{"EllipticPi", "[",
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]], ",",
     RowBox[{
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"], "-",
      FractionBox["\[Pi]", "4"]}], ",", "2"}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, {3.5006637227717533`*^9,
   3.5006637494417906`*^9}, {3.500663932532047*^9, 3.5006639393020563`*^9}, {
   3.5006643002125616`*^9, 3.5006643280526004`*^9}, 3.503706090074229*^9, {
   3.503706145154306*^9, 3.5037061511543145`*^9}, {3.508360396560939*^9,
   3.5083603992109423`*^9}, {3.5083604395509987`*^9, 3.508360442121002*^9}, {
   3.5083605712611833`*^9, 3.508360573781187*^9}, {3.5083606084712353`*^9,
   3.508360644581286*^9}, {3.5083612020120664`*^9, 3.508361205492071*^9}, {
   3.5083617973929*^9, 3.5083617994829025`*^9}, {3.5084354794256783`*^9,
   3.5084354798956785`*^9}, 3.5084357037059917`*^9, {3.5098472289585686`*^9,
   3.5098472293685694`*^9}, 3.5098978090521507`*^9, 3.515126519323988*^9, {
   3.515167850503997*^9, 3.515167851933999*^9}, {3.544993622899685*^9,
   3.5449936392197075`*^9}, {3.544993703779798*^9, 3.5449937066098022`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"Pi", "/", "2"}], "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"(",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"Pi", "/", "2"}], "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}], ")"}]}], "*",
    RowBox[{"EllipticPi", "[",
     RowBox[{
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}], ",",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",", "2"}], "]"}]}],
   " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9},
   3.5006637724018226`*^9, 3.500663837491914*^9, {3.5006639475420675`*^9,
   3.5006639508120728`*^9}, {3.500664419972729*^9, 3.5006644393127565`*^9}, {
   3.5035339753347754`*^9, 3.5035339845647883`*^9}, {3.5037062012943845`*^9,
   3.503706235094432*^9}, 3.503706302204526*^9, {3.503706415274684*^9,
   3.503706444224725*^9}, {3.5037065927949324`*^9, 3.503706593814934*^9}, {
   3.505408949613805*^9, 3.505408954173811*^9}, {3.508361062741871*^9,
   3.508361078831894*^9}, {3.5083611092119365`*^9, 3.5083611620720105`*^9}, {
   3.508361235982114*^9, 3.5083612851021824`*^9}, {3.508361844782966*^9,
   3.5083618491829724`*^9}, 3.508362042403243*^9, {3.50843548083568*^9,
   3.508435481545681*^9}, {3.5084357668260803`*^9, 3.508435768476083*^9}, {
   3.5098472304585705`*^9, 3.5098472311385717`*^9}, 3.5098978853830843`*^9,
   3.5147525102414813`*^9, 3.5151267529499984`*^9, {3.541096941781111*^9,
   3.5410969665071545`*^9}, 3.5449824475540395`*^9, {3.5449836394057083`*^9,
   3.5449836419457116`*^9}, {3.544993715719815*^9, 3.544993748719861*^9}, {
   3.544993779929905*^9, 3.5449937940099244`*^9}, 3.545503372026393*^9, {
   3.546910099109304*^9, 3.5469101136993246`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"(",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}], ")"}]}], "*",
    RowBox[{"EllipticPi", "[",
     RowBox[{
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}], ",",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
       RowBox[{"Pi", "/", "4"}]}], ",", "2"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9},
   3.5006637724018226`*^9, 3.500663837491914*^9, {3.5006639475420675`*^9,
   3.5006639508120728`*^9}, {3.500664419972729*^9, 3.5006644393127565`*^9}, {
   3.5035339753347754`*^9, 3.5035339845647883`*^9}, {3.5037062012943845`*^9,
   3.503706235094432*^9}, 3.503706302204526*^9, {3.503706415274684*^9,
   3.503706444224725*^9}, {3.5037065927949324`*^9, 3.503706593814934*^9}, {
   3.505408949613805*^9, 3.505408954173811*^9}, {3.508361062741871*^9,
   3.508361078831894*^9}, {3.5083611092119365`*^9, 3.5083611620720105`*^9}, {
   3.508361235982114*^9, 3.5083612851021824`*^9}, {3.508361844782966*^9,
   3.5083618491829724`*^9}, 3.508362042403243*^9, {3.50843548083568*^9,
   3.508435481545681*^9}, {3.5084357668260803`*^9, 3.508435768476083*^9}, {
   3.5098472304585705`*^9, 3.5098472311385717`*^9}, 3.5098978853830843`*^9,
   3.5147525102414813`*^9, 3.5151267529499984`*^9, {3.541096941781111*^9,
   3.5410969665071545`*^9}, 3.5449824475540395`*^9, {3.5449836394057083`*^9,
   3.5449836419457116`*^9}, {3.544993715719815*^9, 3.544993748719861*^9},
   3.545503369076389*^9, {3.54612490776342*^9, 3.5461249077734203`*^9}, {
   3.546124949043478*^9, 3.5461249490534782`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174384048214`*^9, 3.5454174384048214`*^9},
   3.545417528214179*^9, {3.5454181767073183`*^9, 3.54541817764332*^9}, {
   3.5454188881465673`*^9, 3.5454188881465673`*^9}, {3.545418928909439*^9,
   3.545418928909439*^9}, 3.5454190278604136`*^9, 3.5454968572572722`*^9, {
   3.5461230525608225`*^9, 3.5461230525708227`*^9}, {3.5461231879510126`*^9,
   3.5461231890410137`*^9}, 3.546124171262389*^9, {3.5461244201727376`*^9,
   3.546124426162746*^9}, {3.5461936462928505`*^9, 3.5461936462928505`*^9}, {
   3.5461939614732924`*^9, 3.546193962193293*^9}, {3.546194007213356*^9,
   3.546194020643375*^9}, 3.546194059363429*^9, 3.5463159444527254`*^9, {
   3.5465364280705853`*^9, 3.5465364280705853`*^9}, {3.546569707307728*^9,
   3.5465697130150537`*^9}, 3.5467070491931314`*^9, {3.5479555697249146`*^9,
   3.5479555698899236`*^9}, {3.548179721707507*^9, 3.548179721707507*^9}, {
   3.5481799341642804`*^9, 3.5481799341642804`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "5",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, 3.5053451043844323`*^9, 3.5120643192924805`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "<",
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4992133873636045`*^9, 3.4992133892036066`*^9}, {3.4992162641476316`*^9,
   3.499216265707634*^9}, {3.4993685410928354`*^9, 3.4993685488628464`*^9}, {
   3.50031970240469*^9, 3.5003197069046965`*^9}, {3.5004320341975737`*^9,
   3.5004320353096375`*^9}, {3.5026784535032854`*^9, 3.502678461573297*^9}, {
   3.5027657904804587`*^9, 3.5027657904804587`*^9}, {3.5027672190193686`*^9,
   3.5027672190193686`*^9}, {3.5035496199411335`*^9,
   3.5035496486311736`*^9}, {3.504028649276944*^9, 3.5040286502597466`*^9},
   3.50403187501501*^9, 3.5043107662485094`*^9, {3.5047476342426376`*^9,
   3.504747635372639*^9}, {3.509473798840955*^9, 3.509473798840955*^9}, {
   3.509822537063719*^9, 3.5098225651837583`*^9}, {3.5101745308722286`*^9,
   3.5101745308722286`*^9}, {3.5101797595222597`*^9,
   3.5101797600370607`*^9}, {3.5117202705635853`*^9,
   3.5117202705635853`*^9}, {3.515198336639852*^9, 3.515198353534682*^9}, {
   3.5166676798427305`*^9, 3.5166676804667315`*^9}, {3.517075924503586*^9,
   3.517075924503586*^9}, {3.5454171998960023`*^9, 3.5454171998960023`*^9}, {
   3.5454188795353527`*^9, 3.54541888374736*^9}, {3.545418922419828*^9,
   3.5454189244166317`*^9}, {3.5454301510452504`*^9,
   3.5454301516552515`*^9}, {3.5461230526108227`*^9, 3.546123052620823*^9}, {
   3.5461231917110176`*^9, 3.5461231926810193`*^9}, {3.546124432772755*^9,
   3.546124432772755*^9}, {3.546193648652854*^9, 3.546193648652854*^9}, {
   3.5461941301335287`*^9, 3.5461941309835296`*^9}, {3.546569718066343*^9,
   3.546569718066343*^9}, {3.548179723938311*^9, 3.548179723938311*^9}, {
   3.5481799349130816`*^9, 3.5481799349130816`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]]}],
       RowBox[{"a", " ", "d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"a", " ",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "+", "1"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{
          RowBox[{"-", "b"}], " ",
          RowBox[{"(",
           RowBox[{"m", "+", "1"}], ")"}]}], "+",
         RowBox[{"a", " ",
          RowBox[{"(",
           RowBox[{"m", "+", "2"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{"m", "+", "2"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9,
   3.4991797926481485`*^9, {3.4991798252678056`*^9, 3.499179837935028*^9}, {
   3.499180927976143*^9, 3.499180938599762*^9}, {3.4991810132614927`*^9,
   3.4991810250395136`*^9}, {3.4991962578715715`*^9,
   3.4991962790096083`*^9}, {3.499196703083153*^9, 3.4991967615208554`*^9}, {
   3.499197192643613*^9, 3.499197222845266*^9}, {3.4991977240625467`*^9,
   3.4991977407233753`*^9}, {3.499197780737446*^9, 3.4991977890990605`*^9}, {
   3.4991980290346823`*^9, 3.4991980546967273`*^9}, {3.499198191403367*^9,
   3.499198208017396*^9}, {3.499198305326367*^9, 3.4991983055447674`*^9}, {
   3.499198375223689*^9, 3.4991983899189153`*^9}, 3.499198439702202*^9, {
   3.4992136675539966`*^9, 3.4992137193140693`*^9}, 3.499213754044118*^9, {
   3.4992161931675324`*^9, 3.499216193677533*^9}, {3.4992162414576*^9,
   3.4992163332577286`*^9}, {3.4992164987579603`*^9,
   3.4992165531380367`*^9}, {3.4993646678093863`*^9,
   3.4993647284894705`*^9}, {3.499364780039543*^9, 3.499364804929578*^9}, {
   3.499364846769636*^9, 3.4993648633396597`*^9}, {3.499404320916315*^9,
   3.499404323956319*^9}, {3.499404813317004*^9, 3.499404815097007*^9}, {
   3.5003179817729173`*^9, 3.5003179820537176`*^9}, 3.5003181967000947`*^9,
   3.505344641443784*^9, {3.505344693233857*^9, 3.5053447150538874`*^9},
   3.5053535583452115`*^9, {3.509473422445426*^9, 3.5094734793846827`*^9}, {
   3.509473628380205*^9, 3.5094737191313953`*^9}, {3.50955395557152*^9,
   3.509554016341605*^9}, {3.5098226762839136`*^9, 3.5098227197739744`*^9}, {
   3.5098227846940656`*^9, 3.5098227969140825`*^9}, {3.5101747541866207`*^9,
   3.510174758117828*^9}, {3.510175504516739*^9, 3.510175530958785*^9}, {
   3.5151682664045787`*^9, 3.5151682684045815`*^9}, {3.546123052660823*^9,
   3.5461230527008233`*^9}, {3.5461238506919403`*^9,
   3.5461238687819653`*^9}, {3.546124026882187*^9, 3.5461240492222185`*^9}, {
   3.5461940617134323`*^9, 3.5461941121935034`*^9}, {3.546194359213849*^9,
   3.5461943609938517`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5098228697941847`*^9, 3.5098228846842055`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"(",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"m", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"a", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"a", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "b"}], "*",
             RowBox[{"(",
              RowBox[{"m", "+", "1"}], ")"}]}], "+",
            RowBox[{"a", "*",
             RowBox[{"(",
              RowBox[{"m", "+", "2"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{"m", "+", "2"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.4991796252286544`*^9, 3.499179629191061*^9}, {
   3.4991799423928113`*^9, 3.499179956230036*^9}, {3.499179994189703*^9,
   3.49918001520294*^9}, 3.4991802628689747`*^9, {3.4991809464777756`*^9,
   3.499180955822192*^9}, {3.499181041294742*^9, 3.499181080638011*^9},
   3.4991882648154335`*^9, {3.4992137616941285`*^9, 3.4992137626741295`*^9},
   3.4992139059543304`*^9, {3.4992140832345786`*^9, 3.4992141086946144`*^9},
   3.499214216934766*^9, {3.499216208717554*^9, 3.4992162138475614`*^9}, {
   3.4992164326178675`*^9, 3.499216489837948*^9}, {3.499216616588125*^9,
   3.4992166411581593`*^9}, 3.4992167074782524`*^9, {3.499216790438369*^9,
   3.4992167911383696`*^9}, 3.499216873638485*^9, {3.4993649181097364`*^9,
   3.4993649626097984`*^9}, {3.499365011309867*^9, 3.4993650116798673`*^9}, {
   3.499365165120082*^9, 3.499365167950086*^9}, {3.4993654481904783`*^9,
   3.499365494270543*^9}, {3.4993661831115074`*^9, 3.499366184461509*^9}, {
   3.5003179820849175`*^9, 3.500317982365718*^9}, 3.5003187900234127`*^9, {
   3.5003190903738327`*^9, 3.5003191035638514`*^9}, 3.5003192263540235`*^9,
   3.5003207542961626`*^9, {3.5003443675174456`*^9, 3.5003443741274548`*^9}, {
   3.5004320294293013`*^9, 3.5004320304863615`*^9}, {3.501043261265483*^9,
   3.501043262773569*^9}, 3.50267712088142*^9, {3.5026774368118625`*^9,
   3.502677454531887*^9}, 3.502765652732217*^9, 3.502767119506794*^9, {
   3.503071848758074*^9, 3.503071858708088*^9}, {3.503071992168275*^9,
   3.5030719924982753`*^9}, {3.5035495943210974`*^9,
   3.5035496113511214`*^9}, {3.504156566262847*^9, 3.5041565676356487`*^9},
   3.505344641463784*^9, {3.505344693263857*^9, 3.505344715073887*^9},
   3.505353560095214*^9, 3.50947378686127*^9, {3.509473818845099*^9,
   3.509473822845328*^9}, 3.5094739102633276`*^9, {3.509553959581526*^9,
   3.5095539641815324`*^9}, {3.509554026171619*^9, 3.5095540448016453`*^9},
   3.5098226107938223`*^9, {3.509822869824185*^9, 3.5098228796141987`*^9},
   3.5098229439342885`*^9, {3.5098337778202195`*^9, 3.509833781470626*^9},
   3.5101745620566835`*^9, {3.5101747603174314`*^9, 3.510174763312637*^9}, {
   3.510175541130003*^9, 3.5101755617688394`*^9}, {3.5101797636874666`*^9,
   3.5101797666826725`*^9}, {3.5105908533161936`*^9, 3.510590875616225*^9},
   3.510592579348616*^9, {3.510784519084423*^9, 3.5107845228596296`*^9}, {
   3.510800280558387*^9, 3.5108003550884914`*^9}, {3.5108015724101954`*^9,
   3.510801595410228*^9}, {3.510802005240802*^9, 3.510802009550808*^9},
   3.5108029034720592`*^9, {3.510941178095128*^9, 3.5109411874651413`*^9}, {
   3.5151983110090075`*^9, 3.5151983243938303`*^9}, {3.515978489542335*^9,
   3.515978491695139*^9}, {3.5166676570822906`*^9, 3.5166676760519238`*^9},
   3.5168206561964617`*^9, 3.516823887055642*^9, 3.517075506463001*^9, {
   3.517075957223632*^9, 3.5170759665336447`*^9}, 3.5410904688097477`*^9, {
   3.5410905571147027`*^9, 3.541090571497928*^9}, {3.541976262632696*^9,
   3.541976273862712*^9}, {3.541976555673106*^9, 3.5419765570131083`*^9}, {
   3.5454188903305717`*^9, 3.5454189173030186`*^9}, {3.545491211618657*^9,
   3.545491211648657*^9}, {3.546041050593343*^9, 3.5460410527433453`*^9},
   3.5460412756236577`*^9, {3.546105998653228*^9, 3.546106023004871*^9},
   3.5461060986962037`*^9, {3.546106499757308*^9, 3.5461065216285467`*^9}, {
   3.546106583591855*^9, 3.5461066311251388`*^9}, 3.5461235006714506`*^9, {
   3.5461246078530006`*^9, 3.546124609513003*^9}, {3.5461941453435497`*^9,
   3.546194156363565*^9}, {3.546194204853633*^9, 3.546194205063633*^9}, {
   3.546194385733886*^9, 3.54619440985392*^9}, {3.546194451723978*^9,
   3.546194451923979*^9}, 3.5461945030140505`*^9, 3.546194653554261*^9,
   3.5465362956503997`*^9, 3.5465364569206257`*^9, {3.546569722769612*^9,
   3.5465697245297127`*^9}, {3.5480217832398615`*^9, 3.5480217916298733`*^9},
   3.5481785586674643`*^9, {3.548180318452155*^9, 3.5481803202929583`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454161483605556`*^9, 3.545416164506584*^9}, {
   3.5454163555601196`*^9, 3.545416365544137*^9}, {3.5454169374723415`*^9,
   3.5454169458807564`*^9}, {3.545417574686661*^9, 3.545417598882303*^9}, {
   3.545417754289776*^9, 3.545417754289776*^9}, {3.5454179024432364`*^9,
   3.5454179027240367`*^9}, {3.545418161325691*^9, 3.545418180357724*^9}, {
   3.5454190228996043`*^9, 3.5454190249432077`*^9}, {3.5454192860632668`*^9,
   3.5454192860632668`*^9}, {3.5454302733754215`*^9, 3.5454302741554227`*^9},
   3.54549685557727*^9, {3.545503673756815*^9, 3.5455036739968157`*^9}, {
   3.545594961274125*^9, 3.5455949625341268`*^9}, {3.5457198223243713`*^9,
   3.5457198225453844`*^9}, {3.546059446769704*^9, 3.5460594476657553`*^9}, {
   3.546105301340803*^9, 3.5461053176740313`*^9}, {3.546105354412096*^9,
   3.5461053552544975`*^9}, {3.5461246964031243`*^9,
   3.5461246967531247`*^9}, {3.5461916266600237`*^9, 3.546191627130024*^9}, {
   3.546193672682888*^9, 3.5461936844929047`*^9}, {3.5461947581444073`*^9,
   3.546194761734412*^9}, {3.546194800024466*^9, 3.546194826914504*^9}, {
   3.5461976991585245`*^9, 3.5461976993685255`*^9}, {3.546211387102878*^9,
   3.546211390172882*^9}, {3.546211507503047*^9, 3.546211507703047*^9},
   3.546315253309194*^9, {3.5465710581290216`*^9, 3.5465710714590397`*^9}, {
   3.548179348418852*^9, 3.548179348418852*^9}, {3.548179727339117*^9,
   3.548179727339117*^9}, {3.548179935771083*^9, 3.548179935771083*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, 3.5461955886755705`*^9, {
   3.5462104410915537`*^9, 3.5462104410915537`*^9}, 3.546315956281402*^9, {
   3.5465638280147195`*^9, 3.546563854194756*^9}, {3.5465639003448205`*^9,
   3.5465639062048287`*^9}, {3.5465711153791018`*^9, 3.546571115619102*^9}, {
   3.5481793490584526`*^9, 3.5481793490584526`*^9}, {3.548179730568323*^9,
   3.548179730568323*^9}, {3.5481799364574842`*^9, 3.5481799364574842`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5450136118276796`*^9, 3.5450137802143755`*^9, 3.545496802647196*^9, {
   3.5460548327626085`*^9, 3.5460548330226088`*^9}, 3.5461915391199007`*^9,
   3.5461955218154764`*^9, 3.546195629435627*^9, {3.5461956649756775`*^9,
   3.5461956651956778`*^9}, {3.546210208031227*^9, 3.546210208291228*^9}, {
   3.546287755592772*^9, 3.5462877574827747`*^9}, 3.546315968428097*^9, {
   3.546563929154861*^9, 3.546563929344861*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503684296481346*^9, 3.503684306324963*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083798476097994`*^9,
   3.508434297064023*^9, {3.508463496340228*^9, 3.5084635020810385`*^9},
   3.5084671393946285`*^9, 3.511723015157428*^9, 3.5117235997982464`*^9, {
   3.5117236451883097`*^9, 3.5117236579783278`*^9}, {3.5133774467128*^9,
   3.513377447592801*^9}, {3.5145989852778234`*^9, 3.514598985587824*^9}, {
   3.5148619054060187`*^9, 3.514861905696019*^9}, {3.515181495021871*^9,
   3.515181495505472*^9}, {3.5449818963432674`*^9, 3.5449818969232683`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       RowBox[{"\[Integral]",
        RowBox[{
         FractionBox["1",
          RowBox[{
           SqrtBox[
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]],
           SqrtBox[
            RowBox[{"a", "+",
             RowBox[{"b", " ",
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
         RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]}], "+",
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"1", "+",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9,
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9,
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9,
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9,
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9},
   3.503766096195198*^9, {3.5037661877253265`*^9, 3.5037662215753736`*^9}, {
   3.5037934245846434`*^9, 3.50379345749469*^9}, {3.5037935423448086`*^9,
   3.503793545024812*^9}, 3.5037936152649107`*^9, {3.50379430075587*^9,
   3.503794334785918*^9}, 3.50379511440884*^9, {3.5077498602365513`*^9,
   3.50774986646656*^9}, {3.5083772829662085`*^9, 3.5083772943262243`*^9}, {
   3.5083773590963154`*^9, 3.508377372616334*^9}, {3.508388786478467*^9,
   3.5083887924376774`*^9}, {3.5084372823782024`*^9, 3.508437284128205*^9}, {
   3.5098474132988267`*^9, 3.5098474148488293`*^9}, {3.51172374536845*^9,
   3.5117237851985064`*^9}, {3.5151679385641203`*^9, 3.515167941314124*^9},
   3.515977840085595*^9, 3.5449734378822746`*^9, 3.5450137996364098`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.503793631084933*^9, 3.503793632574935*^9}, {
   3.5037944216260395`*^9, 3.5037944225760407`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", "\n", "  ",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"1", "+",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9,
   3.5036056404067173`*^9}, {3.5036056742667646`*^9,
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9},
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9,
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9,
   3.5037659012749257`*^9}, {3.503766302475487*^9, 3.50376632618552*^9}, {
   3.503766402395627*^9, 3.503766407875635*^9}, {3.503770024751327*^9,
   3.50377002685133*^9}, {3.503794417466034*^9, 3.503794451276081*^9},
   3.503795118059246*^9, {3.50835146720002*^9, 3.5083514771000333`*^9}, {
   3.508351568700162*^9, 3.5083515849901843`*^9}, {3.5083773160962553`*^9,
   3.508377338276286*^9}, {3.508377434756421*^9, 3.5083774377764254`*^9}, {
   3.508377494506505*^9, 3.5083774993365116`*^9}, {3.508388797211286*^9,
   3.508388807647704*^9}, {3.5083889395927362`*^9, 3.508388945255546*^9}, {
   3.508437284598205*^9, 3.5084372861482077`*^9}, {3.50984741543883*^9,
   3.509847417008832*^9}, 3.5117167391086416`*^9, {3.511719388862351*^9,
   3.511719391572355*^9}, {3.511719766062879*^9, 3.5117197816929007`*^9}, {
   3.5117198420629854`*^9, 3.511719872013027*^9}, 3.511723615988269*^9, {
   3.5117238714786267`*^9, 3.5117238892586517`*^9}, {3.5117239642487564`*^9,
   3.511723997078802*^9}, {3.5117240334888535`*^9, 3.511724037738859*^9}, {
   3.5449830546748896`*^9, 3.5449830625749006`*^9}, {3.5449833740253363`*^9,
   3.544983375745339*^9}, {3.5461249079434204`*^9, 3.5461249079534206`*^9}, {
   3.5461249492234783`*^9, 3.5461249492334785`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, {3.5449769810684233`*^9, 3.5449769847296333`*^9},
   3.5450136245417023`*^9, 3.5454968057672005`*^9, {3.5460548346026115`*^9,
   3.5460548348126116`*^9}, {3.5460549164227257`*^9, 3.5460549166327257`*^9},
   3.546191541299904*^9, 3.546195525045481*^9, {3.546195639365641*^9,
   3.54619566704568*^9}, {3.5462102118512325`*^9, 3.5462102121012335`*^9},
   3.5463159630617895`*^9, {3.5465636614344854`*^9, 3.5465636643344903`*^9}, {
   3.5465639623349075`*^9, 3.546563964664911*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.503710341632182*^9, 3.503710345182187*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507750716857751*^9, 3.508434306474036*^9, 3.5086309198262815`*^9, {
   3.513377563172963*^9, 3.513377563402963*^9}, {3.5145991950481167`*^9,
   3.5145991953281174`*^9}, {3.5148619568960905`*^9, 3.514861957126091*^9}, {
   3.515181575736413*^9, 3.5151815768128147`*^9}, {3.544981901553275*^9,
   3.544981902193276*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox["a",
        RowBox[{"2", " ", "b"}]]}]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"2", "b"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"a", "+",
       RowBox[{"a", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
       RowBox[{"2", " ", "b", " ",
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]], " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9, {
   3.5086254907707424`*^9, 3.508625514779185*^9}, {3.5086256627298446`*^9,
   3.508625667441053*^9}, {3.50865434123032*^9, 3.508654344540324*^9}, {
   3.5098474300388503`*^9, 3.5098474318688526`*^9}, {3.515167990014192*^9,
   3.5151679926041956`*^9}, 3.515978008725091*^9, 3.544977067051317*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "a"}], "/",
      RowBox[{"(",
       RowBox[{"2", "*", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"a", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
          RowBox[{"2", "*", "b", "*",
           RowBox[{
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9}, {
   3.5083518540405607`*^9, 3.5083518707005844`*^9}, {3.5086256354609966`*^9,
   3.5086256788134727`*^9}, {3.5086543454803257`*^9, 3.508654347910329*^9}, {
   3.5098474323688536`*^9, 3.5098474343888564`*^9}, {3.5159780444023533`*^9,
   3.5159780454475555`*^9}, {3.544982539224168*^9, 3.544982548554181*^9}, {
   3.54498308377493*^9, 3.5449830926649427`*^9}, {3.5449835128955307`*^9,
   3.544983514345533*^9}, {3.5461249080034204`*^9, 3.5461249080134206`*^9}, {
   3.5461249492834787`*^9, 3.5461249492934785`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", ">", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, 3.5454968564872713`*^9, {
   3.5461230524008226`*^9, 3.5461230524008226`*^9}, {3.546123181351003*^9,
   3.5461231822410045`*^9}, 3.546124166712383*^9, {3.5461936273628244`*^9,
   3.5461936273628244`*^9}, 3.546194779284437*^9, {3.546194835764516*^9,
   3.546194837004518*^9}, 3.5461951940350175`*^9, {3.5461956602456703`*^9,
   3.5461956689556828`*^9}, {3.546210213591235*^9, 3.546210213791236*^9},
   3.546315964028845*^9, 3.546562428333256*^9, {3.546563665934492*^9,
   3.5465636668344936`*^9}, {3.546563719934568*^9, 3.5465637264545774`*^9}, {
   3.546563966354913*^9, 3.5465639678449154`*^9}, {3.5481797378223352`*^9,
   3.5481797378223352`*^9}, {3.5481799371438856`*^9, 3.5481799371438856`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.501729725689207*^9,
   3.5017297313520174`*^9}, 3.501729800304138*^9, 3.5053451043644323`*^9,
   3.512064350632524*^9, {3.5454331412594366`*^9, 3.5454331488594475`*^9}, {
   3.548010269270648*^9, 3.548010269830649*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", ">", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.5012692292076674`*^9, 3.5012692361876774`*^9}, {3.503000515888104*^9,
   3.503000515888104*^9}, {3.5030010047587886`*^9, 3.503001015708804*^9}, {
   3.503001063418871*^9, 3.503001064418872*^9}, {3.504243197472898*^9,
   3.5042431987328997`*^9}, {3.5044146979829726`*^9, 3.5044146985729733`*^9},
   3.504482472366866*^9, 3.505193456354334*^9, 3.509828539372401*^9, {
   3.5101745056313844`*^9, 3.5101745056313844`*^9}, {3.5101794376000943`*^9,
   3.510179438036895*^9}, {3.511720227183525*^9, 3.511720227183525*^9}, {
   3.545417174155957*^9, 3.545417174155957*^9}, {3.5454188726401405`*^9,
   3.5454188726401405`*^9}, {3.5454301491152477`*^9,
   3.5454301498152485`*^9}, {3.5461230524408226`*^9,
   3.5461230524408226`*^9}, {3.5461231845110073`*^9, 3.546123185391009*^9}, {
   3.546193633682833*^9, 3.546193633682833*^9}, {3.5461948475845327`*^9,
   3.546194848534534*^9}, {3.546563731474584*^9, 3.546563731474584*^9}, {
   3.5481797408487406`*^9, 3.5481797408487406`*^9}, {3.548179938048687*^9,
   3.548179938048687*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"2",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "2"}]],
         SqrtBox[
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
        RowBox[{"b", " ", "d", " ",
         RowBox[{"(",
          RowBox[{
           RowBox[{"2", "m"}], "-", "1"}], ")"}]}]]}]}]}]}]}], "+",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["1",
    RowBox[{"b", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"2", "m"}], "-", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "-", "3"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{"2", " ", "a", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "2"}], ")"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", " ", "m"}], "-", "3"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "-",
         RowBox[{"2", " ", "a", " ",
          RowBox[{"(",
           RowBox[{"m", "-", "1"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5461230524808226`*^9,
   3.546123052510823*^9}, {3.5461238335819163`*^9, 3.5461238460719337`*^9}, {
   3.546124014232169*^9, 3.54612402153218*^9}, {3.546124396912705*^9,
   3.546124403832715*^9}, {3.5461935146726665`*^9, 3.54619351733267*^9}, {
   3.546194856484545*^9, 3.5461949989647446`*^9}, {3.546573406252309*^9,
   3.5465734081123114`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "-", "2"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "-", "1"}], ")"}]}], ")"}]}]}], " ", "+",
    " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "*", "m"}], "-", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-", "3"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{"2", "*", "a", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "2"}], ")"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "-", "3"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "-",
            RowBox[{"2", "*", "a", "*",
             RowBox[{"(",
              RowBox[{"m", "-", "1"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", ">", "2"}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9,
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9,
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9,
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9},
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9,
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9,
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9},
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9,
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9,
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9,
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9},
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9,
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9},
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9,
   3.5454189017497916`*^9}, {3.545491211558657*^9, 3.5454912115886574`*^9},
   3.545503553376647*^9, {3.546041042293331*^9, 3.546041044673334*^9},
   3.546041265173643*^9, {3.5461059986220284`*^9, 3.5461060229580708`*^9},
   3.546106098665004*^9, {3.546106499726108*^9, 3.5461065215973463`*^9}, {
   3.546106583529455*^9, 3.546106612514306*^9}, {3.54612348614143*^9,
   3.5461234970314455`*^9}, {3.5461244095627227`*^9,
   3.5461244143727293`*^9}, {3.5461246026129932`*^9, 3.546124604232995*^9},
   3.5461936387428403`*^9, {3.5461950338047934`*^9, 3.546195140514943*^9},
   3.5465362994604053`*^9, {3.5465637339345875`*^9, 3.54656373566459*^9}, {
   3.5480218067698946`*^9, 3.5480218117499013`*^9}, {3.548180374534254*^9,
   3.5481803767026577`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, {3.5460551861931033`*^9,
   3.5460552138331423`*^9}, 3.5461915217798767`*^9, {3.546191567839941*^9,
   3.5461915680799417`*^9}, {3.546191800330267*^9, 3.546191801920269*^9}, {
   3.54619300971196*^9, 3.5461930368819976`*^9}, {3.5461930910520735`*^9,
   3.5461930910520735`*^9}, 3.546193179872198*^9, {3.5461955886755705`*^9,
   3.5461956023755894`*^9}, {3.546195703895732*^9, 3.546195704105732*^9},
   3.546315957155452*^9, {3.5465668300392804`*^9, 3.546566831509282*^9}, {
   3.546566916869402*^9, 3.546566952429452*^9}, {3.5465673002968345`*^9,
   3.546567300468435*^9}, {3.548179745045148*^9, 3.548179745045148*^9}, {
   3.5481799387818885`*^9, 3.5481799387818885`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.5449982729778285`*^9, {3.5450664353216248`*^9,
   3.5450664355316253`*^9}, {3.545070626297492*^9, 3.5450706366475067`*^9},
   3.5450708056077433`*^9, {3.545070991328003*^9, 3.5450709915480037`*^9},
   3.545496777627161*^9, {3.546908350726856*^9, 3.5469083521368585`*^9}, {
   3.546908407536936*^9, 3.54690841057694*^9}, {3.546908632617251*^9,
   3.5469086328872514`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{"a", "+", "b"}], ">", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.5449788142409177`*^9, 3.5449788210485277`*^9},
   3.544978906681848*^9, {3.545005139240287*^9, 3.545005139911088*^9}, {
   3.5450054955605125`*^9, 3.545005504312128*^9}, 3.545005561626629*^9, {
   3.545066438471629*^9, 3.5450664386116295`*^9}, 3.545068930415118*^9,
   3.5450690928553457`*^9, {3.545069197735492*^9, 3.5450692250155306`*^9}, {
   3.545069478875886*^9, 3.5450694839558926`*^9}, 3.5450709983680134`*^9,
   3.545496778377162*^9, {3.546908358316867*^9, 3.546908359526869*^9}, {
   3.5469084010369267`*^9, 3.5469084133269444`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"a", "+", "b"}], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4982408987437143`*^9, 3.4982408987437143`*^9}, {3.503706588564927*^9,
   3.503706589604928*^9}, {3.5043957204754677`*^9, 3.504395728475479*^9},
   3.5044139444019175`*^9, 3.5077486654848785`*^9, {3.508361020591812*^9,
   3.5083610391318383`*^9}, 3.5083620191532106`*^9, {3.5084341819038615`*^9,
   3.508434182773863*^9}, {3.513377341102652*^9, 3.5133773414326525`*^9}, {
   3.514598474437108*^9, 3.5145984747071085`*^9}, {3.514752528141506*^9,
   3.514752528141506*^9}, {3.5151813933720922`*^9, 3.5151813937776933`*^9}, {
   3.5450694087357874`*^9, 3.545069428685816*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      RowBox[{"2", " "}],
      RowBox[{"d",
       SqrtBox[
        RowBox[{"a", "+", "b", " "}]]}]]}]}],
   RowBox[{"EllipticPi", "[",
    RowBox[{"2", ",",
     RowBox[{
      FractionBox[
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "2"], "-",
      FractionBox["\[Pi]", "4"]}], ",",
     FractionBox[
      RowBox[{"2", " ", "b"}],
      RowBox[{"a", "+", "b"}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, {3.5006637227717533`*^9,
   3.5006637494417906`*^9}, {3.500663932532047*^9, 3.5006639393020563`*^9}, {
   3.5006643002125616`*^9, 3.5006643280526004`*^9}, 3.503706090074229*^9, {
   3.503706145154306*^9, 3.5037061511543145`*^9}, {3.508360396560939*^9,
   3.5083603992109423`*^9}, {3.5083604395509987`*^9, 3.508360442121002*^9}, {
   3.5083605712611833`*^9, 3.508360573781187*^9}, {3.5083606084712353`*^9,
   3.508360644581286*^9}, {3.5083612020120664`*^9, 3.508361205492071*^9}, {
   3.5083617973929*^9, 3.5083617994829025`*^9}, {3.5084354794256783`*^9,
   3.5084354798956785`*^9}, 3.5084357037059917`*^9, {3.5098472289585686`*^9,
   3.5098472293685694`*^9}, 3.5098978090521507`*^9, 3.515126519323988*^9, {
   3.515167850503997*^9, 3.515167851933999*^9}, {3.5450692619555817`*^9,
   3.5450693121356525`*^9}, {3.545069389795761*^9, 3.545069396765771*^9},
   3.5469084229669576`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"Pi", "/", "2"}], "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"Pi", "/", "2"}], "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{"a", "+", "b"}], ",", "2"}], "]"}]}], ")"}]}], "*",
    RowBox[{"EllipticPi", "[",
     RowBox[{"2", ",",
      RowBox[{
       RowBox[{"(",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9},
   3.5006637724018226`*^9, 3.500663837491914*^9, {3.5006639475420675`*^9,
   3.5006639508120728`*^9}, {3.500664419972729*^9, 3.5006644393127565`*^9}, {
   3.5035339753347754`*^9, 3.5035339845647883`*^9}, {3.5037062012943845`*^9,
   3.503706235094432*^9}, 3.503706302204526*^9, {3.503706415274684*^9,
   3.503706444224725*^9}, {3.5037065927949324`*^9, 3.503706593814934*^9}, {
   3.505408949613805*^9, 3.505408954173811*^9}, {3.508361062741871*^9,
   3.508361078831894*^9}, {3.5083611092119365`*^9, 3.5083611620720105`*^9}, {
   3.508361235982114*^9, 3.5083612851021824`*^9}, {3.508361844782966*^9,
   3.5083618491829724`*^9}, 3.508362042403243*^9, {3.50843548083568*^9,
   3.508435481545681*^9}, {3.5084357668260803`*^9, 3.508435768476083*^9}, {
   3.5098472304585705`*^9, 3.5098472311385717`*^9}, 3.5098978853830843`*^9,
   3.5147525102414813`*^9, 3.5151267529499984`*^9, {3.541096941781111*^9,
   3.5410969665071545`*^9}, {3.5450695171859393`*^9, 3.5450695215259457`*^9},
   3.5450695542359915`*^9, {3.5450696186360817`*^9, 3.545069618906082*^9}, {
   3.545069673386158*^9, 3.5450697581762767`*^9}, {3.5450697922063246`*^9,
   3.5450698030263395`*^9}, 3.5455031472160783`*^9, {3.5469094146383457`*^9,
   3.54690944608839*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"2", "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Rt", "[",
        RowBox[{
         RowBox[{"a", "+", "b"}], ",", "2"}], "]"}]}], ")"}]}], "*",
    RowBox[{"EllipticPi", "[",
     RowBox[{"2", ",",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], ")"}], "/", "2"}], "-",
       RowBox[{"Pi", "/", "4"}]}], ",",
      RowBox[{"2", "*",
       RowBox[{"b", "/",
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{"a", "+", "b"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9},
   3.5006637724018226`*^9, 3.500663837491914*^9, {3.5006639475420675`*^9,
   3.5006639508120728`*^9}, {3.500664419972729*^9, 3.5006644393127565`*^9}, {
   3.5035339753347754`*^9, 3.5035339845647883`*^9}, {3.5037062012943845`*^9,
   3.503706235094432*^9}, 3.503706302204526*^9, {3.503706415274684*^9,
   3.503706444224725*^9}, {3.5037065927949324`*^9, 3.503706593814934*^9}, {
   3.505408949613805*^9, 3.505408954173811*^9}, {3.508361062741871*^9,
   3.508361078831894*^9}, {3.5083611092119365`*^9, 3.5083611620720105`*^9}, {
   3.508361235982114*^9, 3.5083612851021824`*^9}, {3.508361844782966*^9,
   3.5083618491829724`*^9}, 3.508362042403243*^9, {3.50843548083568*^9,
   3.508435481545681*^9}, {3.5084357668260803`*^9, 3.508435768476083*^9}, {
   3.5098472304585705`*^9, 3.5098472311385717`*^9}, 3.5098978853830843`*^9,
   3.5147525102414813`*^9, 3.5151267529499984`*^9, {3.541096941781111*^9,
   3.5410969665071545`*^9}, {3.5450695171859393`*^9, 3.5450695215259457`*^9},
   3.5450695542359915`*^9, {3.5450696186360817`*^9, 3.545069618906082*^9}, {
   3.545069673386158*^9, 3.5450697581762767`*^9}, 3.545503144126074*^9, {
   3.546908459707009*^9, 3.546908482397041*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"\[Not]",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, {3.5449788142409177`*^9, 3.5449788210485277`*^9},
   3.544978906681848*^9, {3.545005139240287*^9, 3.545005139911088*^9}, {
   3.5450054955605125`*^9, 3.545005504312128*^9}, 3.545005561626629*^9, {
   3.545066438471629*^9, 3.5450664386116295`*^9}, 3.545068930415118*^9,
   3.5450690928553457`*^9, {3.545069197735492*^9, 3.5450692250155306`*^9}, {
   3.545069478875886*^9, 3.5450694839558926`*^9}, {3.5450700506766863`*^9,
   3.545070059696699*^9}, 3.5450709993780146`*^9, 3.5454967791071625`*^9, {
   3.5469083608268704`*^9, 3.5469083619268723`*^9}, 3.5469084266169624`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    FractionBox[
     SqrtBox[
      FractionBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"f", "[", "x", "]"}]}]}],
       RowBox[{"a", "+", "b"}]]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"f", "[", "x", "]"}]}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.508354923854859*^9,
   3.508354923854859*^9}, {3.508361590872611*^9, 3.5083615983626213`*^9}, {
   3.508361640892681*^9, 3.508361643482684*^9}, {3.5450702320869403`*^9,
   3.5450702393769503`*^9}, {3.546908577097173*^9, 3.5469085825671806`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"\[Not]",
    RowBox[{"(",
     RowBox[{
      RowBox[{"a", "+", "b"}], ">", "0"}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4976405001418433`*^9, 3.497640503464649*^9}, {3.4982409098137293`*^9,
   3.4982409098137293`*^9}, {3.5048085379984636`*^9, 3.504808538938465*^9}, {
   3.508089230767253*^9, 3.5080892310272536`*^9}, {3.5083548759647913`*^9,
   3.508354876324792*^9}, {3.508361467982439*^9, 3.5083614706124425`*^9}, {
   3.5083620300732255`*^9, 3.508362030923227*^9}, {3.508434186573868*^9,
   3.508434187373869*^9}, {3.5133773446126566`*^9, 3.5133773448626575`*^9}, {
   3.514598478757114*^9, 3.514598478997114*^9}, {3.514752515641489*^9,
   3.514752519351494*^9}, {3.5151814143385296`*^9, 3.51518141465053*^9}, {
   3.545070106316764*^9, 3.5450701221767864`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox[
      SqrtBox[
       FractionBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}],
        RowBox[{"a", "+", "b"}]]],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "x"}]}], "]"}]}]}]]]}]}],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       SqrtBox[
        RowBox[{
         FractionBox["a",
          RowBox[{"a", "+", "b"}]], "+",
         RowBox[{
          FractionBox["b",
           RowBox[{"a", "+", "b"}]],
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.4976403449059706`*^9, {3.4976403873536453`*^9, 3.4976403923456535`*^9}, {
   3.497921629815009*^9, 3.4979216298306093`*^9}, {3.5006641158123035`*^9,
   3.5006641274723196`*^9}, {3.508358394388136*^9, 3.508358411038159*^9},
   3.508361500402484*^9, {3.5083615333425303`*^9, 3.508361542652543*^9}, {
   3.5083615795225945`*^9, 3.5083615871326056`*^9}, {3.508361670232722*^9,
   3.508361677232732*^9}, {3.508361820762933*^9, 3.5083618313229475`*^9}, {
   3.5084354901456933`*^9, 3.5084354932356977`*^9}, {3.5098472348585773`*^9,
   3.5098472380485816`*^9}, {3.5151678664840193`*^9, 3.515167872074027*^9},
   3.5159777715378747`*^9, {3.5450701368068066`*^9, 3.545070207266906*^9},
   3.5469084293469667`*^9, {3.5469085200870934`*^9, 3.546908522877097*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.508361922653075*^9, 3.508361926853081*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"sin", "[",
        RowBox[{"c_.", "+",
         RowBox[{"d_.", "*", "x_"}]}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}], "]"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a", "+",
       RowBox[{"b", "*",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"1", "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{
           RowBox[{"a", "/",
            RowBox[{"(",
             RowBox[{"a", "+", "b"}], ")"}]}], "+",
           RowBox[{
            RowBox[{"b", "/",
             RowBox[{"(",
              RowBox[{"a", "+", "b"}], ")"}]}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"PositiveQ", "[",
      RowBox[{"a", "+", "b"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.4976403184795237`*^9, {3.4979216298306093`*^9, 3.4979216298306093`*^9},
   3.4979234149105444`*^9, {3.5006642208124504`*^9, 3.500664251262493*^9}, {
   3.501042441201578*^9, 3.5010424423236423`*^9}, 3.50835876856866*^9, {
   3.5083588359887543`*^9, 3.5083588493687725`*^9}, {3.508361474002447*^9,
   3.508361475222449*^9}, 3.508361508152495*^9, 3.508361863982993*^9, {
   3.5083619341530914`*^9, 3.508361969583141*^9}, 3.508362668234119*^9, {
   3.508435494305699*^9, 3.5084354965157022`*^9}, {3.5098472409785852`*^9,
   3.5098472447485905`*^9}, {3.5147524449513903`*^9, 3.514752450151397*^9}, {
   3.545070318167061*^9, 3.5450704308772182`*^9}, 3.5455032973862886`*^9,
   3.5469084900570517`*^9, {3.5469085302071075`*^9, 3.5469085509171367`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460548254225984`*^9, 3.5460548255925984`*^9}, 3.5461915355198956`*^9,
   3.546195518325472*^9, {3.546195607615597*^9, 3.546195611405602*^9}, {
   3.5461957387357807`*^9, 3.5461957389257803`*^9}, {3.546286178060563*^9,
   3.546286185550574*^9}, 3.546315987684198*^9, {3.546566807399249*^9,
   3.546566807579249*^9}, {3.546908634197253*^9, 3.5469086344072533`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"b", ">", "0"}], " ", "\[And]", " ",
       RowBox[{
        RowBox[{
         SuperscriptBox["b", "2"], "-",
         SuperscriptBox["a", "2"]}], ">", "0"}]}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.544974096328231*^9, {
   3.5449741904119964`*^9, 3.544974195872006*^9}, 3.545086936104328*^9,
   3.5454968088172045`*^9, 3.5461915366198974`*^9, 3.546195519405473*^9,
   3.5461956167656097`*^9, 3.546286180040566*^9, 3.5463160061632547`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503684296481346*^9, 3.503684306324963*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"b", ">", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{"b", "-", "a"}], ">", "0"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+",
     RowBox[{"b", " ", "z"}]}]], "=",
   RowBox[{
    SqrtBox[
     RowBox[{"1", "+", "z"}]], " ",
    SqrtBox[
     FractionBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ", "z"}]}],
      RowBox[{"1", "+", "z"}]]]}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, {3.503683954247945*^9, 3.5036839576799507`*^9}, {
   3.503684195673969*^9, 3.503684222053615*^9}, {3.5037654709570775`*^9,
   3.5037654754070835`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"b", ">", "0"}], " ", "\[And]", " ",
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-",
     SuperscriptBox["a", "2"]}], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9},
   3.4976397903561964`*^9, {3.4976402447225943`*^9, 3.497640274612247*^9}, {
   3.4982408987437143`*^9, 3.4982408987437143`*^9}, {3.503605565226612*^9,
   3.503605598986659*^9}, 3.5036070990887594`*^9, {3.5036095247521553`*^9,
   3.50360952795216*^9}, {3.5043956403553553`*^9, 3.504395669285396*^9}, {
   3.50441396742195*^9, 3.50441398186197*^9}, {3.508349669007502*^9,
   3.508349669867503*^9}, {3.508436407966978*^9, 3.5084364084969788`*^9}, {
   3.5133773557026725`*^9, 3.513377356212673*^9}, {3.514598496737139*^9,
   3.51459849758714*^9}, {3.5148618502159414`*^9, 3.514861850735942*^9}, {
   3.515181460639411*^9, 3.5151814614974127`*^9}, {3.544981879613244*^9,
   3.5449818800532446`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     FractionBox["2",
      RowBox[{"d",
       SqrtBox[
        RowBox[{"a", "+", "b"}]]}]]}]}],
   RowBox[{"Subst", "[",
    RowBox[{
     RowBox[{"\[Integral]",
      RowBox[{
       FractionBox["1",
        RowBox[{" ",
         RowBox[{
          SqrtBox[
           RowBox[{"1", "-",
            SuperscriptBox["x", "2"]}]], " ",
          SqrtBox[
           RowBox[{"1", "+",
            FractionBox[
             RowBox[{
              RowBox[{"(",
               RowBox[{"a", "-", "b"}], ")"}], " ",
              SuperscriptBox["x", "2"]}],
             RowBox[{"a", "+", "b"}]]}]]}]}]],
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",",
     RowBox[{"Tan", "[",
      RowBox[{
       FractionBox[
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "2"], "-",
       FractionBox["\[Pi]", "4"]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9,
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9,
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9,
   3.5036842678708954`*^9}, {3.5037774212685356`*^9, 3.503777436010562*^9}, {
   3.5037823964368377`*^9, 3.5037823991968412`*^9}, 3.505344639733782*^9, {
   3.50534468850385*^9, 3.505344713383885*^9}, {3.505350995614727*^9,
   3.505350998531932*^9}, {3.5053510613688426`*^9, 3.5053510679832544`*^9}, {
   3.509847251998601*^9, 3.509847252648602*^9}, 3.509899124269702*^9,
   3.5151265464680357`*^9, {3.5151678947740583`*^9, 3.5151678961840606`*^9}, {
   3.5450122064368114`*^9, 3.5450122079656143`*^9}, {3.545012258696903*^9,
   3.545012319084609*^9}, {3.545012424790395*^9, 3.5450124322940083`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   FractionBox["1",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"-",
      FractionBox["2",
       RowBox[{"d", " ",
        SqrtBox[
         RowBox[{"a", "+", "b"}]]}]]}]}]}],
   RowBox[{"EllipticF", "[",
    RowBox[{
     RowBox[{"ArcSin", "[",
      FractionBox[
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]], "]"}], ",",
     RowBox[{"-",
      FractionBox[
       RowBox[{"a", "-", "b"}],
       RowBox[{"a", "+", "b"}]]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9},
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9,
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9,
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9,
   3.5036842678708954`*^9}, {3.5037774212685356`*^9, 3.503777436010562*^9}, {
   3.5037823964368377`*^9, 3.5037823991968412`*^9}, 3.505344639733782*^9, {
   3.50534468850385*^9, 3.505344713383885*^9}, {3.505350995614727*^9,
   3.505350998531932*^9}, {3.5053510613688426`*^9, 3.5053510679832544`*^9}, {
   3.509847251998601*^9, 3.509847252648602*^9}, 3.509899124269702*^9,
   3.5151265464680357`*^9, {3.5151678947740583`*^9, 3.5151678961840606`*^9}, {
   3.545624832278845*^9, 3.5456248579288807`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+", "b"}], "]"}]}], ")"}]}], "*",
    RowBox[{"EllipticF", "[",
     RowBox[{
      RowBox[{"ArcSin", "[",
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "/",
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}]}], "]"}], ",",
      RowBox[{
       RowBox[{"-",
        RowBox[{"(",
         RowBox[{"a", "-", "b"}], ")"}]}], "/",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"PositiveQ", "[", "b", "]"}], " ", "&&", " ",
    RowBox[{"PositiveQ", "[",
     RowBox[{
      RowBox[{"b", "^", "2"}], "-",
      RowBox[{"a", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9,
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9,
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9,
   3.5036056404067173`*^9}, {3.5036056742667646`*^9,
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9},
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9,
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.503777634718511*^9,
   3.505344639743782*^9, {3.50534468852385*^9, 3.5053447133938847`*^9}, {
   3.505351124392953*^9, 3.505351125781356*^9}, {3.5053512048422947`*^9,
   3.505351206059097*^9}, {3.5054094144644556`*^9, 3.5054094199744635`*^9},
   3.5054106502561855`*^9, {3.509847255348606*^9, 3.5098472567486076`*^9},
   3.5098992293798494`*^9, 3.511718679451358*^9, {3.5410969812491803`*^9,
   3.5410969917479987`*^9}, {3.544981969863371*^9, 3.5449819748433776`*^9},
   3.54498219089368*^9, 3.545624870268898*^9, 3.5456249063989487`*^9, {
   3.5461249078834205`*^9, 3.54612490789342*^9}, {3.546124949163478*^9,
   3.546124949173478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "x"}]}], "]"}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.544974096328231*^9, {
   3.5449741904119964`*^9, 3.544974195872006*^9}, {3.544974238444481*^9,
   3.5449742523909054`*^9}, 3.5450869371643295`*^9, 3.5454968095072055`*^9,
   3.546191537759899*^9, 3.546195520465475*^9, 3.546195617975611*^9,
   3.5462861809905677`*^9, 3.5463160070653067`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}}],

Cell[TextData[{
 "Basis:  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "z"],
    RowBox[{"(",
     RowBox[{
      FractionBox[
       SqrtBox[
        RowBox[{"1", "+",
         RowBox[{"f", "[", "z", "]"}]}]],
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"f", "[", "z", "]"}]}]}]]],
      SqrtBox[
       FractionBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"f", "[", "z", "]"}]}]}],
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+", "b"}], ")"}], " ",
         RowBox[{"(",
          RowBox[{"1", "+",
           RowBox[{"f", "[", "z", "]"}]}], ")"}]}]]]}], ")"}]}], "=", "0"}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9,
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9,
   3.5020747057249823`*^9}, 3.5036876317117357`*^9, {3.503777261976656*^9,
   3.503777261976656*^9}, {3.50377732690397*^9, 3.503777330211176*^9}, {
   3.5083546327544513`*^9, 3.5083546327544513`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9,
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9,
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5043956882954226`*^9,
   3.5043956903754253`*^9}, {3.504413989671981*^9, 3.5044139906119823`*^9}, {
   3.508349676627513*^9, 3.5083496789575157`*^9}, {3.5083498289477262`*^9,
   3.508349830097728*^9}, {3.5084364111669827`*^9, 3.5084364120169835`*^9}, {
   3.513377358912677*^9, 3.513377359882678*^9}, {3.514598503227148*^9,
   3.514598503727149*^9}, {3.5148618531959457`*^9, 3.514861854145947*^9}, {
   3.515181466848222*^9, 3.515181467129022*^9}, {3.5449818927132626`*^9,
   3.5449818933232636`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   RowBox[{
    FractionBox["1",
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]], "  ",
    "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
    RowBox[{"-",
     FractionBox[
      RowBox[{"2",
       SqrtBox[
        RowBox[{"1", "+",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]]}],
      RowBox[{"d", " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]]}]}],
   SqrtBox[
    FractionBox[
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}],
     RowBox[{
      RowBox[{"(",
       RowBox[{"a", "+", "b"}], ")"}], " ",
      RowBox[{"(",
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}]]],
   RowBox[{"EllipticF", "[",
    RowBox[{
     RowBox[{"ArcSin", "[",
      FractionBox[
       RowBox[{"Cos", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]], "]"}], ",",
     RowBox[{"-",
      FractionBox[
       RowBox[{"a", "-", "b"}],
       RowBox[{"a", "+", "b"}]]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9, {
   3.499181573474478*^9, 3.4991815792464876`*^9}, 3.499195925538187*^9, {
   3.4991960148327436`*^9, 3.499196047374401*^9}, {3.499196488738776*^9,
   3.4991965109376154`*^9}, {3.4991970152869015`*^9,
   3.4991970433669505`*^9}, {3.4991975590298567`*^9, 3.4991975836467*^9}, {
   3.4991979074480686`*^9, 3.499197932158512*^9}, {3.499742519883661*^9,
   3.4997425472617087`*^9}, {3.5011181143357334`*^9, 3.5011181273149557`*^9},
   3.501179197021654*^9, {3.5011792510017295`*^9, 3.501179254971735*^9}, {
   3.5011792888417826`*^9, 3.501179298811796*^9}, {3.501179998042775*^9,
   3.501180045592842*^9}, 3.501265975269102*^9, {3.501266032579182*^9,
   3.5012660696292343`*^9}, {3.501807279395517*^9, 3.5018073209227896`*^9}, {
   3.501814357417549*^9, 3.5018144174776545`*^9}, {3.501821754446142*^9,
   3.5018217794997864`*^9}, {3.501821876204356*^9, 3.501821879620762*^9}, {
   3.501821941724471*^9, 3.5018219589781017`*^9}, {3.5020737562757144`*^9,
   3.5020738155090184`*^9}, {3.502074068873864*^9, 3.502074103287524*^9}, {
   3.502074222097333*^9, 3.502074222580934*^9}, {3.502074331141525*^9,
   3.5020743532623634`*^9}, {3.5036875972516875`*^9,
   3.5036876078817024`*^9}, {3.503776844254722*^9, 3.5037768678107634`*^9},
   3.5037769050792294`*^9, 3.5037769395396895`*^9, {3.503776970271744*^9,
   3.5037770037806025`*^9}, {3.503777077709132*^9, 3.5037771161787996`*^9}, {
   3.5037824089768553`*^9, 3.5037824099068565`*^9}, 3.505344639763782*^9, {
   3.50534468858385*^9, 3.505344713403885*^9}, 3.505351198773884*^9, {
   3.5098472609886136`*^9, 3.509847272168629*^9}, 3.509899127729707*^9,
   3.51512655454885*^9, {3.5151679002740664`*^9, 3.5151679016540685`*^9}, {
   3.5456249812690535`*^9, 3.5456249843590574`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5012670809206495`*^9, 3.5012670907806635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], "*",
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"1", "+",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}], "/",
     RowBox[{"(",
      RowBox[{"d", "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], "*",
    "\[IndentingNewLine]", "    ",
    RowBox[{"Sqrt", "[",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
      RowBox[{"(",
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}]}], ")"}]}], "]"}], "*",
    "\n", "    ",
    RowBox[{"EllipticF", "[",
     RowBox[{
      RowBox[{"ArcSin", "[",
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "/",
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}]}], "]"}], ",",
      RowBox[{
       RowBox[{"-",
        RowBox[{"(",
         RowBox[{"a", "-", "b"}], ")"}]}], "/",
       RowBox[{"(",
        RowBox[{"a", "+", "b"}], ")"}]}]}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.499181675186656*^9, 3.499181679773064*^9},
   3.4991823918679156`*^9, {3.4991882276873684`*^9, 3.499188229356571*^9}, {
   3.49919728726818*^9, 3.4991972888593826`*^9}, {3.4997425667461433`*^9,
   3.4997425851853757`*^9}, 3.500320390145653*^9, 3.5003482038628163`*^9, {
   3.5011793846419163`*^9, 3.501179392151927*^9}, 3.5011795929422083`*^9,
   3.5011797763524647`*^9, {3.5011800601028624`*^9, 3.5011800638228674`*^9},
   3.5012661176193013`*^9, 3.5012669663704896`*^9, {3.5012671075006866`*^9,
   3.501267115460698*^9}, 3.501278519870695*^9, {3.5018074432426043`*^9,
   3.5018074743646593`*^9}, {3.5018143414119205`*^9, 3.501814351099538*^9}, {
   3.501814518472232*^9, 3.501814522715439*^9}, {3.5018220094909906`*^9,
   3.5018220205046096`*^9}, 3.501822074792705*^9, {3.5018781794437113`*^9,
   3.501878180493713*^9}, 3.5019102651535845`*^9, 3.5019701782616205`*^9,
   3.501970419331958*^9, {3.5020738720435176`*^9, 3.502073942243641*^9}, {
   3.5020741121795397`*^9, 3.5020741279043674`*^9}, {3.502074235014156*^9,
   3.5020742444521723`*^9}, {3.5020743100034876`*^9, 3.502074313622694*^9}, {
   3.502074430045698*^9, 3.5020744584377484`*^9}, 3.5020748031939535`*^9, {
   3.5036876601817756`*^9, 3.503687665111782*^9}, {3.5036877336618786`*^9,
   3.5036877357018814`*^9}, {3.503687824822006*^9, 3.5036878312620153`*^9}, {
   3.5036915244191866`*^9, 3.5036915313691964`*^9}, {3.503768459687133*^9,
   3.5037684669371433`*^9}, 3.503770433351899*^9, {3.503772360984661*^9,
   3.5037723695846734`*^9}, 3.5037749445282784`*^9, 3.503777192634534*^9, {
   3.5037775786832128`*^9, 3.5037775818344183`*^9}, 3.5037776183228827`*^9,
   3.505344639773782*^9, {3.5053446886038504`*^9, 3.505344713413885*^9},
   3.505351244903165*^9, 3.505409429404476*^9, 3.5054106512461867`*^9, {
   3.5098472876286507`*^9, 3.509847288228652*^9}, 3.5098992372498603`*^9,
   3.51171868840137*^9, {3.5410969999068127`*^9, 3.541097025678058*^9},
   3.5449824286140127`*^9, {3.54498289812467*^9, 3.544982902814677*^9},
   3.545624995969074*^9, 3.545786602943981*^9, {3.5461249079134207`*^9,
   3.5461249079234204`*^9}, {3.546124949193478*^9, 3.546124949203478*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"3", "/", "2"}]], " ",
       SqrtBox[
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544979015118001*^9, 3.544979199075061*^9, {
   3.5450137301226873`*^9, 3.545013732743492*^9}, 3.5454968125572095`*^9, {
   3.5460549146927233`*^9, 3.5460549149127235`*^9}, 3.5461915402099023`*^9,
   3.5461955231854787`*^9, 3.5461956505456567`*^9, {3.5461957401857824`*^9,
   3.5461957403557825`*^9}, 3.546315981717857*^9, 3.5465668093292513`*^9, {
   3.5469086355572553`*^9, 3.5469086357672553`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017234466769753`*^9, {3.503797992634972*^9, 3.5037979962649775`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.507684122532527*^9, 3.507742990280357*^9, 3.5077509590780897`*^9,
   3.5077529201288404`*^9, 3.5083803820005474`*^9, 3.508434335004076*^9, {
   3.5086310673401403`*^9, 3.5086310675897408`*^9}, {3.5133775979830112`*^9,
   3.5133775990030127`*^9}, {3.514599228538164*^9, 3.514599228828164*^9}, {
   3.5148619906661377`*^9, 3.5148619915461392`*^9}, {3.5151816255629005`*^9,
   3.5151816262805014`*^9}, {3.544981936353324*^9, 3.5449819370533247`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"\[Integral]",
       RowBox[{
        FractionBox["1",
         RowBox[{
          SqrtBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]], " ",
          SqrtBox[
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
        RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "+",
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     RowBox[{"1", "-",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]}],
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]], " ",
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, 3.507683421904096*^9, {
   3.507683488251013*^9, 3.507683515909861*^9}, {3.5086316371779413`*^9,
   3.5086316614047837`*^9}, {3.508654589030667*^9, 3.508654590610669*^9}, {
   3.5098474548888855`*^9, 3.5098474565488873`*^9}, {3.5151680363542566`*^9,
   3.515168039414261*^9}, 3.5159779362653637`*^9, 3.5449791878974447`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"3", "/", "2"}], ")"}]}], "*",
       RowBox[{"Sqrt", "[",
        RowBox[{"a_", "+",
         RowBox[{"b_.", "*",
          RowBox[{"sin", "[",
           RowBox[{"c_.", "+",
            RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{"1", "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}], " ", "+", " ", "\n", "  ",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"1", "-",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
       RowBox[{"(",
        RowBox[{
         RowBox[{
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "^",
          RowBox[{"(",
           RowBox[{"3", "/", "2"}], ")"}]}], "*",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9}, {
   3.507612961088045*^9, 3.5076129665543575`*^9}, {3.507683544816712*^9,
   3.507683560120339*^9}, 3.5076836324732656`*^9, 3.5086317192700863`*^9, {
   3.5086545910806694`*^9, 3.508654592710672*^9}, {3.509847457078888*^9,
   3.509847459198891*^9}, {3.5449832165551157`*^9, 3.54498321923512*^9}, {
   3.5449841725064545`*^9, 3.5449841746464577`*^9}, {3.54612490797342*^9,
   3.5461249079834204`*^9}, {3.546124949253478*^9, 3.5461249492634783`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174384048214`*^9, 3.5454174384048214`*^9},
   3.545417528214179*^9, {3.5454181767073183`*^9, 3.54541817764332*^9}, {
   3.5454188881465673`*^9, 3.5454188881465673`*^9}, {3.545418928909439*^9,
   3.545418928909439*^9}, 3.5454190278604136`*^9, 3.5454968572572722`*^9, {
   3.5461230525608225`*^9, 3.5461230525708227`*^9}, {3.5461231879510126`*^9,
   3.5461231890410137`*^9}, 3.546124171262389*^9, {3.5461244201727376`*^9,
   3.546124426162746*^9}, {3.5461936462928505`*^9, 3.5461936462928505`*^9},
   3.546194782004441*^9, {3.546195199895026*^9, 3.5461952076050367`*^9}, {
   3.5461957213357563`*^9, 3.5461957423657856`*^9}, 3.546315982694913*^9,
   3.546566813379257*^9, {3.5465672222966976`*^9, 3.546567230361912*^9}, {
   3.546567272263585*^9, 3.5465672740419884`*^9}, {3.546908637057257*^9,
   3.5469086372572575`*^9}, {3.5481797714871945`*^9,
   3.5481797714871945`*^9}, {3.5481799394058895`*^9, 3.5481799394058895`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "5",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, 3.5053451043844323`*^9, 3.5120643192924805`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"m", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.4992133873636045`*^9, 3.4992133892036066`*^9}, {3.4992162641476316`*^9,
   3.499216265707634*^9}, {3.4993685410928354`*^9, 3.4993685488628464`*^9}, {
   3.50031970240469*^9, 3.5003197069046965`*^9}, {3.5004320341975737`*^9,
   3.5004320353096375`*^9}, {3.5026784535032854`*^9, 3.502678461573297*^9}, {
   3.5027657904804587`*^9, 3.5027657904804587`*^9}, {3.5027672190193686`*^9,
   3.5027672190193686`*^9}, {3.5035496199411335`*^9,
   3.5035496486311736`*^9}, {3.504028649276944*^9, 3.5040286502597466`*^9},
   3.50403187501501*^9, 3.5043107662485094`*^9, {3.5047476342426376`*^9,
   3.504747635372639*^9}, {3.509473798840955*^9, 3.509473798840955*^9}, {
   3.509822537063719*^9, 3.5098225651837583`*^9}, {3.5101745308722286`*^9,
   3.5101745308722286`*^9}, {3.5101797595222597`*^9,
   3.5101797600370607`*^9}, {3.5117202705635853`*^9,
   3.5117202705635853`*^9}, {3.515198336639852*^9, 3.515198353534682*^9}, {
   3.5166676798427305`*^9, 3.5166676804667315`*^9}, {3.517075924503586*^9,
   3.517075924503586*^9}, {3.5454171998960023`*^9, 3.5454171998960023`*^9}, {
   3.5454188795353527`*^9, 3.54541888374736*^9}, {3.545418922419828*^9,
   3.5454189244166317`*^9}, {3.5454301510452504`*^9,
   3.5454301516552515`*^9}, {3.5461230526108227`*^9, 3.546123052620823*^9}, {
   3.5461231917110176`*^9, 3.5461231926810193`*^9}, {3.546124432772755*^9,
   3.546124432772755*^9}, {3.546193648652854*^9, 3.546193648652854*^9}, {
   3.546195210645041*^9, 3.546195211415042*^9}, {3.5465672352291203`*^9,
   3.5465672352291203`*^9}, {3.5465672816080017`*^9,
   3.5465672816080017`*^9}, {3.548179775059601*^9, 3.548179775059601*^9}, {
   3.548179940232691*^9, 3.548179940232691*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SqrtBox[
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}],
       RowBox[{"a", " ", "d",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"2", "a", " ",
     RowBox[{"(",
      RowBox[{"m", "+", "1"}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        RowBox[{"m", "+", "1"}]], " ",
       RowBox[{"(",
        RowBox[{
         RowBox[{
          RowBox[{"-", "b"}], " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "3"}], ")"}]}], "+",
         RowBox[{"2", "a", " ",
          RowBox[{"(",
           RowBox[{"m", "+", "2"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "m"}], "+", "5"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}]}],
      SqrtBox[
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.4976649758582273`*^9, 3.4976649836738405`*^9}, {3.4987611710421963`*^9,
   3.498761171052196*^9}, {3.498763360125261*^9, 3.498763442975377*^9}, {
   3.4987641282763357`*^9, 3.4987641478963633`*^9}, {3.49876418102641*^9,
   3.4987641855164165`*^9}, {3.4987643207166057`*^9,
   3.4987643238566103`*^9}, {3.4987646394170513`*^9,
   3.4987646400870523`*^9}, {3.4988373438843184`*^9,
   3.4988373855519915`*^9}, {3.498837880904462*^9, 3.4988379063637066`*^9}, {
   3.4988381899950047`*^9, 3.498838209276639*^9}, 3.498875524395535*^9,
   3.4991797926481485`*^9, {3.4991798252678056`*^9, 3.499179837935028*^9}, {
   3.499180927976143*^9, 3.499180938599762*^9}, {3.4991810132614927`*^9,
   3.4991810250395136`*^9}, {3.4991962578715715`*^9,
   3.4991962790096083`*^9}, {3.499196703083153*^9, 3.4991967615208554`*^9}, {
   3.499197192643613*^9, 3.499197222845266*^9}, {3.4991977240625467`*^9,
   3.4991977407233753`*^9}, {3.499197780737446*^9, 3.4991977890990605`*^9}, {
   3.4991980290346823`*^9, 3.4991980546967273`*^9}, {3.499198191403367*^9,
   3.499198208017396*^9}, {3.499198305326367*^9, 3.4991983055447674`*^9}, {
   3.499198375223689*^9, 3.4991983899189153`*^9}, 3.499198439702202*^9, {
   3.4992136675539966`*^9, 3.4992137193140693`*^9}, 3.499213754044118*^9, {
   3.4992161931675324`*^9, 3.499216193677533*^9}, {3.4992162414576*^9,
   3.4992163332577286`*^9}, {3.4992164987579603`*^9,
   3.4992165531380367`*^9}, {3.4993646678093863`*^9,
   3.4993647284894705`*^9}, {3.499364780039543*^9, 3.499364804929578*^9}, {
   3.499364846769636*^9, 3.4993648633396597`*^9}, {3.499404320916315*^9,
   3.499404323956319*^9}, {3.499404813317004*^9, 3.499404815097007*^9}, {
   3.5003179817729173`*^9, 3.5003179820537176`*^9}, 3.5003181967000947`*^9,
   3.505344641443784*^9, {3.505344693233857*^9, 3.5053447150538874`*^9},
   3.5053535583452115`*^9, {3.509473422445426*^9, 3.5094734793846827`*^9}, {
   3.509473628380205*^9, 3.5094737191313953`*^9}, {3.50955395557152*^9,
   3.509554016341605*^9}, {3.5098226762839136`*^9, 3.5098227197739744`*^9}, {
   3.5098227846940656`*^9, 3.5098227969140825`*^9}, {3.5101747541866207`*^9,
   3.510174758117828*^9}, {3.510175504516739*^9, 3.510175530958785*^9}, {
   3.5151682664045787`*^9, 3.5151682684045815`*^9}, {3.546123052660823*^9,
   3.5461230527008233`*^9}, {3.5461238506919403`*^9,
   3.5461238687819653`*^9}, {3.546124026882187*^9, 3.5461240492222185`*^9}, {
   3.5461945875441685`*^9, 3.546194589864172*^9}, {3.546195202235029*^9,
   3.546195297155162*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.5098228697941847`*^9, 3.5098228846842055`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "/",
     RowBox[{"Sqrt", "[",
      RowBox[{"a_", "+",
       RowBox[{"b_.", "*",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"Sqrt", "[",
       RowBox[{"a", "+",
        RowBox[{"b", "*",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/",
      RowBox[{"(",
       RowBox[{"a", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*", "a", "*",
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "+", "1"}], ")"}]}], "*",
        RowBox[{
         RowBox[{"Simp", "[",
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", "b"}], "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "3"}], ")"}]}], "+",
            RowBox[{"2", "*", "a", "*",
             RowBox[{"(",
              RowBox[{"m", "+", "2"}], ")"}], "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
            RowBox[{"b", "*",
             RowBox[{"(",
              RowBox[{
               RowBox[{"2", "*", "m"}], "+", "5"}], ")"}], "*",
             RowBox[{
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
          "]"}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ",
    RowBox[{"m", "\[LessEqual]",
     RowBox[{"-", "2"}]}], " ", "&&", " ",
    RowBox[{"IntegerQ", "[",
     RowBox[{"2", "*", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, 3.4976649514441843`*^9, {
   3.498677409837909*^9, 3.498677420717924*^9}, {3.498761171062196*^9,
   3.498761171072196*^9}, 3.4987644028767204`*^9, {3.4987662955293703`*^9,
   3.498766296719372*^9}, {3.4987730095187697`*^9, 3.4987730279187956`*^9},
   3.4988018969020424`*^9, {3.4988383907497573`*^9, 3.4988383926841607`*^9},
   3.4988781416461363`*^9, {3.4991796252286544`*^9, 3.499179629191061*^9}, {
   3.4991799423928113`*^9, 3.499179956230036*^9}, {3.499179994189703*^9,
   3.49918001520294*^9}, 3.4991802628689747`*^9, {3.4991809464777756`*^9,
   3.499180955822192*^9}, {3.499181041294742*^9, 3.499181080638011*^9},
   3.4991882648154335`*^9, {3.4992137616941285`*^9, 3.4992137626741295`*^9},
   3.4992139059543304`*^9, {3.4992140832345786`*^9, 3.4992141086946144`*^9},
   3.499214216934766*^9, {3.499216208717554*^9, 3.4992162138475614`*^9}, {
   3.4992164326178675`*^9, 3.499216489837948*^9}, {3.499216616588125*^9,
   3.4992166411581593`*^9}, 3.4992167074782524`*^9, {3.499216790438369*^9,
   3.4992167911383696`*^9}, 3.499216873638485*^9, {3.4993649181097364`*^9,
   3.4993649626097984`*^9}, {3.499365011309867*^9, 3.4993650116798673`*^9}, {
   3.499365165120082*^9, 3.499365167950086*^9}, {3.4993654481904783`*^9,
   3.499365494270543*^9}, {3.4993661831115074`*^9, 3.499366184461509*^9}, {
   3.5003179820849175`*^9, 3.500317982365718*^9}, 3.5003187900234127`*^9, {
   3.5003190903738327`*^9, 3.5003191035638514`*^9}, 3.5003192263540235`*^9,
   3.5003207542961626`*^9, {3.5003443675174456`*^9, 3.5003443741274548`*^9}, {
   3.5004320294293013`*^9, 3.5004320304863615`*^9}, {3.501043261265483*^9,
   3.501043262773569*^9}, 3.50267712088142*^9, {3.5026774368118625`*^9,
   3.502677454531887*^9}, 3.502765652732217*^9, 3.502767119506794*^9, {
   3.503071848758074*^9, 3.503071858708088*^9}, {3.503071992168275*^9,
   3.5030719924982753`*^9}, {3.5035495943210974`*^9,
   3.5035496113511214`*^9}, {3.504156566262847*^9, 3.5041565676356487`*^9},
   3.505344641463784*^9, {3.505344693263857*^9, 3.505344715073887*^9},
   3.505353560095214*^9, 3.50947378686127*^9, {3.509473818845099*^9,
   3.509473822845328*^9}, 3.5094739102633276`*^9, {3.509553959581526*^9,
   3.5095539641815324`*^9}, {3.509554026171619*^9, 3.5095540448016453`*^9},
   3.5098226107938223`*^9, {3.509822869824185*^9, 3.5098228796141987`*^9},
   3.5098229439342885`*^9, {3.5098337778202195`*^9, 3.509833781470626*^9},
   3.5101745620566835`*^9, {3.5101747603174314`*^9, 3.510174763312637*^9}, {
   3.510175541130003*^9, 3.5101755617688394`*^9}, {3.5101797636874666`*^9,
   3.5101797666826725`*^9}, {3.5105908533161936`*^9, 3.510590875616225*^9},
   3.510592579348616*^9, {3.510784519084423*^9, 3.5107845228596296`*^9}, {
   3.510800280558387*^9, 3.5108003550884914`*^9}, {3.5108015724101954`*^9,
   3.510801595410228*^9}, {3.510802005240802*^9, 3.510802009550808*^9},
   3.5108029034720592`*^9, {3.510941178095128*^9, 3.5109411874651413`*^9}, {
   3.5151983110090075`*^9, 3.5151983243938303`*^9}, {3.515978489542335*^9,
   3.515978491695139*^9}, {3.5166676570822906`*^9, 3.5166676760519238`*^9},
   3.5168206561964617`*^9, 3.516823887055642*^9, 3.517075506463001*^9, {
   3.517075957223632*^9, 3.5170759665336447`*^9}, 3.5410904688097477`*^9, {
   3.5410905571147027`*^9, 3.541090571497928*^9}, {3.541976262632696*^9,
   3.541976273862712*^9}, {3.541976555673106*^9, 3.5419765570131083`*^9}, {
   3.5454188903305717`*^9, 3.5454189173030186`*^9}, {3.545491211618657*^9,
   3.545491211648657*^9}, {3.546041050593343*^9, 3.5460410527433453`*^9},
   3.5460412756236577`*^9, {3.546105998653228*^9, 3.546106023004871*^9},
   3.5461060986962037`*^9, {3.546106499757308*^9, 3.5461065216285467`*^9}, {
   3.546106583591855*^9, 3.5461066311251388`*^9}, 3.5461235006714506`*^9, {
   3.5461246078530006`*^9, 3.546124609513003*^9}, {3.5461945638941355`*^9,
   3.5461945844141645`*^9}, {3.546195326115203*^9, 3.5461953781152754`*^9}, {
   3.546195428315346*^9, 3.546195436995358*^9}, 3.5465363028804097`*^9,
   3.5465363913005333`*^9, {3.5465672147462845`*^9, 3.5465672165558877`*^9},
   3.546567283651605*^9, {3.5480218247999196`*^9, 3.5480218311199284`*^9}, {
   3.5481804260611444`*^9, 3.5481804277459474`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.546054941882761*^9, 3.5460549474927692`*^9}, 3.5461915423799057`*^9, {
   3.5461915817099605`*^9, 3.5461915819499607`*^9}, 3.5461961103163004`*^9, {
   3.546196164656377*^9, 3.5461961874164085`*^9}, 3.546197012837564*^9, {
   3.5462005531025205`*^9, 3.5462005600625305`*^9}, {3.546200741352784*^9,
   3.546200755932804*^9}, {3.546209930530839*^9, 3.546209930530839*^9},
   3.5463152518321095`*^9, {3.5465706146584005`*^9, 3.546570688468504*^9}, {
   3.5465708209686894`*^9, 3.5465708283986998`*^9}, {3.546576529986682*^9,
   3.546576531946685*^9}, {3.546576610596795*^9, 3.5465766108667955`*^9}, {
   3.548179349713654*^9, 3.548179349713654*^9}, {3.548179781081211*^9,
   3.548179781081211*^9}, {3.548179940981492*^9, 3.548179940981492*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", ">", "0"}], " ", "\[And]", " ",
       RowBox[{"m", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.5460550090728555`*^9, 3.5460550355628924`*^9}, 3.546191546959912*^9, {
   3.546191586189967*^9, 3.546191586349967*^9}, {3.5461975511783175`*^9,
   3.5461975722083473`*^9}, {3.5462114754630017`*^9, 3.546211475713002*^9},
   3.546211519203063*^9, 3.546315254005234*^9, {3.546571222059251*^9,
   3.5465712361292706`*^9}, 3.5465739753031054`*^9, {3.546574026283177*^9,
   3.546574029363181*^9}, {3.5465741418633385`*^9, 3.546574153173354*^9}, {
   3.5465765345766883`*^9, 3.54657653571669*^9}, {3.548179350384455*^9,
   3.548179350384455*^9}, {3.548179783109215*^9, 3.548179783109215*^9}, {
   3.5481799416054935`*^9, 3.5481799416054935`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454161483605556`*^9, 3.545416164506584*^9}, {
   3.5454163555601196`*^9, 3.545416365544137*^9}, {3.5454169374723415`*^9,
   3.5454169458807564`*^9}, {3.545417574686661*^9, 3.545417598882303*^9}, {
   3.5454178996040316`*^9, 3.545417899853632*^9}, {3.5454181891093397`*^9,
   3.545418190856543*^9}, {3.5454189993591633`*^9, 3.54541900325917*^9}, {
   3.5454192877168694`*^9, 3.5454192877168694`*^9}, {3.5454302709954185`*^9,
   3.545430271135419*^9}, 3.5454968512272635`*^9, {3.5455036708068113`*^9,
   3.5455036710068116`*^9}, {3.545594959264122*^9, 3.545594959614123*^9}, {
   3.545719817379089*^9, 3.5457198191741915`*^9}, {3.54605944460258*^9,
   3.546059444984602*^9}, {3.5461052986731987`*^9, 3.546105316067229*^9}, {
   3.546105350543289*^9, 3.546105351494891*^9}, {3.546124694193121*^9,
   3.5461246943431215`*^9}, {3.5461916226300178`*^9,
   3.5461916232700186`*^9}, {3.5461946971843224`*^9,
   3.5461946995243254`*^9}, {3.546194763594415*^9, 3.5461947637744155`*^9}, {
   3.5461975793983574`*^9, 3.54619758129836*^9}, {3.54621153825309*^9,
   3.54621153851309*^9}, {3.546213043615197*^9, 3.5462130444551983`*^9}, {
   3.5462130929152665`*^9, 3.5462130972552724`*^9}, {3.5462131325053215`*^9,
   3.546213142555336*^9}, {3.5462133074055667`*^9, 3.546213313365575*^9},
   3.546315254845282*^9, {3.5465714888896246`*^9, 3.5465715196296673`*^9}, {
   3.546571574359744*^9, 3.5465715762997465`*^9}, {3.5465736457826443`*^9,
   3.5465736754626856`*^9}, {3.5465738010928617`*^9,
   3.5465738040228653`*^9}, {3.546573965013091*^9, 3.546573965243091*^9},
   3.5465765657267323`*^9, {3.548179784809618*^9, 3.548179784809618*^9}, {
   3.5481799427598953`*^9, 3.5481799427598953`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]],
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, {
   3.5449729607242365`*^9, 3.5449729664182467`*^9}, 3.5449734059490185`*^9,
   3.5449737340331945`*^9, {3.5449769810684233`*^9, 3.5449769847296333`*^9},
   3.5449773151485076`*^9, 3.5449784760774918`*^9, 3.545082419568005*^9,
   3.5451010873981524`*^9, 3.5454968281172314`*^9, 3.5460550387228966`*^9, {
   3.5460550953029757`*^9, 3.5460550954729767`*^9}, 3.546191549219915*^9,
   3.5461975530483203`*^9, 3.5462104922816257`*^9, {3.5462105228916683`*^9,
   3.5462105231016684`*^9}, 3.546316034534878*^9, {3.5465713024693637`*^9,
   3.546571304469366*^9}, {3.5465725507711115`*^9, 3.546572581251154*^9},
   3.546576579926752*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9,
   3.4986779035186005`*^9}, {3.4986779431286554`*^9,
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9,
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9,
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9,
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9,
   3.502073826787838*^9}, {3.5036082854604206`*^9, 3.5036082854604206`*^9}, {
   3.503608421530611*^9, 3.503608430050623*^9}, {3.503608576660828*^9,
   3.5036085908308477`*^9}, {3.503684296481346*^9, 3.503684306324963*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, {3.508373429422679*^9,
   3.5083734393442965`*^9}, 3.508375375313538*^9, 3.5083798476097994`*^9,
   3.508434297064023*^9, {3.508463496340228*^9, 3.5084635020810385`*^9},
   3.5084671393946285`*^9, {3.5117231920676756`*^9, 3.5117231922376757`*^9}, {
   3.511723722388418*^9, 3.511723723148419*^9}, {3.513377536972926*^9,
   3.5133775371929264`*^9}, {3.5145991702680826`*^9,
   3.5145991714380836`*^9}, {3.5148619351460605`*^9,
   3.5148619354160604`*^9}, {3.515181543959157*^9, 3.5151815447547584`*^9}, {
   3.544981916543296*^9, 3.544981917133297*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox["1",
        RowBox[{"a", "-", "b"}]]}]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " "}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+",
  RowBox[{
   FractionBox["a",
    RowBox[{"a", "-", "b"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"1", "+",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]],
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"3", "/", "2"}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, {3.5076127763984814`*^9,
   3.5076128071242385`*^9}, 3.5076130465769343`*^9, {3.5083732519879675`*^9,
   3.5083732907384357`*^9}, 3.5083733452137313`*^9, {3.5083886663894563`*^9,
   3.508388682363884*^9}, {3.5084632355077705`*^9, 3.508463294569474*^9}, {
   3.5084635215498724`*^9, 3.508463523468676*^9}, {3.5086085358778715`*^9,
   3.5086085375002747`*^9}, {3.5098474230588408`*^9, 3.509847425398844*^9}, {
   3.511723058667489*^9, 3.511723126617584*^9}, {3.511723260207771*^9,
   3.511723261707773*^9}, {3.515167970184164*^9, 3.515167971994167*^9},
   3.5159778716412506`*^9, 3.544978487348857*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "/",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/",
      RowBox[{"(",
       RowBox[{"a", "-", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ",
    RowBox[{
     RowBox[{"a", "/",
      RowBox[{"(",
       RowBox[{"a", "-", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{
           RowBox[{"(",
            RowBox[{"a", "+",
             RowBox[{"b", "*",
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
           RowBox[{"(",
            RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", " ", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9},
   3.5076128775622673`*^9, {3.507612916492494*^9, 3.507612944323086*^9}, {
   3.5076130584166117`*^9, 3.5076130663340645`*^9}, {3.5083733592381554`*^9,
   3.5083733848066006`*^9}, {3.5083734610595345`*^9, 3.5083734653963423`*^9},
   3.5083735959685717`*^9, {3.508388698572313*^9, 3.5083887255447598`*^9}, {
   3.5084633423367577`*^9, 3.5084633483427687`*^9}, 3.5084634258281045`*^9, {
   3.508463468104179*^9, 3.5084634690089808`*^9}, {3.5086085393254776`*^9,
   3.508608541119481*^9}, {3.5098474265088453`*^9, 3.509847428458848*^9},
   3.511723209137699*^9, {3.51172333837788*^9, 3.511723372407928*^9},
   3.5117234414880247`*^9, {3.511723476558074*^9, 3.511723487248089*^9}, {
   3.544982573144215*^9, 3.5449825814542265`*^9}, {3.5449831460550175`*^9,
   3.544983150725024*^9}, {3.544983911346089*^9, 3.5449839127360907`*^9}, {
   3.5461249081534204`*^9, 3.5461249081634207`*^9}, {3.5461249494334784`*^9,
   3.5461249494434786`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174818040977`*^9, 3.545417509977747*^9}, {
   3.5454181980793557`*^9, 3.5454182033833647`*^9}, {3.5454187617239456`*^9,
   3.5454187617239456`*^9}, 3.5454190094055805`*^9, 3.5454968540172677`*^9, {
   3.545575108030804*^9, 3.5455751094808064`*^9}, {3.5455922258602953`*^9,
   3.5455922258602953`*^9}, {3.5461230521108227`*^9,
   3.5461230521108227`*^9}, {3.5461231673009834`*^9, 3.5461231682109847`*^9},
   3.5461241536823645`*^9, 3.5461947029143305`*^9, {3.5462117137233353`*^9,
   3.546211723603349*^9}, {3.546212871694957*^9, 3.546212871884957*^9}, {
   3.5462132073554263`*^9, 3.54621320957543*^9}, {3.5462133586956387`*^9,
   3.5462133586956387`*^9}, 3.5463160695308795`*^9, {3.5465357077895765`*^9,
   3.546535709689579*^9}, 3.5465715781897497`*^9, {3.5465730400817957`*^9,
   3.5465730400817957`*^9}, {3.5465734811224136`*^9, 3.546573481392414*^9}, {
   3.5465736097625933`*^9, 3.546573618562606*^9}, 3.5465765809667535`*^9, {
   3.548179792063631*^9, 3.548179792063631*^9}, {3.5481799434462967`*^9,
   3.5481799434462967`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence 1 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   FractionBox["1", "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.502990148351678*^9, 3.5029901655429077`*^9},
   3.505345087524409*^9, 3.512064342062512*^9, {3.54621180275346*^9,
   3.5462118187034826`*^9}}],

Cell[TextData[{
 "Derivation: Recurrence ",
 "6",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"-",
    FractionBox["1", "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.502990148351678*^9, 3.5029901655429077`*^9}, {
   3.5030022296405034`*^9, 3.50300226997056*^9}, 3.505345123244459*^9,
   3.5120643328024993`*^9, {3.545433447769866*^9, 3.5454334481598663`*^9}, {
   3.5462118364935074`*^9, 3.5462118388735104`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.501357957382189*^9, 3.50135795852219*^9}, {3.501358112502406*^9,
   3.501358113912408*^9}, 3.501358177622497*^9, {3.501358226452565*^9,
   3.50135822974257*^9}, 3.5013587175532527`*^9, {3.501359477874317*^9,
   3.5013594968243437`*^9}, {3.5013598992049074`*^9, 3.501359907704919*^9}, {
   3.5027643770807753`*^9, 3.502764379015179*^9}, {3.5027682951140594`*^9,
   3.5027682985460653`*^9}, {3.502990663152582*^9, 3.502990663807783*^9}, {
   3.503005375139311*^9, 3.5030053790893164`*^9}, {3.5035326522329235`*^9,
   3.5035326522329235`*^9}, {3.5042431904428883`*^9, 3.50424319195289*^9},
   3.5044145269327335`*^9, {3.5044145758228016`*^9, 3.5044145804228077`*^9},
   3.5098290606031313`*^9, {3.510174502776579*^9, 3.510174502776579*^9}, {
   3.5101794309856825`*^9, 3.5101794314380836`*^9}, {3.510439387804041*^9,
   3.5104393884540415`*^9}, {3.5105128754565935`*^9,
   3.5105128754565935`*^9}, {3.511720220073515*^9, 3.511720220073515*^9}, {
   3.5454171709267516`*^9, 3.5454171709267516`*^9}, {3.5454187555775347`*^9,
   3.545418757277938*^9}, {3.545430144855242*^9, 3.5454301454052424`*^9}, {
   3.5455751138908124`*^9, 3.545575115080814*^9}, {3.5455922290703*^9,
   3.5455922290703*^9}, {3.5461230521608224`*^9, 3.5461230521608224`*^9}, {
   3.546123170240988*^9, 3.546123171190989*^9}, {3.546211847513523*^9,
   3.546211847513523*^9}, {3.5462133616056423`*^9, 3.5462133616056423`*^9}, {
   3.5465357269996033`*^9, 3.546535728849606*^9}, {3.5465729202416286`*^9,
   3.5465729244716344`*^9}, {3.5465736354926295`*^9,
   3.5465736354926295`*^9}, {3.548179796806039*^9, 3.548179796806039*^9}, {
   3.5481799445226984`*^9, 3.5481799445226984`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SqrtBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}]],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      RowBox[{"-",
       FractionBox[
        RowBox[{"b", " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SqrtBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]], " ",
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "+", "1"}]]}],
        RowBox[{"d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}], " ",
         RowBox[{"(",
          RowBox[{
           SuperscriptBox["a", "2"], "-",
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["1",
    RowBox[{"2",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}],
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(",
        RowBox[{"b", "+",
         RowBox[{"2", "a", " ",
          RowBox[{"(",
           RowBox[{"n", "+", "1"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "-",
         RowBox[{"b", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "n"}], "+", "5"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], " ",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"n", "+", "1"}]]}],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509560902857679*^9, 3.509560949397744*^9}, {3.5095609846277933`*^9,
   3.509561101197957*^9}, {3.509829149023255*^9, 3.5098292074833364`*^9}, {
   3.510174642911626*^9, 3.51017464554803*^9}, {3.5101749019344807`*^9,
   3.5101749115128975`*^9}, {3.5151682059644947`*^9,
   3.5151682096244993`*^9}, {3.5461230522008224`*^9, 3.546123052210822*^9}, {
   3.5461237436917906`*^9, 3.5461237630218177`*^9}, {3.5461239874721317`*^9,
   3.5461239947821417`*^9}, {3.5462117338133636`*^9,
   3.5462117866134377`*^9}, {3.546212030413779*^9, 3.546212069223833*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.509479967012754*^9, 3.5094799793114576`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[",
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{"b", "+",
           RowBox[{"2", "*", "a", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "-",
           RowBox[{"b", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"2", "*", "n"}], "+", "5"}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*",
        RowBox[{
         RowBox[{
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
          RowBox[{"(",
           RowBox[{"n", "+", "1"}], ")"}]}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{"2", "*", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "2"}]}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5026764690205073`*^9, {3.502676562960639*^9, 3.5026765748706555`*^9}, {
   3.502676709910845*^9, 3.502676745080894*^9}, {3.502677686692212*^9,
   3.5026776934822216`*^9}, {3.5027670612250915`*^9,
   3.5027670636898956`*^9}, {3.503071936858197*^9, 3.5030719454782095`*^9},
   3.50319810512*^9, {3.503549703821251*^9, 3.503549709891259*^9},
   3.50387619429158*^9, {3.5051554747458277`*^9, 3.5051554812558365`*^9},
   3.505344641353784*^9, {3.5053446929738564`*^9, 3.505344714963887*^9},
   3.505353544425192*^9, {3.50924009739312*^9, 3.509240125441969*^9}, {
   3.509240420719288*^9, 3.509240479234991*^9}, {3.5092405242254696`*^9,
   3.509240529685479*^9}, 3.509240560292733*^9, 3.5092406309608574`*^9, {
   3.509240739193847*^9, 3.5092407562290773`*^9}, {3.5094733083539004`*^9,
   3.50947331918552*^9}, {3.509475162067927*^9, 3.509475162249937*^9},
   3.509475333159713*^9, {3.5094799670517564`*^9, 3.5094799740681577`*^9},
   3.5094800542107415`*^9, {3.5095612456781588`*^9, 3.5095612748082*^9},
   3.5095620502492857`*^9, {3.5098290789631567`*^9, 3.5098291087031984`*^9},
   3.5098293185434923`*^9, {3.5098336952492743`*^9, 3.5098336954832745`*^9},
   3.510174584645523*^9, {3.5101746492608366`*^9, 3.5101746526928425`*^9}, {
   3.510174920841714*^9, 3.510174927440525*^9}, 3.510179434682889*^9, {
   3.510439381464032*^9, 3.5104393827740335`*^9}, 3.5104422782008624`*^9, {
   3.5105123841805305`*^9, 3.5105123860213337`*^9}, {3.5151978846302586`*^9,
   3.5151978851762595`*^9}, 3.5166675183356466`*^9, {3.5166759663600893`*^9,
   3.516675968887294*^9}, {3.5166761988004975`*^9, 3.516676199564899*^9},
   3.5168206558964615`*^9, 3.5168238869946384`*^9, 3.5170754918429804`*^9,
   3.5410904526637197`*^9, 3.5410905353994646`*^9, 3.541090595958771*^9,
   3.5419786909760957`*^9, {3.545418789788395*^9, 3.545418794952004*^9}, {
   3.545491211438657*^9, 3.545491211468657*^9}, {3.54557511932082*^9,
   3.5455751205108213`*^9}, 3.545592233240306*^9, {3.546041018253297*^9,
   3.546041022943304*^9}, 3.546041246653617*^9, {3.546105998559628*^9,
   3.5461060228644705`*^9}, 3.5461060986182036`*^9, {3.546106499679308*^9,
   3.5461065215505466`*^9}, {3.546106583451455*^9, 3.5461066310159388`*^9}, {
   3.5461234701414075`*^9, 3.5461234750414143`*^9}, {3.5462118508635273`*^9,
   3.5462118761135626`*^9}, {3.546212103593881*^9, 3.546212146223941*^9}, {
   3.5462121822639914`*^9, 3.5462121844739943`*^9}, {3.5462123206941853`*^9,
   3.5462123215441866`*^9}, 3.546213364695647*^9, {3.546535734409614*^9,
   3.5465357361496162`*^9}, 3.5465730377817926`*^9, {3.5465736267326174`*^9,
   3.5465736284526196`*^9}, {3.5481804522691903`*^9, 3.5481804547495947`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454161483605556`*^9, 3.545416164506584*^9}, {
   3.5454163555601196`*^9, 3.545416365544137*^9}, {3.5454169374723415`*^9,
   3.5454169458807564`*^9}, {3.545417574686661*^9, 3.545417598882303*^9}, {
   3.5454178996040316`*^9, 3.545417899853632*^9}, {3.5454181891093397`*^9,
   3.545418190856543*^9}, {3.5454189993591633`*^9, 3.54541900325917*^9}, {
   3.5454192877168694`*^9, 3.5454192877168694`*^9}, {3.5454302709954185`*^9,
   3.545430271135419*^9}, 3.5454968512272635`*^9, {3.5455036708068113`*^9,
   3.5455036710068116`*^9}, {3.545594959264122*^9, 3.545594959614123*^9}, {
   3.545719817379089*^9, 3.5457198191741915`*^9}, {3.54605944460258*^9,
   3.546059444984602*^9}, {3.5461052986731987`*^9, 3.546105316067229*^9}, {
   3.546105350543289*^9, 3.546105351494891*^9}, {3.546124694193121*^9,
   3.5461246943431215`*^9}, {3.5461916226300178`*^9,
   3.5461916232700186`*^9}, {3.5461946971843224`*^9,
   3.5461946995243254`*^9}, {3.546194763594415*^9, 3.5461947637744155`*^9}, {
   3.5461975793983574`*^9, 3.54619758129836*^9}, {3.54621153825309*^9,
   3.54621153851309*^9}, {3.546213043615197*^9, 3.5462130444551983`*^9}, {
   3.5462130929152665`*^9, 3.5462130972552724`*^9}, {3.5462131325053215`*^9,
   3.546213142555336*^9}, {3.5462133074055667`*^9, 3.546213313365575*^9},
   3.546315254845282*^9, {3.5465714888896246`*^9, 3.5465715196296673`*^9}, {
   3.546571574359744*^9, 3.5465715762997465`*^9}, {3.5465736457826443`*^9,
   3.5465736754626856`*^9}, 3.546573715682742*^9, {3.5465738069028697`*^9,
   3.54657380706287*^9}, {3.546573966563093*^9, 3.5465739667130933`*^9},
   3.546576566576733*^9, {3.548179800175645*^9, 3.548179800175645*^9}, {
   3.5481799454119*^9, 3.5481799454119*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}],
       RowBox[{"3", "/", "2"}]],
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544979015118001*^9, {3.545014538172907*^9,
   3.545014538375707*^9}, 3.5454968288772326`*^9, 3.5460550399128985`*^9, {
   3.5460551007329836`*^9, 3.546055101022984*^9}, 3.5461915502899165`*^9,
   3.546197554008322*^9, {3.546210494731629*^9, 3.546210524681671*^9},
   3.5463160354019275`*^9, {3.546571284419338*^9, 3.5465712845693383`*^9}, {
   3.546572554361116*^9, 3.546572582171155*^9}, {3.546573554362516*^9,
   3.5465735545125165`*^9}, 3.5465765882967634`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.503710341632182*^9, 3.503710345182187*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.507750824167901*^9, 3.5077528900087986`*^9, 3.50838036953053*^9,
   3.508434321304057*^9, 3.5086305544892397`*^9, 3.508630953600341*^9,
   3.5117219857559867`*^9, {3.5133775774429827`*^9, 3.5133775777729836`*^9}, {
   3.5145992062681327`*^9, 3.5145992113181396`*^9}, {3.5148619701761093`*^9,
   3.51486197051611*^9}, {3.51518159124284*^9, 3.5151815914924407`*^9}, {
   3.5449819276933117`*^9, 3.544981928713313*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"3", "/", "2"}]]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1", "b"]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox[
       RowBox[{"1", "+",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}],
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]],
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]], " "}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["1", "b"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"a", "+",
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+", "b"}], ")"}], " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]],
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"3", "/", "2"}]], " "}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, {3.508629985389839*^9,
   3.508630038523533*^9}, {3.5086302175650473`*^9, 3.508630272523944*^9}, {
   3.5086303373732576`*^9, 3.5086303857489424`*^9}, {3.5086544815205164`*^9,
   3.5086544839805193`*^9}, {3.5098474421388674`*^9,
   3.5098474438788695`*^9}, {3.5117218573958073`*^9, 3.5117219059258747`*^9},
   3.511721969165963*^9, {3.5117220230860386`*^9, 3.5117220366960583`*^9}, {
   3.5151680053542137`*^9, 3.5151680075942163`*^9}, {3.5481965920823917`*^9,
   3.5481965986467676`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "/",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "-", " ", "\n", "  ",
    RowBox[{
     RowBox[{"1", "/", "b"}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{
           RowBox[{"(",
            RowBox[{"a", "+", "b"}], ")"}], "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{
           RowBox[{"(",
            RowBox[{"a", "+",
             RowBox[{"b", "*",
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
           RowBox[{"(",
            RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9}, {
   3.507612961088045*^9, 3.5076129665543575`*^9}, 3.508630104043648*^9, {
   3.508630460519874*^9, 3.508630490908727*^9}, {3.5086544845305204`*^9,
   3.5086544866805234`*^9}, {3.509847444628871*^9, 3.509847447028874*^9},
   3.511719105891955*^9, {3.511720046553272*^9, 3.511720055293284*^9}, {
   3.5117204168737903`*^9, 3.511720418213792*^9}, 3.5117220489860754`*^9, {
   3.511722175866253*^9, 3.5117222217363167`*^9}, {3.51172245952665*^9,
   3.5117224600266504`*^9}, {3.5449826206142817`*^9, 3.54498262630429*^9}, {
   3.5449831785950627`*^9, 3.5449831840150704`*^9}, {3.5449840913163404`*^9,
   3.544984092796343*^9}, {3.546124908183421*^9, 3.546124908193421*^9}, {
   3.5461249494634786`*^9, 3.5461249494734783`*^9}, {3.54819660253699*^9,
   3.5481966087663465`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"3", "/", "2"}]],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "\[LessEqual]",
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417487794508*^9, 3.545417507622143*^9}, {
   3.5454181950997505`*^9, 3.5454181959889517`*^9}, {3.545418751693128*^9,
   3.545418751693128*^9}, 3.545419008453979*^9, 3.5454968531972666`*^9, {
   3.546123051960822*^9, 3.546123051960822*^9}, {3.546123160490974*^9,
   3.5461231613309755`*^9}, 3.546124149562359*^9, 3.5461947020243287`*^9, {
   3.5462124559543743`*^9, 3.5462124616643825`*^9}, {3.5462128731049585`*^9,
   3.5462128732749586`*^9}, {3.5462132108954315`*^9,
   3.5462132119454327`*^9}, {3.5462133745256605`*^9, 3.5462133745256605`*^9},
   3.5463160703089237`*^9, {3.5465356264394627`*^9, 3.546535631139469*^9},
   3.546571579029751*^9, {3.5465721958006144`*^9, 3.5465721958006144`*^9}, {
   3.54657372874276*^9, 3.5465737354627695`*^9}, 3.5465765911767673`*^9, {
   3.548179812125266*^9, 3.548179812125266*^9}, {3.548179946113901*^9,
   3.548179946113901*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "1",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   FractionBox["1", "2"]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.5017224385660048`*^9, 3.5017224419824104`*^9}, 3.5017229574385157`*^9,
   3.501723447987378*^9, {3.5029895633714495`*^9, 3.502989576194672*^9},
   3.505345087514409*^9, 3.5120643416525116`*^9, {3.545433363319748*^9,
   3.545433363829748*^9}, {3.546212909265009*^9, 3.5462129264750333`*^9}}],

Cell[TextData[{
 "Derivation: Recurrence 6 with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"-",
    FractionBox["1", "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, {3.5017233902828765`*^9, 3.5017233905948772`*^9},
   3.501723457768595*^9, {3.503001380079314*^9, 3.5030013960993366`*^9}, {
   3.5030015389895363`*^9, 3.5030015512395535`*^9}, 3.505345123244459*^9,
   3.5120643323624983`*^9, {3.5454332957896533`*^9, 3.5454332998396587`*^9}, {
   3.5462129179750214`*^9, 3.5462129233750286`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "\[LessEqual]",
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.501357957382189*^9, 3.50135795852219*^9}, {3.501358112502406*^9,
   3.501358113912408*^9}, 3.501358177622497*^9, {3.501358226452565*^9,
   3.50135822974257*^9}, 3.5013587175532527`*^9, {3.501359477874317*^9,
   3.5013594968243437`*^9}, {3.5013598992049074`*^9, 3.501359907704919*^9}, {
   3.5027643770807753`*^9, 3.502764379015179*^9}, {3.5027682951140594`*^9,
   3.5027682985460653`*^9}, {3.5029897455589705`*^9,
   3.5029897523761826`*^9}, {3.503005327309244*^9, 3.503005347199272*^9}, {
   3.5042431706428604`*^9, 3.5042431716928616`*^9}, 3.5044145223127265`*^9, {
   3.504414569852793*^9, 3.504414570862795*^9}, {3.504996725662183*^9,
   3.5049967416922054`*^9}, {3.5049972207228756`*^9, 3.504997222832879*^9}, {
   3.505193346779066*^9, 3.505193346779066*^9}, 3.5098298601742506`*^9, {
   3.510174499282173*^9, 3.510174499282173*^9}, {3.5101794224056673`*^9,
   3.5101794228892684`*^9}, {3.5104393718940187`*^9, 3.510439373474021*^9}, {
   3.5105128457853413`*^9, 3.5105128457853413`*^9}, {3.5117202122835035`*^9,
   3.5117202122835035`*^9}, {3.545417167323145*^9, 3.545417167323145*^9}, {
   3.545418745000716*^9, 3.5454187467947197`*^9}, {3.545430143195239*^9,
   3.5454301437052402`*^9}, {3.5461230520108223`*^9,
   3.5461230520108223`*^9}, {3.5461231637109785`*^9, 3.54612316466098*^9}, {
   3.546212756964796*^9, 3.5462127575747967`*^9}, {3.5462133768956637`*^9,
   3.5462133768956637`*^9}, {3.5465356464094906`*^9,
   3.5465356490994945`*^9}, {3.5465721937506113`*^9,
   3.5465721937506113`*^9}, {3.5465737412727776`*^9,
   3.5465737412727776`*^9}, {3.5481798152764716`*^9,
   3.5481798152764716`*^9}, {3.548179947190303*^9, 3.548179947190303*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}],
     RowBox[{"3", "/", "2"}]],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox[
       RowBox[{"a", " ",
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], " ",
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
         RowBox[{"n", "+", "1"}]]}],
       RowBox[{"d", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], " ",
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "-",
          SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}], "-",
  "\[IndentingNewLine]",
  RowBox[{
   FractionBox["1",
    RowBox[{"2",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}],
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"2", "b", " ",
          RowBox[{"(",
           RowBox[{"n", "+", "1"}], ")"}], " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}], "-",
         RowBox[{"a", " ",
          RowBox[{"(",
           RowBox[{
            RowBox[{"2", "n"}], "+", "5"}], ")"}], " ",
          SuperscriptBox[
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], " ",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"n", "+", "1"}]]}],
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.509829939234361*^9, 3.5098302592148094`*^9}, {3.5101746314612055`*^9,
   3.5101746349400115`*^9}, {3.5101748609532084`*^9,
   3.5101748724504285`*^9}, {3.515168190604473*^9, 3.5151681989544845`*^9}, {
   3.5461230520508223`*^9, 3.5461230520608225`*^9}, {3.5461237185817556`*^9,
   3.5461237406317863`*^9}, {3.5461239801821213`*^9,
   3.5461239836721263`*^9}, {3.5462124653443875`*^9,
   3.5462125881245594`*^9}, {3.5462127207547455`*^9, 3.546212726244753*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.509479967012754*^9, 3.5094799793114576`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"3", "/", "2"}], ")"}]}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"a", "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{"Sqrt", "[",
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"2", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{"a", "+",
           RowBox[{"2", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "-",
           RowBox[{"a", "*",
            RowBox[{"(",
             RowBox[{
              RowBox[{"2", "*", "n"}], "+", "5"}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*",
        RowBox[{
         RowBox[{
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
          RowBox[{"(",
           RowBox[{"n", "+", "1"}], ")"}]}], "/",
         RowBox[{"Sqrt", "[",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}], "]"}]}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ",
    RowBox[{"n", "\[LessEqual]",
     RowBox[{"-", "2"}]}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5026764690205073`*^9, {3.502676562960639*^9, 3.5026765748706555`*^9}, {
   3.502676709910845*^9, 3.502676745080894*^9}, {3.502677686692212*^9,
   3.5026776934822216`*^9}, {3.5027670612250915`*^9,
   3.5027670636898956`*^9}, {3.503071936858197*^9, 3.5030719454782095`*^9},
   3.50319810512*^9, {3.503549703821251*^9, 3.503549709891259*^9},
   3.50387619429158*^9, {3.5051554747458277`*^9, 3.5051554812558365`*^9},
   3.505344641353784*^9, {3.5053446929738564`*^9, 3.505344714963887*^9},
   3.505353544425192*^9, {3.50924009739312*^9, 3.509240125441969*^9}, {
   3.509240420719288*^9, 3.509240479234991*^9}, {3.5092405242254696`*^9,
   3.509240529685479*^9}, 3.509240560292733*^9, 3.5092406309608574`*^9, {
   3.509240739193847*^9, 3.5092407562290773`*^9}, {3.5094733083539004`*^9,
   3.50947331918552*^9}, {3.509475162067927*^9, 3.509475162249937*^9},
   3.509475333159713*^9, {3.5094799670517564`*^9, 3.5094799740681577`*^9},
   3.5094800542107415`*^9, {3.5098298859742866`*^9, 3.509829917904331*^9},
   3.509830341044924*^9, {3.5098336879952617`*^9, 3.509833688260462*^9},
   3.5101745876251287`*^9, {3.510174636468814*^9, 3.5101746401192207`*^9}, {
   3.5101748786748395`*^9, 3.510174890764861*^9}, 3.5101794270700755`*^9, {
   3.510439363784007*^9, 3.5104393672340117`*^9}, {3.510512828828111*^9,
   3.5105128306377144`*^9}, {3.514403348789158*^9, 3.5144033754576826`*^9}, {
   3.515197888873466*^9, 3.5151978896066675`*^9}, 3.51666751432644*^9, {
   3.5166759154416*^9, 3.516675918499205*^9}, {3.5166762282845497`*^9,
   3.5166762358193626`*^9}, 3.5168206558564615`*^9, 3.516823886986638*^9,
   3.517075487852975*^9, 3.517075576063098*^9, 3.5410904511349173`*^9,
   3.54109053265386*^9, 3.5410905984235754`*^9, 3.541978654536045*^9, {
   3.545418797822409*^9, 3.545418802908018*^9}, {3.545491211378657*^9,
   3.545491211408657*^9}, {3.5460410004832726`*^9, 3.5460410031232758`*^9},
   3.546041239883608*^9, {3.546105998528428*^9, 3.5461060228176703`*^9},
   3.5461060985870037`*^9, {3.5461064996637077`*^9, 3.546106521519346*^9}, {
   3.5461065834046555`*^9, 3.5461066310003386`*^9}, {3.5461234620513964`*^9,
   3.5461234653214006`*^9}, {3.5462126791046867`*^9,
   3.5462126793146873`*^9}, {3.546212767694811*^9, 3.5462128340849037`*^9},
   3.546213378845667*^9, {3.5465356699795237`*^9, 3.5465356719395266`*^9}, {
   3.546572184210598*^9, 3.5465721857005997`*^9}, {3.546573744552782*^9,
   3.5465737461127844`*^9}, {3.5481804744836297`*^9, 3.5481804944204645`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", ">", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.5454174925837164`*^9, 3.5454175055005393`*^9},
   3.5454181940233483`*^9, {3.5454187322086935`*^9, 3.545418734127497*^9},
   3.5454190073463774`*^9, 3.5454968522672653`*^9, {3.546123051820822*^9,
   3.546123051820822*^9}, {3.546123153970965*^9, 3.546123154820966*^9},
   3.54612414346235*^9, 3.5461947011643276`*^9, {3.546213216175439*^9,
   3.5462132173254404`*^9}, {3.546213399025695*^9, 3.546213399025695*^9},
   3.5463160711389713`*^9, {3.5465352118388824`*^9, 3.546535214418886*^9},
   3.546571579889752*^9, {3.54657386434295*^9, 3.5465738878629827`*^9},
   3.5465765673667345`*^9, {3.548179819223278*^9, 3.548179819223278*^9}, {
   3.548179948079505*^9, 3.548179948079505*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "1",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"C", "=", "1"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"m", "=",
   RowBox[{"m", "-", "2"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, {3.5017296960647554`*^9,
   3.501729696314356*^9}, {3.5017298761514716`*^9, 3.5017298771342735`*^9}, {
   3.501729942248788*^9, 3.501729967068431*^9}, {3.5042431629228497`*^9,
   3.5042431645428514`*^9}, {3.504382488644274*^9, 3.504382489194275*^9},
   3.505345087504409*^9, 3.512064341272511*^9, {3.545433269759617*^9,
   3.545433270639618*^9}, {3.54801027830066*^9, 3.5480102788506613`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", ">", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.500564276738323*^9, 3.500564276738323*^9}, {3.500564478977479*^9,
   3.500564478977479*^9}, {3.5012690944074793`*^9, 3.501269096907482*^9}, {
   3.502989419757598*^9, 3.5029894266684093`*^9}, {3.504382491914279*^9,
   3.5043824931842804`*^9}, 3.5044145181527205`*^9, 3.5044145651527863`*^9,
   3.50983083114561*^9, {3.5101744847117476`*^9, 3.510174488440154*^9}, {
   3.5101794031396337`*^9, 3.5101794036388345`*^9}, {3.5117202050034933`*^9,
   3.5117202050034933`*^9}, {3.5454171560287256`*^9,
   3.5454171571519275`*^9}, {3.5454187407107086`*^9,
   3.5454187407107086`*^9}, {3.5454301415552373`*^9, 3.545430142075238*^9}, {
   3.5461230518608217`*^9, 3.5461230518608217`*^9}, {3.5461231568909693`*^9,
   3.54612315769097*^9}, {3.54621339569569*^9, 3.54621339569569*^9}, {
   3.5465352183988914`*^9, 3.5465352204488945`*^9}, {3.5465738757429657`*^9,
   3.5465738757429657`*^9}, {3.5481798214540825`*^9,
   3.5481798214540825`*^9}, {3.548179949561507*^9, 3.548179949561507*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      RowBox[{"-",
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ",
         RowBox[{"Cos", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], " ",
         SuperscriptBox[
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}],
          RowBox[{"m", "-", "2"}]], " ",
         SuperscriptBox[
          RowBox[{"(",
           RowBox[{"a", "+",
            RowBox[{"b", " ",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
          RowBox[{"n", "+", "1"}]]}],
        RowBox[{"b", " ", "d", " ",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}], " ",
         RowBox[{"(",
          RowBox[{
           SuperscriptBox["a", "2"], "-",
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"b",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}],
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]], "\[CenterDot]",
   "\[IndentingNewLine]",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"m", "-", "3"}]],
     RowBox[{"(",
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"],
        RowBox[{"(",
         RowBox[{"m", "-", "2"}], ")"}]}], "+",
       RowBox[{"a", " ", "b",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "-",
       RowBox[{
        RowBox[{"(",
         RowBox[{
          RowBox[{
           SuperscriptBox["b", "2"],
           RowBox[{"(",
            RowBox[{"n", "+", "1"}], ")"}]}], "+",
          RowBox[{
           SuperscriptBox["a", "2"],
           RowBox[{"(",
            RowBox[{"m", "-", "1"}], ")"}]}]}], ")"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.502676353440346*^9,
   3.50267644207047*^9}, {3.5040325316737633`*^9, 3.504032555885006*^9},
   3.5040712495285273`*^9, 3.5056768305258074`*^9, {3.5091340250266056`*^9,
   3.5091340255166063`*^9}, {3.509134110686725*^9, 3.509134210656865*^9},
   3.5091358140991096`*^9, {3.5091363851499095`*^9, 3.5091363926999197`*^9}, {
   3.5091366480802774`*^9, 3.509136673460313*^9}, {3.509136756420429*^9,
   3.509136781060464*^9}, {3.509136898910629*^9, 3.509136952490704*^9},
   3.509137023530803*^9, {3.5091371495009794`*^9, 3.509137183211027*^9}, {
   3.5091372666811438`*^9, 3.5091373023411937`*^9}, {3.509137374621295*^9,
   3.5091373799413023`*^9}, {3.5091374289113708`*^9,
   3.5091374307213736`*^9}, {3.509154869729108*^9, 3.5091548849591293`*^9}, {
   3.509154923779184*^9, 3.509154943939212*^9}, 3.5091550691693873`*^9, {
   3.5091550996494303`*^9, 3.5091551134994497`*^9}, {3.509155210989586*^9,
   3.5091552779496794`*^9}, {3.509155484369969*^9, 3.5091554935699816`*^9}, {
   3.509156447241317*^9, 3.5091565172614145`*^9}, {3.509157219352398*^9,
   3.5091572214624004`*^9}, {3.509200648372362*^9, 3.509200660899184*^9}, {
   3.5092402115853205`*^9, 3.5092402329885583`*^9}, {3.509240301316678*^9,
   3.509240304764284*^9}, {3.509240391219636*^9, 3.5092403955564437`*^9},
   3.509479727927079*^9, {3.509479774026716*^9, 3.5094797761458373`*^9}, {
   3.509479865673958*^9, 3.5094799080873833`*^9}, 3.5094801863542995`*^9, {
   3.5095014577415843`*^9, 3.5095014579443846`*^9}, {3.5095016031806393`*^9,
   3.5095016185154667`*^9}, {3.5098309142357264`*^9,
   3.5098310772559547`*^9}, {3.5101746147067757`*^9, 3.510174618559983*^9}, {
   3.5101748068991137`*^9, 3.5101748216723394`*^9}, {3.515168179904458*^9,
   3.515168185794466*^9}, {3.5461230519008217`*^9, 3.546123051910822*^9}, {
   3.5461236896617146`*^9, 3.5461237131017475`*^9}, {3.5461239708221083`*^9,
   3.5461239751621146`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}, {3.509479967012754*^9, 3.5094799793114576`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-",
      RowBox[{"a", "^", "2"}]}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "-",
        RowBox[{"2", "*", "1"}]}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"b", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"b", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     "\[IndentingNewLine]", "    ",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^",
         RowBox[{"(",
          RowBox[{"m", "-",
           RowBox[{"3", "*", "1"}]}], ")"}]}], "*", "\[IndentingNewLine]",
        "      ",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "^", "2"}], "*",
            RowBox[{"(",
             RowBox[{"m", "-", "2"}], ")"}]}], "+",
           RowBox[{"a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "-",
           RowBox[{
            RowBox[{"(",
             RowBox[{
              RowBox[{
               RowBox[{"b", "^", "2"}], "*",
               RowBox[{"(",
                RowBox[{"n", "+", "1"}], ")"}]}], "+",
              RowBox[{
               RowBox[{"a", "^", "2"}], "*",
               RowBox[{"(",
                RowBox[{"m", "-", "1"}], ")"}]}]}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*", "\[IndentingNewLine]", "      ",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", ">", "2"}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{
      RowBox[{"2", "*", "m"}], ",",
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5026764690205073`*^9, {3.502676562960639*^9, 3.5026765748706555`*^9}, {
   3.502676709910845*^9, 3.502676745080894*^9}, {3.502677686692212*^9,
   3.5026776934822216`*^9}, {3.5027670612250915`*^9,
   3.5027670636898956`*^9}, {3.503071936858197*^9, 3.5030719454782095`*^9},
   3.50319810512*^9, {3.503549703821251*^9, 3.503549709891259*^9},
   3.50387619429158*^9, {3.5051554747458277`*^9, 3.5051554812558365`*^9},
   3.505344641353784*^9, {3.5053446929738564`*^9, 3.505344714963887*^9},
   3.505353544425192*^9, {3.50924009739312*^9, 3.509240125441969*^9}, {
   3.509240420719288*^9, 3.509240479234991*^9}, {3.5092405242254696`*^9,
   3.509240529685479*^9}, 3.509240560292733*^9, 3.5092406309608574`*^9, {
   3.509240739193847*^9, 3.5092407562290773`*^9}, {3.5094733083539004`*^9,
   3.50947331918552*^9}, {3.509475162067927*^9, 3.509475162249937*^9},
   3.509475333159713*^9, {3.5094799670517564`*^9, 3.5094799740681577`*^9},
   3.5094800542107415`*^9, {3.5095014684744034`*^9, 3.509501471953209*^9}, {
   3.509501621042671*^9, 3.5095016387643023`*^9}, {3.509830853635641*^9,
   3.50983087389567*^9}, 3.50983116723608*^9, {3.509833678260844*^9,
   3.509833678448045*^9}, 3.510174591415935*^9, {3.510174624316393*^9,
   3.5101746289496007`*^9}, {3.510174829207153*^9, 3.510174847599585*^9},
   3.510179417788059*^9, 3.51149485832658*^9, 3.511806523970983*^9, {
   3.5151978942866755`*^9, 3.5151978947858763`*^9}, {3.51597832154444*^9,
   3.515978323712844*^9}, 3.516667508320429*^9, {3.5166762188309326`*^9,
   3.5166762233393407`*^9}, 3.516820655816461*^9, 3.5168238869786377`*^9, {
   3.516828434392735*^9, 3.516828450183638*^9}, 3.517075485512972*^9,
   3.5410904486077127`*^9, 3.541090530391856*^9, 3.54109060095078*^9,
   3.5419784620857754`*^9, {3.545418807010825*^9, 3.5454188089764285`*^9}, {
   3.545491211318657*^9, 3.5454912113486567`*^9}, {3.5460409911532593`*^9,
   3.5460409934232626`*^9}, 3.5460412319235964`*^9, {3.5461059984816275`*^9,
   3.5461060227864704`*^9}, 3.5461060985714035`*^9, {3.5461064996325083`*^9,
   3.5461065215037465`*^9}, {3.546106583357855*^9, 3.546106612405106*^9}, {
   3.54612345037138*^9, 3.5461234578113904`*^9}, {3.5461245878329725`*^9,
   3.5461245896329746`*^9}, 3.5462133910356836`*^9, {3.5465352052388735`*^9,
   3.5465352075988765`*^9}, {3.5465738539329357`*^9, 3.546573855722938*^9},
   3.5481785614598694`*^9, {3.548180519754909*^9, 3.5481805372425394`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, {
   3.5449740914142227`*^9, 3.544974113394661*^9}, {3.544974297599785*^9,
   3.5449743180826206`*^9}, 3.545013646990142*^9, 3.5454968080172033`*^9, {
   3.5460546827523985`*^9, 3.5460546942424145`*^9}, {3.546054727652461*^9,
   3.5460547381924763`*^9}, {3.5460547979225597`*^9, 3.546054804832569*^9}, {
   3.5460550090728555`*^9, 3.5460550355628924`*^9}, 3.546191546959912*^9, {
   3.546191586189967*^9, 3.546191586349967*^9}, {3.5461975511783175`*^9,
   3.5461975722083473`*^9}, {3.5462114754630017`*^9, 3.546211475713002*^9},
   3.546211519203063*^9, 3.546315254005234*^9, {3.546571222059251*^9,
   3.5465712361292706`*^9}, 3.5465739753031054`*^9, {3.546574026283177*^9,
   3.546574029363181*^9}, {3.5465741418633385`*^9, 3.546574153173354*^9}, {
   3.5465742284934597`*^9, 3.5465742598235035`*^9}, {3.546576537966693*^9,
   3.5465765404966965`*^9}, {3.5481798277408934`*^9,
   3.5481798277408934`*^9}, {3.5481799503883085`*^9, 3.5481799503883085`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox["1",
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]], " ",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"3", "/", "2"}]]}]],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-",
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544979015118001*^9, 3.544979194087454*^9, {
   3.5450145398421097`*^9, 3.54501454002931*^9}, {3.545082983598795*^9,
   3.545082986588799*^9}, {3.5451011041981764`*^9, 3.545101106058179*^9},
   3.5454968295672336`*^9, 3.5460550413829007`*^9, {3.5460550934529734`*^9,
   3.546055093712974*^9}, 3.5461915481199136`*^9, 3.546197552218319*^9,
   3.5462104936616273`*^9, 3.5463160413622684`*^9, {3.5465712859893403`*^9,
   3.546571286159341*^9}, {3.546574268643516*^9, 3.5465742688235164`*^9},
   3.546576548086707*^9, {3.5480462735216236`*^9, 3.5480462769288187`*^9}, {
   3.5481829330815477`*^9, 3.548182933284348*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017234466769753`*^9, {3.503797992634972*^9, 3.5037979962649775`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-",
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.5038123846231127`*^9, {
   3.5043909587088013`*^9, 3.5043909839988365`*^9}, 3.504414321782446*^9,
   3.507605300798871*^9, 3.5076058995497093`*^9, 3.5076127417565*^9,
   3.5076841182425194`*^9, 3.507742980218339*^9, 3.507750956038086*^9,
   3.507752918178838*^9, 3.5083803785805426`*^9, {3.5084343299240685`*^9,
   3.5084343323140717`*^9}, {3.508631062706932*^9, 3.508631063018933*^9}, {
   3.5133775950030074`*^9, 3.513377595303008*^9}, {3.51459922592816*^9,
   3.5145992262081604`*^9}, {3.514861987696134*^9, 3.514861988516135*^9}, {
   3.5151816220372944`*^9, 3.5151816227236958`*^9}, {3.5449819340833206`*^9,
   3.5449819346133213`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    FractionBox["1",
     RowBox[{
      SqrtBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]], " ",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
       RowBox[{"3", "/", "2"}]]}]],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
      FractionBox["1",
       RowBox[{"a", "-", "b"}]]}]}],
    RowBox[{"\[Integral]",
     RowBox[{
      FractionBox["1",
       RowBox[{
        SqrtBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]], " ",
        SqrtBox[
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}]],
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-",
  RowBox[{
   FractionBox["b",
    RowBox[{"a", "-", "b"}]],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      RowBox[{"1", "+",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}],
      RowBox[{
       SqrtBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]], " ",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
        RowBox[{"3", "/", "2"}]]}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038115594908633`*^9, 3.5038115707384834`*^9}, {3.5038116014081373`*^9,
   3.503811604247342*^9}, 3.5038121379710793`*^9, {3.5038121707311373`*^9,
   3.5038121732583413`*^9}, {3.503813250383834*^9, 3.503813250586634*^9}, {
   3.503813292113907*^9, 3.5038132968875155`*^9}, {3.503817651090766*^9,
   3.503817701478854*^9}, 3.503817967662122*^9, 3.50381819992533*^9,
   3.507605041808508*^9, {3.507605080328562*^9, 3.5076050911785774`*^9}, {
   3.5076051336786366`*^9, 3.5076051419486485`*^9}, 3.507683421904096*^9, {
   3.507683488251013*^9, 3.507683515909861*^9}, {3.5076841310033417`*^9,
   3.507684165526202*^9}, {3.508631372398676*^9, 3.5086314214919624`*^9}, {
   3.508654584850661*^9, 3.5086545867206635`*^9}, {3.509847449598878*^9,
   3.5098474513488803`*^9}, {3.5151680286942463`*^9, 3.5151680313342495`*^9},
   3.5159779325369577`*^9, 3.5449791862474422`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{"1", "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"Sqrt", "[",
        RowBox[{"sin", "[",
         RowBox[{"c_.", "+",
          RowBox[{"d_.", "*", "x_"}]}], "]"}], "]"}], "*",
       RowBox[{
        RowBox[{"(",
         RowBox[{"a_", "+",
          RowBox[{"b_.", "*",
           RowBox[{"sin", "[",
            RowBox[{"c_.", "+",
             RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^",
        RowBox[{"(",
         RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}], ",", "x_Symbol"}],
   "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"a", "-", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{"1", "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{"Sqrt", "[",
           RowBox[{"a", "+",
            RowBox[{"b", "*",
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}]}], ")"}]}], ",",
       "x"}], "]"}]}], " ", "-", " ", "\n", "  ",
    RowBox[{
     RowBox[{"b", "/",
      RowBox[{"(",
       RowBox[{"a", "-", "b"}], ")"}]}], "*",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"1", "+",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "/",
        RowBox[{"(",
         RowBox[{
          RowBox[{"Sqrt", "[",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}], "]"}], "*",
          RowBox[{
           RowBox[{"(",
            RowBox[{"a", "+",
             RowBox[{"b", "*",
              RowBox[{"Sin", "[",
               RowBox[{"c", "+",
                RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
           RowBox[{"(",
            RowBox[{"3", "/", "2"}], ")"}]}]}], ")"}]}], ",", "x"}],
      "]"}]}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812278246526*^9, 3.5038124044099483`*^9, {3.5038125162465444`*^9,
   3.5038125297093678`*^9}, {3.5038132541122403`*^9, 3.503813257700247*^9}, {
   3.5038133059823313`*^9, 3.5038133098043385`*^9}, {3.5038177237400937`*^9,
   3.503817787216605*^9}, 3.5038182520918217`*^9, {3.5049966551220837`*^9,
   3.5049966590920897`*^9}, {3.504997194212839*^9, 3.504997199462846*^9},
   3.507605211588746*^9, {3.507605269748827*^9, 3.507605288128853*^9}, {
   3.507612961088045*^9, 3.5076129665543575`*^9}, {3.507683544816712*^9,
   3.507683560120339*^9}, 3.5076836324732656`*^9, {3.5076842021394663`*^9,
   3.5076842197206974`*^9}, 3.50768428949962*^9, 3.5086315030957055`*^9, {
   3.5086545871506643`*^9, 3.508654588390666*^9}, {3.5098474519288807`*^9,
   3.5098474536288834`*^9}, {3.5449826325742984`*^9,
   3.5449826381943064`*^9}, {3.544983209795107*^9, 3.5449832125551105`*^9}, {
   3.5449841495864224`*^9, 3.5449841512364244`*^9}, {3.5461249081234207`*^9,
   3.546124908133421*^9}, {3.5461249494034786`*^9, 3.5461249494134784`*^9}, {
   3.5480435023998113`*^9, 3.5480435072270875`*^9}, {3.5481829245015326`*^9,
   3.5481829280271387`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-",
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
       RowBox[{"n", "<",
        RowBox[{"-", "1"}]}], " ", "\[And]", " ",
       RowBox[{"m", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417432430011*^9, 3.545417432430011*^9},
   3.5454175307725835`*^9, {3.5454182048497677`*^9, 3.5454182060821695`*^9}, {
   3.545418772378764*^9, 3.545418772378764*^9}, 3.5454190103727827`*^9,
   3.545496854807269*^9, {3.5461230522608223`*^9, 3.5461230522608223`*^9}, {
   3.546123174670994*^9, 3.546123175550995*^9}, 3.546124157052369*^9,
   3.5461947039443316`*^9, {3.546213227675455*^9, 3.5462132424754753`*^9}, {
   3.546213320045584*^9, 3.546213320045584*^9}, 3.5463160661046834`*^9, {
   3.5465358618897924`*^9, 3.5465358618897924`*^9}, 3.5465687637509947`*^9, {
   3.546568953904253*^9, 3.5465689637942667`*^9}, 3.5465765490267086`*^9, {
   3.548179833934104*^9, 3.548179833934104*^9}, {3.5481799511059103`*^9,
   3.5481799511059103`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Recurrence ",
 "6",
 " with ",
 Cell[BoxData[
  RowBox[{"A", "=", "1"}]]],
 ", ",
 Cell[BoxData[
  RowBox[{"B", "=", "0"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"C", "=", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
   3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
   3.497664184390837*^9}, 3.497664250254153*^9, 3.497664775694276*^9,
   3.4976649459685745`*^9, {3.49876308829488*^9, 3.4987630935048876`*^9}, {
   3.4987648355173264`*^9, 3.498764841027334*^9}, {3.4991797271436334`*^9,
   3.4991797277208347`*^9}, {3.4992121758819084`*^9, 3.499212176211909*^9}, {
   3.4993573070196304`*^9, 3.4993573078152323`*^9}, 3.5013524902049417`*^9,
   3.501621399618896*^9, 3.5016217326739454`*^9, 3.5016376139935837`*^9,
   3.5016377276810865`*^9, {3.5017223219869995`*^9, 3.501722324888605*^9}, {
   3.501722402935542*^9, 3.5017224033411427`*^9}, 3.5017229817901583`*^9,
   3.5017231707844906`*^9, 3.5017234546797895`*^9, {3.5017235643791823`*^9,
   3.501723566750386*^9}, {3.5017250640438175`*^9, 3.5017250769294395`*^9}, {
   3.501725550171871*^9, 3.501725550671072*^9}, {3.5017278201126595`*^9,
   3.501727826898671*^9}, {3.5017278619207325`*^9, 3.5017279153196263`*^9}, {
   3.501727996595769*^9, 3.50172799715737*^9}, {3.501728047857459*^9,
   3.501728055751073*^9}, {3.5017281686076717`*^9, 3.501728169060073*^9}, {
   3.5017287195538397`*^9, 3.50172872538825*^9}, {3.50172921540071*^9,
   3.5017292168983135`*^9}, {3.501729246943966*^9, 3.5017292537299776`*^9}, {
   3.5017295437928877`*^9, 3.5017295745093417`*^9}, 3.5053451232644587`*^9,
   3.5120643332424994`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-",
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ",
   RowBox[{"n", "<",
    RowBox[{"-", "1"}]}], " ", "\[And]", " ",
   RowBox[{"m", "<", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993638312082148`*^9,
   3.499363839028226*^9}, {3.499368533262825*^9, 3.499368534762827*^9}, {
   3.500319714354707*^9, 3.500319719674714*^9}, {3.500321207536797*^9,
   3.5003212188668127`*^9}, {3.501358653573163*^9, 3.5013586559531665`*^9}, {
   3.502678432393256*^9, 3.5026784351732597`*^9}, {3.5027657117315207`*^9,
   3.5027657146955256`*^9}, {3.5027672159617634`*^9,
   3.5027672159617634`*^9}, {3.503549413750845*^9, 3.5035494378508787`*^9}, {
   3.5040286533797517`*^9, 3.5040286542689533`*^9}, 3.504031878337816*^9,
   3.5043107701173162`*^9, {3.509475086194587*^9, 3.509475086194587*^9},
   3.509553389797927*^9, 3.5095539171114664`*^9, {3.509822121353137*^9,
   3.50982213066315*^9}, {3.510174534928236*^9, 3.510174534928236*^9}, {
   3.510179775418688*^9, 3.510179780270296*^9}, {3.5117202775835953`*^9,
   3.5117202775835953`*^9}, {3.54541720407681*^9, 3.54541720407681*^9}, {
   3.545418766528754*^9, 3.5454187683227572`*^9}, {3.545430147155245*^9,
   3.5454301475252457`*^9}, {3.5461230523008223`*^9,
   3.5461230523008223`*^9}, {3.546123177490998*^9, 3.5461231783909993`*^9}, {
   3.546213260725501*^9, 3.546213260725501*^9}, {3.546535854979783*^9,
   3.546535854979783*^9}, {3.546568971942576*^9, 3.546568971942576*^9}, {
   3.5481798372101097`*^9, 3.5481798372101097`*^9}, {3.548179951948312*^9,
   3.548179951948312*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]",
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
      FractionBox[
       RowBox[{
        SuperscriptBox["b", "2"],
        RowBox[{"Cos", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}],
         RowBox[{"m", "+", "1"}]],
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", " ",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
         RowBox[{"n", "+", "1"}]]}],
       RowBox[{"a", " ", "d", " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], " ",
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "-",
          SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}], "+",
  RowBox[{
   FractionBox["1",
    RowBox[{"a", " ",
     RowBox[{"(",
      RowBox[{"n", "+", "1"}], ")"}], " ",
     RowBox[{"(",
      RowBox[{
       SuperscriptBox["a", "2"], "-",
       SuperscriptBox["b", "2"]}], ")"}]}]], "\[CenterDot]",
   "\[IndentingNewLine]", " ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{
          SuperscriptBox["a", "2"], "-",
          SuperscriptBox["b", "2"]}], ")"}], " ",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}]}], "-",
       RowBox[{
        SuperscriptBox["b", "2"],
        RowBox[{"(",
         RowBox[{"m", "+", "1"}], ")"}]}], "-",
       RowBox[{"a", " ", "b",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}],
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
       RowBox[{
        SuperscriptBox["b", "2"],
        RowBox[{"(",
         RowBox[{"m", "+", "n", "+", "3"}], ")"}],
        SuperscriptBox[
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}],
      RowBox[{"n", "+", "1"}]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.499404301116287*^9,
   3.49940430323629*^9}, {3.4994048006769867`*^9, 3.4994048025069895`*^9}, {
   3.5003179811489162`*^9, 3.5003179814297166`*^9}, 3.5003181853432746`*^9, {
   3.5003185563630857`*^9, 3.500318557803087*^9}, {3.5013586287231283`*^9,
   3.5013586400931444`*^9}, 3.5027672052757444`*^9, 3.5035556969716425`*^9,
   3.5053446414737844`*^9, {3.505344693303857*^9, 3.505344708433878*^9},
   3.5053535619252167`*^9, {3.5094747245329013`*^9, 3.509474861672745*^9}, {
   3.5095533946779337`*^9, 3.509553415627963*^9}, {3.509553538668135*^9,
   3.5095535518681536`*^9}, {3.5095535889582057`*^9,
   3.5095536266082582`*^9}, {3.50982217374321*^9, 3.5098222732833495`*^9}, {
   3.5101747654966407`*^9, 3.510174769708648*^9}, {3.5101755756216636`*^9,
   3.5101755834684772`*^9}, {3.515168273434589*^9, 3.515168275344591*^9}, {
   3.5461230523408227`*^9, 3.5461230523508224`*^9}, {3.5461238101718836`*^9,
   3.546123827591908*^9}, {3.54612400030215*^9, 3.5461240084921613`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", "2"}], "*",
     RowBox[{"Cos", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "*",
     RowBox[{
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", "*", "x"}]}], "]"}], "^",
      RowBox[{"(",
       RowBox[{"m", "+", "1"}], ")"}]}], "*",
     RowBox[{
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
       RowBox[{"(",
        RowBox[{"n", "+", "1"}], ")"}]}], "/",
      RowBox[{"(",
       RowBox[{"a", "*", "d", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
    "  ",
    RowBox[{
     RowBox[{"1", "/",
      RowBox[{"(",
       RowBox[{"a", "*",
        RowBox[{"(",
         RowBox[{"n", "+", "1"}], ")"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"a", "^", "2"}], "-",
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*",
     "\[IndentingNewLine]", "    ",
     RowBox[{"Int", "[",
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
        "\[IndentingNewLine]", "      ",
        RowBox[{"Simp", "[",
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(",
             RowBox[{
              RowBox[{"a", "^", "2"}], "-",
              RowBox[{"b", "^", "2"}]}], ")"}], "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}]}], "-",
           RowBox[{
            RowBox[{"b", "^", "2"}], "*",
            RowBox[{"(",
             RowBox[{"m", "+", "1"}], ")"}]}], "-",
           RowBox[{"a", "*", "b", "*",
            RowBox[{"(",
             RowBox[{"n", "+", "1"}], ")"}], "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}], "+",
           RowBox[{
            RowBox[{"b", "^", "2"}], "*",
            RowBox[{"(",
             RowBox[{"m", "+", "n", "+", "3"}], ")"}], "*",
            RowBox[{
             RowBox[{"Sin", "[",
              RowBox[{"c", "+",
               RowBox[{"d", "*", "x"}]}], "]"}], "^", "2"}]}]}], ",", "x"}],
         "]"}], "*", "\[IndentingNewLine]", "      ",
        RowBox[{
         RowBox[{"(",
          RowBox[{"a", "+",
           RowBox[{"b", "*",
            RowBox[{"Sin", "[",
             RowBox[{"c", "+",
              RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^",
         RowBox[{"(",
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"NonzeroQ", "[",
     RowBox[{
      RowBox[{"a", "^", "2"}], "-",
      RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ",
    RowBox[{"RationalQ", "[",
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ",
    RowBox[{"n", "<",
     RowBox[{"-", "1"}]}], " ", "&&", " ",
    RowBox[{"m", "<", "0"}], " ", "&&", " ",
    RowBox[{"IntegersQ", "[",
     RowBox[{
      RowBox[{"2", "*", "m"}], ",",
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.4993638009881725`*^9, {3.4993661760314975`*^9, 3.4993661794315023`*^9},
   3.4993699436547995`*^9, 3.499369995914872*^9, {3.5003179814609165`*^9,
   3.5003179817417173`*^9}, 3.5003186747732515`*^9, {3.5003187057132945`*^9,
   3.5003187115933027`*^9}, {3.5003194495843363`*^9, 3.500319453664342*^9}, {
   3.5003198135348454`*^9, 3.5003198411248837`*^9}, 3.500320756016165*^9,
   3.50052634660607*^9, {3.501043281866661*^9, 3.5010432838407745`*^9}, {
   3.501358610383103*^9, 3.5013586217531185`*^9}, {3.5026774770619183`*^9,
   3.5026774832519274`*^9}, {3.502677757052311*^9, 3.502677762832319*^9}, {
   3.5027656424673986`*^9, 3.502765645119404*^9}, {3.502767123656401*^9,
   3.502767137805626*^9}, {3.5030718732081084`*^9, 3.503071876548113*^9}, {
   3.503072001488288*^9, 3.5030720017582884`*^9}, {3.5035493869908075`*^9,
   3.503549399840825*^9}, 3.503555712201664*^9, {3.5051555554059405`*^9,
   3.5051555560359416`*^9}, {3.5053446414837847`*^9, 3.505344668463822*^9},
   3.505344708453878*^9, 3.50535356428522*^9, {3.509474964753641*^9,
   3.509474975710268*^9}, 3.5094750696026382`*^9, 3.509475101121441*^9, {
   3.509553424017975*^9, 3.509553432967987*^9}, {3.5095534659980335`*^9,
   3.5095534661880336`*^9}, {3.509553498418079*^9, 3.5095535081080923`*^9}, {
   3.5095536757983274`*^9, 3.509553686398342*^9}, {3.509553719448388*^9,
   3.509553731888406*^9}, {3.5095537915784893`*^9, 3.5095537991284995`*^9}, {
   3.509822293623378*^9, 3.5098222938233786`*^9}, {3.5098224038335323`*^9,
   3.509822417233551*^9}, {3.509822906904237*^9, 3.509822907154237*^9}, {
   3.5098337865094347`*^9, 3.5098337870710354`*^9}, {3.510174542275849*^9,
   3.5101745540850697`*^9}, {3.510174772204653*^9, 3.510174775948659*^9}, {
   3.5101755902544894`*^9, 3.510175615822934*^9}, 3.5101797724702826`*^9,
   3.510179909953324*^9, {3.515197938636353*^9, 3.515197939213554*^9}, {
   3.5159785098223705`*^9, 3.515978511990774*^9}, 3.5166676860983415`*^9,
   3.516820656226462*^9, 3.5168238870636425`*^9, 3.5170755074730024`*^9,
   3.5410904700421505`*^9, {3.5410905595483074`*^9, 3.541090568065922*^9},
   3.5419785451258917`*^9, {3.545418776309971*^9, 3.5454187827683825`*^9}, {
   3.545491211498657*^9, 3.545491211528657*^9}, {3.5460410331933184`*^9,
   3.5460410362433224`*^9}, 3.5460412557936296`*^9, {3.546105998590828*^9,
   3.5461060229112706`*^9}, 3.5461060986494036`*^9, {3.5461064997105083`*^9,
   3.5461065215661464`*^9}, {3.5461065834826555`*^9, 3.5461066310471387`*^9},
   3.546123480631422*^9, {3.546124597112985*^9, 3.546124598962988*^9}, {
   3.546213264665507*^9, 3.546213265495508*^9}, {3.5465358381697593`*^9,
   3.5465358388697605`*^9}, {3.5465689834742355`*^9, 3.546568985538354*^9},
   3.548178563347473*^9, {3.548180580641816*^9, 3.548180597240245*^9}, {
   3.5481815554843283`*^9, 3.5481815563891296`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["7:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.545719824274483*^9, 3.5457198244494934`*^9}, {
   3.5460594494138556`*^9, 3.5460594499878883`*^9}, {3.5461053035404067`*^9,
   3.546105319717635*^9}, {3.5461053579845023`*^9, 3.546105358920504*^9}, {
   3.546124698953128*^9, 3.546124699423128*^9}, {3.5461916295600276`*^9,
   3.5461916301100283`*^9}, {3.5461991707505856`*^9, 3.546199171290586*^9},
   3.546214242416876*^9, {3.5463150473254128`*^9, 3.5463150476074286`*^9}, {
   3.546315272154272*^9, 3.5463152723902855`*^9}, {3.5463161576219177`*^9,
   3.54631615975904*^9}, {3.5481806240722923`*^9, 3.548180624337493*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.500345120088499*^9,
   3.500345127428509*^9}, {3.5004296044446*^9, 3.5004296054856596`*^9}, {
   3.5012692292076674`*^9, 3.5012692361876774`*^9}, {3.503000515888104*^9,
   3.503000515888104*^9}, {3.5030010047587886`*^9, 3.503001015708804*^9}, {
   3.503001063418871*^9, 3.503001064418872*^9}, {3.504243197472898*^9,
   3.5042431987328997`*^9}, {3.5044146979829726`*^9, 3.5044146985729733`*^9},
   3.504482472366866*^9, 3.505193456354334*^9, 3.509828539372401*^9, {
   3.5101745056313844`*^9, 3.5101745056313844`*^9}, {3.5101794376000943`*^9,
   3.510179438036895*^9}, {3.511720227183525*^9, 3.511720227183525*^9}, {
   3.545417174155957*^9, 3.545417174155957*^9}, {3.5454188726401405`*^9,
   3.5454188726401405`*^9}, {3.545419213188739*^9, 3.545419215887543*^9}, {
   3.5454200243439665`*^9, 3.5454200243439665`*^9}, {3.546123196831025*^9,
   3.5461231978810263`*^9}, 3.5465418865257273`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     RowBox[{"\[Integral]",
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}], "m"],
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", " ",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5030149938276834`*^9,
   3.5030149992252927`*^9}, 3.505344641363784*^9, {3.505344693023856*^9,
   3.5053447149738874`*^9}, 3.5053535459551945`*^9, {3.5094696268243294`*^9,
   3.509469698805446*^9}, {3.509469791674758*^9, 3.509469802752392*^9}, {
   3.509469914234768*^9, 3.5094699164558954`*^9}, {3.509470445456152*^9,
   3.509470483604334*^9}, {3.5094706454305897`*^9, 3.50947066641179*^9}, {
   3.5094707559529114`*^9, 3.5094707698497066`*^9}, 3.5094708527324467`*^9, {
   3.5094710367959747`*^9, 3.5094710383620644`*^9}, 3.5094711873785877`*^9,
   3.5094801966418877`*^9, {3.5095014754320154`*^9, 3.5095014757128158`*^9}, {
   3.509501663985547*^9, 3.5095016805839767`*^9}, {3.509828555552424*^9,
   3.5098285973424826`*^9}, {3.509828656532565*^9, 3.509828698932625*^9}, {
   3.5098287432526865`*^9, 3.5098287837327433`*^9}, {3.5101746549548464`*^9,
   3.5101746581060524`*^9}, {3.510174939280946*^9, 3.510174959092981*^9}, {
   3.5151682145645065`*^9, 3.5151682184145117`*^9}, {3.5454191112425594`*^9,
   3.545419113769764*^9}, {3.5461244478127766`*^9, 3.54612445038278*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_.", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}],
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{"Defer", "[", "Int", "]"}], "[",
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
      RowBox[{
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", "*",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",",
     "x"}], "]"}], " ", "/;", "\n",
   RowBox[{"FreeQ", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, 3.50267709922139*^9, {3.502677262251618*^9,
   3.502677280331643*^9}, 3.5027670673403025`*^9, {3.5030150059333043`*^9,
   3.5030150148565197`*^9}, {3.503071953798221*^9, 3.5030719623082333`*^9}, {
   3.5035497609313307`*^9, 3.5035497734613485`*^9}, 3.503876194868781*^9, {
   3.504156461196662*^9, 3.5041564626786647`*^9}, 3.505344641373784*^9, {
   3.5053446930538564`*^9, 3.505344714983887*^9}, 3.5053535482551975`*^9, {
   3.5094719943757453`*^9, 3.509471999082014*^9}, {3.5094721711418557`*^9,
   3.5094721778162374`*^9}, {3.50947240515324*^9, 3.509472413765733*^9},
   3.5094733026345735`*^9, {3.509475150960292*^9, 3.5094751544394903`*^9}, {
   3.509501480299224*^9, 3.5095014852600327`*^9}, {3.5095016962152033`*^9,
   3.5095017075096235`*^9}, 3.5098286293025274`*^9, {3.509828898462904*^9,
   3.5098289238329396`*^9}, {3.5098337006312838`*^9, 3.509833704827691*^9},
   3.5101745819155183`*^9, {3.510174660804857*^9, 3.5101746635348616`*^9}, {
   3.5101749657229924`*^9, 3.510174983897024*^9}, 3.510179441609301*^9,
   3.510438752973152*^9, 3.511227636250307*^9, 3.5114939922953677`*^9,
   3.511806385340789*^9, 3.514403488313138*^9, {3.515197880917452*^9,
   3.5151978814790525`*^9}, {3.515978349796089*^9, 3.5159783519332933`*^9},
   3.5166675221732535`*^9, 3.5168206559364614`*^9, 3.5168238870016394`*^9,
   3.5170754944729843`*^9, {3.517075645023195*^9, 3.5170756457431955`*^9},
   3.541090454410923*^9, 3.541090537708269*^9, 3.541090593571967*^9, {
   3.5419774852844076`*^9, 3.541977492824418*^9}, {3.545418900283389*^9,
   3.5454189017497916`*^9}, {3.545419127232588*^9, 3.54541915136583*^9},
   3.545419192393902*^9, {3.5454192425703907`*^9, 3.545419243584392*^9}, {
   3.54542002674397*^9, 3.545420034433981*^9}, {3.5454210176773586`*^9,
   3.545421021277364*^9}, {3.5454217048903217`*^9, 3.5454217071303253`*^9}, {
   3.5454217644704056`*^9, 3.5454217689004116`*^9}, {3.5455309252556715`*^9,
   3.5455309319756804`*^9}, {3.5455950324942245`*^9,
   3.5455950354242287`*^9}, {3.546105998684428*^9, 3.5461060230204706`*^9},
   3.5461060987274036`*^9, {3.5461064997885084`*^9, 3.546106521644147*^9},
   3.5465418895757313`*^9, {3.548015040442136*^9, 3.548015043912141*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6.",
   FontFamily->"Arial"]], "None"], "  ",
  RowBox[{"\[Integral]",
   RowBox[{
    SuperscriptBox[
     RowBox[{"Csc", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
    SuperscriptBox[
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", " ", "x"}]}], "]"}], "q"],
    SuperscriptBox[
     RowBox[{"(",
      RowBox[{"a", "+",
       RowBox[{"b", " ",
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
   3.5330827218568287`*^9}, {3.5368634501889877`*^9,
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
   3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9},
   3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
   3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
   3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9,
   3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9},
   3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
   3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9,
   3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
   3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9,
   3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9},
   3.545577510944168*^9, {3.546793715623633*^9, 3.5467937272112494`*^9}, {
   3.546793933879141*^9, 3.546793934119141*^9}, {3.546815515996174*^9,
   3.5468155161561737`*^9}, 3.5468828397080655`*^9, {3.546883532139035*^9,
   3.5468835325590353`*^9}, {3.5468846012505317`*^9, 3.546884601490532*^9}, {
   3.5468850761311965`*^9, 3.5468850764111967`*^9}, {3.547070905564889*^9,
   3.5470709064848905`*^9}, {3.5472382514489603`*^9, 3.54723825164896*^9}, {
   3.5472492134345226`*^9, 3.547249213574523*^9}, {3.5472502275059423`*^9,
   3.547250227695943*^9}, {3.547856438178831*^9, 3.5478564577888584`*^9}, {
   3.547856585259037*^9, 3.54785660864907*^9}, {3.5478575055103254`*^9,
   3.5478575058303256`*^9}, {3.5478575739204206`*^9,
   3.5478575744604216`*^9}, {3.547857678790568*^9, 3.5478576854705772`*^9}, {
   3.5478648799821897`*^9, 3.5478648986322155`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "q"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9,
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9,
   3.545578398615411*^9}, {3.5461099987254543`*^9, 3.54611000814787*^9}, {
   3.546110085383606*^9, 3.546110115616459*^9}, {3.546113143676578*^9,
   3.5461131599162064`*^9}, {3.546113861589839*^9, 3.546113902539911*^9}, {
   3.546114166008774*^9, 3.546114166008774*^9}, {3.5461157697071905`*^9,
   3.546115770081591*^9}, {3.546881285463888*^9, 3.546881338233962*^9}, {
   3.5468816904144554`*^9, 3.5468817054644766`*^9}, {3.5468819496848183`*^9,
   3.5468819496848183`*^9}, {3.5468853333415565`*^9, 3.5468853339615574`*^9},
   3.546885636591981*^9, {3.546885925232385*^9, 3.546885925772386*^9}, {
   3.547070910324896*^9, 3.547070910544896*^9}, {3.5472382543189645`*^9,
   3.547238254628965*^9}, {3.547249217104528*^9, 3.5472492172745285`*^9}, {
   3.5472502310559473`*^9, 3.5472502313059483`*^9}, {3.5473244459150295`*^9,
   3.5473244989090605`*^9}, 3.5473248197784133`*^9, {3.547829048232483*^9,
   3.547829048669284*^9}, 3.547833784491141*^9, {3.547838047954945*^9,
   3.5478380481149454`*^9}, {3.547840750288728*^9, 3.547840768558754*^9},
   3.547849929084917*^9, {3.5478523680183315`*^9, 3.5478523685783324`*^9}, {
   3.5478564706188765`*^9, 3.5478564814388914`*^9}, {3.547857818220763*^9,
   3.5478578456808014`*^9}, 3.5478650388724117`*^9, {3.547865361932864*^9,
   3.5478653620928645`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    RowBox[{"(",
     RowBox[{
      SuperscriptBox[
       RowBox[{"f", "[", "x", "]"}], "m"],
      SuperscriptBox[
       RowBox[{"(",
        SuperscriptBox[
         RowBox[{"f", "[", "x", "]"}],
         RowBox[{"-", "1"}]], ")"}], "m"]}], ")"}]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.50474982887571*^9,
   3.504749836455721*^9}, {3.5047498695657673`*^9, 3.5047498727757716`*^9}, {
   3.5107881322665586`*^9, 3.5107881705866117`*^9}, {3.510788449847003*^9,
   3.510788449847003*^9}, {3.5131325965637026`*^9, 3.5131325965637026`*^9}, {
   3.5131326285737476`*^9, 3.5131326291037483`*^9}, {3.5468800663921814`*^9,
   3.5468800663921814`*^9}, {3.546885649491999*^9, 3.546885649491999*^9}, {
   3.547324727843155*^9, 3.547324740200862*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.5144794121226625`*^9, 3.5144794127622643`*^9}, {
   3.5145737646985273`*^9, 3.5145737646985273`*^9}, {3.514854592621193*^9,
   3.514854595179598*^9}, 3.546877698838867*^9, {3.5473248738785076`*^9,
   3.547324883421054*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Csc", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "q"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"]}]}],
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"q", "-", "m"}]], " ",
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038127194681015`*^9, 3.503812750902157*^9}, {3.503812801680246*^9,
   3.503812802335447*^9}, {3.5047496671454835`*^9, 3.504749688715514*^9}, {
   3.504749718855556*^9, 3.50474975738561*^9}, {3.5047638556975985`*^9,
   3.504763901217663*^9}, {3.508036862352049*^9, 3.5080368741144695`*^9}, {
   3.5080369099321327`*^9, 3.5080369437529917`*^9}, {3.5080372899175997`*^9,
   3.5080373156732454`*^9}, {3.5105229603279085`*^9, 3.510522986598355*^9}, {
   3.51052302367962*^9, 3.5105231196509886`*^9}, {3.510523163455866*^9,
   3.5105231707566786`*^9}, {3.510524911966773*^9, 3.510524925296792*^9}, {
   3.510525184087154*^9, 3.510525188787161*^9}, {3.510787470405632*^9,
   3.5107874992156725`*^9}, {3.510788066946467*^9, 3.5107880746864777`*^9}, {
   3.510788210246668*^9, 3.510788212636671*^9}, {3.510788384636912*^9,
   3.5107883946369257`*^9}, {3.5107885351071224`*^9,
   3.5107885379071264`*^9}, {3.5107887441574154`*^9, 3.5107887467174187`*^9},
   3.5108457922571573`*^9, {3.5131323613533735`*^9, 3.5131323778533964`*^9}, {
   3.513132420543456*^9, 3.513132420753456*^9}, {3.515189850835873*^9,
   3.5151898680858974`*^9}, 3.546885680512043*^9, 3.5478338233183613`*^9, {
   3.5478338584213696`*^9, 3.547833866427828*^9}, {3.5478340717395706`*^9,
   3.5478340959749565`*^9}, 3.5478407467287235`*^9, {3.5478407907687845`*^9,
   3.5478408026588016`*^9}, 3.5478497271446342`*^9, {3.547849936354927*^9,
   3.5478499398849325`*^9}, {3.547857853910813*^9, 3.5478578572208176`*^9}, {
   3.547865055332435*^9, 3.5478650618524446`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"csc", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "q_."}]}], ",",
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Csc", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", "*", "x"}]}], "]"}], "^",
       RowBox[{"(",
        RowBox[{"q", "-", "m"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
   "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"c", ",", "d", ",", "m", ",", "q"}], "}"}], ",", "x"}], "]"}],
    " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812879274782*^9, 3.503812944763697*^9, {3.5047499105558243`*^9,
   3.5047499251058445`*^9}, 3.504749962655897*^9, 3.50475000012595*^9, {
   3.5047639369577127`*^9, 3.5047639996578007`*^9}, {3.508012492437707*^9,
   3.5080125039037275`*^9}, {3.50803744317267*^9, 3.5080375004559703`*^9}, {
   3.5080380525409403`*^9, 3.508038060340954*^9}, {3.510523241955203*^9,
   3.5105233462245812`*^9}, {3.5105249344968047`*^9,
   3.5105249997668962`*^9}, {3.510525218367202*^9, 3.510525225307212*^9},
   3.5105258453340836`*^9, 3.5105261705445385`*^9, 3.5105287370781317`*^9, {
   3.510787941316291*^9, 3.5107879840363507`*^9}, {3.510788306106802*^9,
   3.5107883445268555`*^9}, {3.510788495777067*^9, 3.510788532967119*^9}, {
   3.5107885649971647`*^9, 3.5107885715471735`*^9}, {3.5107887756674595`*^9,
   3.5107888160375156`*^9}, {3.5107888710675926`*^9,
   3.5107888724475946`*^9}, {3.5107889881877565`*^9, 3.510788989037758*^9}, {
   3.5107928401111546`*^9, 3.510792841351156*^9}, 3.5108457831935415`*^9, {
   3.510846001328725*^9, 3.510846064976836*^9}, {3.513131395797769*^9,
   3.513131399357774*^9}, 3.5131323576833677`*^9, {3.5131323906034145`*^9,
   3.513132417463452*^9}, {3.5131325388836217`*^9, 3.513132546123632*^9}, {
   3.5131325769336753`*^9, 3.5131325801636796`*^9}, {3.5131331771845245`*^9,
   3.5131331862945375`*^9}, {3.5131332889746814`*^9,
   3.5131332972246933`*^9}, {3.5131335146549973`*^9,
   3.5131335296350183`*^9}, {3.513133661945204*^9, 3.513133678455227*^9}, {
   3.5131339717796397`*^9, 3.5131339953896728`*^9}, {3.513134136819871*^9,
   3.513134142779879*^9}, {3.513134194099951*^9, 3.513134228389999*^9},
   3.513135208281024*^9, {3.5159796813628283`*^9, 3.51597968248603*^9},
   3.5413119976144886`*^9, {3.545492119969138*^9, 3.5454921199891386`*^9}, {
   3.546879413561268*^9, 3.5468794145812693`*^9}, {3.546880355902587*^9,
   3.54688035810259*^9}, 3.5468809305833917`*^9, {3.5468856966520653`*^9,
   3.546885724212104*^9}, 3.547001294070572*^9, 3.5472725592425313`*^9, {
   3.5473246919050994`*^9, 3.547324701089625*^9}, 3.5473531267859607`*^9, {
   3.547834133131082*^9, 3.5478341349381857`*^9}, {3.5478408609988832`*^9,
   3.5478408831989145`*^9}, {3.5478409132889566`*^9, 3.54784092288897*^9}, {
   3.547849828794777*^9, 3.547849834604785*^9}, {3.5478499434249372`*^9,
   3.547849969054973*^9}, {3.5478578614308233`*^9, 3.5478578678908324`*^9}, {
   3.54786507340246*^9, 3.547865080922471*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9,
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9},
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9,
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9,
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9,
   3.5194134927764077`*^9}, {3.5194141847624226`*^9,
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9},
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9},
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9,
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9,
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9,
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9,
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9},
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9,
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9},
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9,
   3.5403192458899937`*^9}, {3.5403196532852955`*^9,
   3.5403196542853527`*^9}, {3.5404234472634363`*^9,
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9,
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9},
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9,
   3.5449778251343465`*^9}, 3.544977917559617*^9, 3.5449779627882037`*^9,
   3.544978006651713*^9, {3.5449918948372655`*^9, 3.5449919232873054`*^9}, {
   3.544991979387384*^9, 3.544991982507388*^9}, 3.544992738708447*^9, {
   3.5449930027088165`*^9, 3.5449930028388166`*^9}, 3.545003033111788*^9, {
   3.5450034681341515`*^9, 3.545003468352552*^9}, 3.545013424767751*^9, {
   3.5451009044378967`*^9, 3.545100915607912*^9}, {3.54541557020794*^9,
   3.5454155892399735`*^9}, {3.5454159491014056`*^9, 3.545415954795416*^9},
   3.5454160835424414`*^9, {3.545416120483307*^9, 3.545416120483307*^9}, {
   3.54541627618718*^9, 3.545416318915655*^9}, {3.545416397555393*^9,
   3.5454163977893934`*^9}, {3.5454168214081373`*^9,
   3.5454168256513453`*^9}, {3.5454168857582507`*^9,
   3.5454169106558943`*^9}, {3.5454170438021283`*^9,
   3.5454170438021283`*^9}, {3.5454172983477755`*^9,
   3.5454173176294093`*^9}, {3.545417477046089*^9, 3.545417477046089*^9},
   3.5454175123801513`*^9, 3.545418173946113*^9, {3.5454188654017277`*^9,
   3.545418868272133*^9}, 3.5454190264096107`*^9, {3.5454190831157103`*^9,
   3.545419098481737*^9}, {3.545420016893956*^9, 3.5454200195739603`*^9}, {
   3.5454302777654276`*^9, 3.5454302809754324`*^9}, 3.5454968581472735`*^9, {
   3.5455036760368185`*^9, 3.5455036774768205`*^9}, {3.5455949658741317`*^9,
   3.5455949660641317`*^9}, {3.5456047607340746`*^9, 3.545604778867112*^9}, {
   3.5459637773081865`*^9, 3.5459638055882263`*^9}, {3.5459642265788155`*^9,
   3.545964230618821*^9}, {3.5459642871689005`*^9, 3.5459643347689667`*^9}, {
   3.5459643903390446`*^9, 3.545964396399053*^9}, {3.5459645043792048`*^9,
   3.5459645358792486`*^9}, {3.545964593179329*^9, 3.5459645987793365`*^9}, {
   3.5460206196339874`*^9, 3.5460206280839987`*^9}, {3.54602371316232*^9,
   3.546023713422321*^9}, {3.546033092036688*^9, 3.546033092036688*^9},
   3.5468075422023287`*^9, {3.54681552057618*^9, 3.5468155208261805`*^9}, {
   3.5472427453854675`*^9, 3.547242745615468*^9}, {3.5472440202572527`*^9,
   3.547244020427253*^9}, 3.5473250611762204`*^9, {3.5473251132892013`*^9,
   3.5473251135752172`*^9}, {3.5474190850123477`*^9, 3.547419085293148*^9}, {
   3.5477468070135956`*^9, 3.547746807283596*^9}, {3.5477471126540236`*^9,
   3.547747112854024*^9}, {3.5478320651981354`*^9, 3.547832065508136*^9}, {
   3.547832120388212*^9, 3.5478321206082125`*^9}, {3.5478575988204556`*^9,
   3.5478576063904667`*^9}, {3.5478577699806957`*^9,
   3.5478577702606955`*^9}, {3.5478649377722707`*^9, 3.547864938742272*^9}, {
   3.5478653633828664`*^9, 3.5478653635328665`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    RowBox[{"(",
     RowBox[{
      SuperscriptBox[
       RowBox[{"f", "[", "x", "]"}], "m"],
      SuperscriptBox[
       RowBox[{"(",
        SuperscriptBox[
         RowBox[{"f", "[", "x", "]"}],
         RowBox[{"-", "1"}]], ")"}], "m"]}], ")"}]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.50474982887571*^9,
   3.504749836455721*^9}, {3.5047498695657673`*^9, 3.5047498727757716`*^9}, {
   3.5072605288062344`*^9, 3.5072605314582396`*^9}, {3.5075717121274023`*^9,
   3.507571727117423*^9}, {3.50758176808795*^9, 3.5075817732679577`*^9}, {
   3.507583363755458*^9, 3.5075833689814672`*^9}, {3.510507619932962*^9,
   3.51050763590739*^9}, {3.5106050833413134`*^9, 3.510605087834121*^9},
   3.51060524079239*^9, {3.5148562497457047`*^9, 3.5148562594021215`*^9}, {
   3.5468853674116044`*^9, 3.546885368761606*^9}, {3.546885489631776*^9,
   3.546885523731823*^9}, {3.547255923883918*^9, 3.5472559411739416`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.5144794121226625`*^9, 3.5144794127622643`*^9}, {
   3.5145737646985273`*^9, 3.5145737646985273`*^9}, {3.514854592621193*^9,
   3.514854595179598*^9}, 3.546877698838867*^9, {3.5473248738785076`*^9,
   3.547324883421054*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Csc", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ",
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"]}]}],
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[Integral]",
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{"a", "+",
         RowBox[{"b", " ",
          RowBox[{"Sin", "[",
           RowBox[{"c", "+",
            RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
      SuperscriptBox[
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}], "m"]],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038127194681015`*^9, 3.503812750902157*^9}, {3.503812801680246*^9,
   3.503812802335447*^9}, {3.5047496671454835`*^9, 3.504749688715514*^9}, {
   3.504749718855556*^9, 3.50474975738561*^9}, {3.5047638556975985`*^9,
   3.504763901217663*^9}, {3.508036862352049*^9, 3.5080368741144695`*^9}, {
   3.5080369099321327`*^9, 3.5080369437529917`*^9}, {3.5080372899175997`*^9,
   3.5080373156732454`*^9}, {3.5105229603279085`*^9, 3.510522986598355*^9}, {
   3.51052302367962*^9, 3.5105231196509886`*^9}, {3.510523163455866*^9,
   3.5105231707566786`*^9}, {3.510524911966773*^9, 3.510524925296792*^9}, {
   3.510525184087154*^9, 3.510525188787161*^9}, {3.510787470405632*^9,
   3.5107874992156725`*^9}, {3.510788066946467*^9, 3.5107880746864777`*^9}, {
   3.510788210246668*^9, 3.510788212636671*^9}, {3.510788384636912*^9,
   3.5107883946369257`*^9}, {3.5107885351071224`*^9, 3.5107885379071264`*^9},
   3.5108463483825345`*^9, {3.5108927756275244`*^9, 3.510892785564742*^9}, {
   3.512087377820093*^9, 3.51208741880015*^9}, {3.5131356944342794`*^9,
   3.513135714308714*^9}, {3.515188275553668*^9, 3.5151883024937057`*^9}, {
   3.5151883616037884`*^9, 3.5151883640337915`*^9}, {3.546885451351722*^9,
   3.5468854561017284`*^9}, {3.5478649047722244`*^9, 3.5478649169522414`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"csc", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_.", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}],
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Csc", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/",
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}]}], ",", "x"}], "]"}]}],
    " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812879274782*^9, 3.503812944763697*^9, {3.5047499105558243`*^9,
   3.5047499251058445`*^9}, 3.504749962655897*^9, 3.50475000012595*^9, {
   3.5047639369577127`*^9, 3.5047639996578007`*^9}, {3.508012492437707*^9,
   3.5080125039037275`*^9}, {3.50803744317267*^9, 3.5080375004559703`*^9}, {
   3.5080380525409403`*^9, 3.508038060340954*^9}, {3.510523241955203*^9,
   3.5105233462245812`*^9}, {3.5105249344968047`*^9,
   3.5105249997668962`*^9}, {3.510525218367202*^9, 3.510525225307212*^9},
   3.5105258453340836`*^9, 3.5105261705445385`*^9, 3.5105287370781317`*^9, {
   3.510787941316291*^9, 3.5107879840363507`*^9}, {3.510788306106802*^9,
   3.5107883445268555`*^9}, {3.510788495777067*^9, 3.510788532967119*^9}, {
   3.5107885649971647`*^9, 3.5107885715471735`*^9}, 3.510846310911268*^9, {
   3.5108463716889753`*^9, 3.51084637984779*^9}, {3.5108902763567343`*^9,
   3.5108902793207397`*^9}, 3.5108904227629914`*^9, {3.510890852278546*^9,
   3.5108908532145476`*^9}, 3.510890886130605*^9, 3.510890918204262*^9,
   3.5108920192541957`*^9, {3.5108928160315957`*^9, 3.510892839540837*^9}, {
   3.5120874495501933`*^9, 3.512087483860241*^9}, {3.512087591760392*^9,
   3.5120875957103977`*^9}, {3.512089846877573*^9, 3.512089851257579*^9},
   3.5120917865202885`*^9, {3.5120959422307653`*^9, 3.5120959763792257`*^9}, {
   3.5120962946197844`*^9, 3.512096304479002*^9}, {3.5120970875015774`*^9,
   3.5120970954575915`*^9}, {3.5120971644853125`*^9,
   3.5120971848277483`*^9}, {3.5121644191092863`*^9, 3.512164448259327*^9},
   3.5121646183895655`*^9, 3.5121648571098995`*^9, 3.5121653346866007`*^9,
   3.5125946590678315`*^9, {3.5126599599552894`*^9, 3.512659963006464*^9}, {
   3.512660494121842*^9, 3.5126604997991667`*^9}, {3.512660907364478*^9,
   3.512660919152152*^9}, {3.5126621561059017`*^9, 3.512662158970066*^9}, {
   3.512778874309251*^9, 3.5127788775492554`*^9}, {3.5127789821854296`*^9,
   3.5127789848554335`*^9}, {3.513135755726787*^9, 3.5131357924804516`*^9}, {
   3.513136588682073*^9, 3.513136589312074*^9}, 3.513136877652478*^9,
   3.5131371914313173`*^9, {3.54549204302583*^9, 3.54549204304583*^9},
   3.546020665124051*^9, {3.5460391134686294`*^9, 3.5460391163486333`*^9}, {
   3.5460968102325735`*^9, 3.5460968263474016`*^9}, {3.546885393701641*^9,
   3.546885418901676*^9}, {3.5468855778218985`*^9, 3.546885587801913*^9},
   3.547272597102584*^9, 3.547325079261255*^9, 3.5473435184415345`*^9,
   3.5473452555539665`*^9, {3.547745987832449*^9, 3.5477459939224577`*^9}, {
   3.547864921972248*^9, 3.5478649320922623`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t",
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ",
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "q"],
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}], "  ",
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"],
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]],
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
   3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
   3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
   3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
   3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
   3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
   3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
   3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
   3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
   3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
   3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
   3.5233165475343933`*^9}, {3.5233184331871357`*^9,
   3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
   3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
   3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
   3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
   3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
   3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
   3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
   3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
   3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
   3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
   3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
   3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
   3.5449122781717815`*^9}, {3.5455187047402697`*^9,
   3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
   3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9,
   3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
   3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9,
   3.545578398615411*^9}, {3.5461099987254543`*^9, 3.54611000814787*^9}, {
   3.546110085383606*^9, 3.546110115616459*^9}, {3.546113143676578*^9,
   3.5461131599162064`*^9}, {3.546113861589839*^9, 3.546113902539911*^9}, {
   3.546114166008774*^9, 3.546114166008774*^9}, {3.5461157697071905`*^9,
   3.546115770081591*^9}, {3.546881285463888*^9, 3.546881338233962*^9}, {
   3.5468816904144554`*^9, 3.5468817054644766`*^9}, {3.5468819496848183`*^9,
   3.5468819496848183`*^9}, {3.5468853333415565`*^9, 3.5468853339615574`*^9},
   3.546885636591981*^9, {3.546885925232385*^9, 3.546885925772386*^9}, {
   3.547070910324896*^9, 3.547070910544896*^9}, {3.5472382543189645`*^9,
   3.547238254628965*^9}, {3.547249217104528*^9, 3.5472492172745285`*^9}, {
   3.5472502310559473`*^9, 3.5472502313059483`*^9}, {3.5473244459150295`*^9,
   3.5473244989090605`*^9}, 3.5473248197784133`*^9, {3.547829048232483*^9,
   3.547829048669284*^9}, 3.547833784491141*^9, {3.547838047954945*^9,
   3.5478380481149454`*^9}, {3.547840750288728*^9, 3.547840768558754*^9}, {
   3.5478523710583363`*^9, 3.547852371208336*^9}, {3.5478558493680067`*^9,
   3.5478558495980067`*^9}, {3.5478575999604573`*^9,
   3.5478576079204683`*^9}, {3.547857791000725*^9, 3.5478577913607254`*^9}, {
   3.547865103152502*^9, 3.547865105952506*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
   3.497662798718403*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"],
    RowBox[{"(",
     RowBox[{
      SuperscriptBox[
       RowBox[{"f", "[", "x", "]"}], "m"],
      SuperscriptBox[
       RowBox[{"(",
        SuperscriptBox[
         RowBox[{"f", "[", "x", "]"}],
         RowBox[{"-", "1"}]], ")"}], "m"]}], ")"}]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
   3.497639710530856*^9, 3.4976397495153246`*^9, {3.497640194989707*^9,
   3.4976402054105253`*^9}, 3.497640444886546*^9, {3.50474982887571*^9,
   3.504749836455721*^9}, {3.5047498695657673`*^9, 3.5047498727757716`*^9}, {
   3.5107881322665586`*^9, 3.5107881705866117`*^9}, {3.510788449847003*^9,
   3.510788449847003*^9}, {3.5131325965637026`*^9, 3.5131325965637026`*^9}, {
   3.5131326285737476`*^9, 3.5131326291037483`*^9}, {3.5468800663921814`*^9,
   3.5468800663921814`*^9}, {3.546885649491999*^9, 3.546885649491999*^9}, {
   3.547324727843155*^9, 3.547324740200862*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.4986779242986293`*^9, 3.498677947778662*^9}, {3.499179738750054*^9,
   3.499179740902858*^9}, {3.499213316063504*^9, 3.4992133345435305`*^9}, {
   3.499358051967739*^9, 3.4993580717017736`*^9}, {3.4993592718267775`*^9,
   3.4993592794067883`*^9}, {3.499363873578274*^9, 3.4993638796182823`*^9}, {
   3.50031965968463*^9, 3.5003196639146357`*^9}, {3.5004320083900976`*^9,
   3.5004320093321514`*^9}, {3.5013559257793446`*^9,
   3.5013559257793446`*^9}, {3.5013564069000177`*^9, 3.501356418530034*^9}, {
   3.5026761650200815`*^9, 3.5026762017401333`*^9}, {3.5026762588802133`*^9,
   3.5026762588802133`*^9}, {3.5026784726933126`*^9,
   3.5026784726933126`*^9}, {3.5027658552205725`*^9,
   3.5027658552205725`*^9}, {3.5027672224669743`*^9,
   3.5027672224669743`*^9}, {3.5037105948225365`*^9, 3.503710605582552*^9}, {
   3.5037107610527697`*^9, 3.5037107610527697`*^9}, 3.503812941222491*^9, {
   3.5040286741277885`*^9, 3.50402867512619*^9}, 3.504031838526546*^9,
   3.504311148611575*^9, {3.504764105847949*^9, 3.5047641154079623`*^9}, {
   3.5047641477280073`*^9, 3.504764147948008*^9}, 3.505005742172364*^9, {
   3.5080368114491596`*^9, 3.5080368579840417`*^9}, 3.5080374691155157`*^9, {
   3.5105233710346155`*^9, 3.510523371184616*^9}, {3.5105252878872995`*^9,
   3.510525294107308*^9}, {3.51052584282408*^9, 3.51052584282408*^9}, {
   3.510788027396412*^9, 3.510788030076415*^9}, {3.5107882657767453`*^9,
   3.5107883208568225`*^9}, {3.510789664430705*^9, 3.5107896743807187`*^9},
   3.510790463911824*^9, {3.510790613852034*^9, 3.5107906179920397`*^9}, {
   3.510813336637003*^9, 3.510813336637003*^9}, {3.5108459293657985`*^9,
   3.5108459592866507`*^9}, {3.5139582932649612`*^9,
   3.5139582932649612`*^9}, {3.5144735590171833`*^9, 3.514473561965588*^9}, {
   3.5144737101346483`*^9, 3.514473715157857*^9}, {3.514473763190342*^9,
   3.514473764578744*^9}, {3.5144794121226625`*^9, 3.5144794127622643`*^9}, {
   3.5145737646985273`*^9, 3.5145737646985273`*^9}, {3.514854592621193*^9,
   3.514854595179598*^9}, 3.546877698838867*^9, {3.5473248738785076`*^9,
   3.547324883421054*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]",
  RowBox[{
   SuperscriptBox[
    RowBox[{"Csc", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"], " ",
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "q"],
   SuperscriptBox[
    RowBox[{"(",
     RowBox[{"a", "+",
      RowBox[{"b", " ",
       RowBox[{"Sin", "[",
        RowBox[{"c", "+",
         RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
   RowBox[{"\[DifferentialD]",
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]",
     SuperscriptBox[
      RowBox[{"Csc", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}], "m"]}]}],
   SuperscriptBox[
    RowBox[{"Sin", "[",
     RowBox[{"c", "+",
      RowBox[{"d", " ", "x"}]}], "]"}], "m"],
   RowBox[{"\[Integral]",
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[",
       RowBox[{"c", "+",
        RowBox[{"d", " ", "x"}]}], "]"}],
      RowBox[{"q", "-", "m"}]], " ",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"a", "+",
        RowBox[{"b", " ",
         RowBox[{"Sin", "[",
          RowBox[{"c", "+",
           RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"],
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
   3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
   3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
   3.4976647419046164`*^9}, {3.497664869980841*^9, 3.497664887437272*^9}, {
   3.498761171082196*^9, 3.498761171082196*^9}, {3.4987645684369526`*^9,
   3.4987646442070584`*^9}, {3.49883740188522*^9, 3.4988375207310295`*^9}, {
   3.498837939529365*^9, 3.498837958467798*^9}, 3.498875518717125*^9, {
   3.4991794250335026`*^9, 3.499179452879552*^9}, {3.4991796787211485`*^9,
   3.499179681529153*^9}, {3.4991961982482667`*^9, 3.4991962392763386`*^9}, {
   3.499196653100665*^9, 3.4991966955639396`*^9}, {3.499197135282312*^9,
   3.499197176918785*^9}, {3.499197690444487*^9, 3.499197694048094*^9}, {
   3.499212356332161*^9, 3.4992123865622034`*^9}, {3.499212421412252*^9,
   3.499212423032254*^9}, {3.4992126233625345`*^9, 3.499212696332637*^9}, {
   3.499357348905704*^9, 3.4993574380910606`*^9}, {3.4993588274861555`*^9,
   3.4993589039462624`*^9}, {3.499359110096551*^9, 3.4993591137965565`*^9}, {
   3.4993752824791145`*^9, 3.4993752993591385`*^9}, {3.4994041904561324`*^9,
   3.4994041927361355`*^9}, {3.499404246686211*^9, 3.499404275156251*^9}, {
   3.499404742476905*^9, 3.4994047525269194`*^9}, {3.500317978262911*^9,
   3.500317979417313*^9}, 3.500318137887991*^9, {3.5013559487293763`*^9,
   3.501355958849391*^9}, {3.502675715869453*^9, 3.502675816299594*^9}, {
   3.5026759394697657`*^9, 3.50267594261977*^9}, {3.503710177051952*^9,
   3.503710199091983*^9}, {3.503710750612755*^9, 3.5037107533527584`*^9}, {
   3.5038127194681015`*^9, 3.503812750902157*^9}, {3.503812801680246*^9,
   3.503812802335447*^9}, {3.5047496671454835`*^9, 3.504749688715514*^9}, {
   3.504749718855556*^9, 3.50474975738561*^9}, {3.5047638556975985`*^9,
   3.504763901217663*^9}, {3.508036862352049*^9, 3.5080368741144695`*^9}, {
   3.5080369099321327`*^9, 3.5080369437529917`*^9}, {3.5080372899175997`*^9,
   3.5080373156732454`*^9}, {3.5105229603279085`*^9, 3.510522986598355*^9}, {
   3.51052302367962*^9, 3.5105231196509886`*^9}, {3.510523163455866*^9,
   3.5105231707566786`*^9}, {3.510524911966773*^9, 3.510524925296792*^9}, {
   3.510525184087154*^9, 3.510525188787161*^9}, {3.510787470405632*^9,
   3.5107874992156725`*^9}, {3.510788066946467*^9, 3.5107880746864777`*^9}, {
   3.510788210246668*^9, 3.510788212636671*^9}, {3.510788384636912*^9,
   3.5107883946369257`*^9}, {3.5107885351071224`*^9,
   3.5107885379071264`*^9}, {3.5107887441574154`*^9, 3.5107887467174187`*^9},
   3.5108457922571573`*^9, {3.5131323613533735`*^9, 3.5131323778533964`*^9}, {
   3.513132420543456*^9, 3.513132420753456*^9}, {3.515189850835873*^9,
   3.5151898680858974`*^9}, 3.546885680512043*^9, 3.5478338233183613`*^9, {
   3.5478338584213696`*^9, 3.547833866427828*^9}, {3.5478340717395706`*^9,
   3.5478340959749565`*^9}, 3.5478407467287235`*^9, {3.5478407907687845`*^9,
   3.5478408026588016`*^9}, 3.5478497271446342`*^9, {3.5478558537880125`*^9,
   3.5478558569580173`*^9}, {3.5478651153625193`*^9, 3.547865121362528*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[",
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"csc", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*",
     RowBox[{
      RowBox[{"sin", "[",
       RowBox[{"c_.", "+",
        RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "q_."}], "*",
     RowBox[{
      RowBox[{"(",
       RowBox[{"a_.", "+",
        RowBox[{"b_.", "*",
         RowBox[{"sin", "[",
          RowBox[{"c_.", "+",
           RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}],
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ",
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Csc", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{
     RowBox[{"Sin", "[",
      RowBox[{"c", "+",
       RowBox[{"d", "*", "x"}]}], "]"}], "^", "m"}], "*",
    RowBox[{"Int", "[",
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[",
         RowBox[{"c", "+",
          RowBox[{"d", "*", "x"}]}], "]"}], "^",
        RowBox[{"(",
         RowBox[{"q", "-", "m"}], ")"}]}], "*",
       RowBox[{
        RowBox[{"(",
         RowBox[{"a", "+",
          RowBox[{"b", "*",
           RowBox[{"Sin", "[",
            RowBox[{"c", "+",
             RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",",
      "x"}], "]"}]}], " ", "/;", "\n",
   RowBox[{
    RowBox[{"FreeQ", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "q"}],
       "}"}], ",", "x"}], "]"}], " ", "&&", " ",
    RowBox[{"Not", "[",
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
   3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
   3.497664398470013*^9}, 3.497664769079864*^9, {3.4986774515679674`*^9,
   3.49867746046798*^9}, {3.498761171092196*^9, 3.4987611711021957`*^9}, {
   3.4987647642072268`*^9, 3.4987647797772484`*^9}, {3.4987662584793186`*^9,
   3.498766258909319*^9}, {3.4987729599087005`*^9, 3.4987729607687016`*^9},
   3.4988018581019883`*^9, {3.499179579551774*^9, 3.4991796094414263`*^9}, {
   3.499179689157567*^9, 3.499179691637971*^9}, {3.4991797663621025`*^9,
   3.499179767407304*^9}, {3.499179868308281*^9, 3.499179869805884*^9},
   3.499180259000168*^9, {3.499197395157969*^9, 3.499197401054779*^9}, {
   3.499212499112361*^9, 3.49921251269238*^9}, {3.499212715522664*^9,
   3.4992127382126956`*^9}, {3.4992128038327875`*^9,
   3.4992128061327906`*^9}, {3.499213982604438*^9, 3.499214025174497*^9}, {
   3.499214066304555*^9, 3.499214072114563*^9}, {3.4992145411652193`*^9,
   3.4992145475152283`*^9}, 3.4993574899767523`*^9, {3.4993576909831047`*^9,
   3.4993577157403483`*^9}, 3.4993578086385117`*^9, {3.4993579390391407`*^9,
   3.4993579651067867`*^9}, {3.4993580774113836`*^9, 3.4993580785501857`*^9},
   3.499358991716386*^9, {3.4993590256364326`*^9, 3.499359034196445*^9},
   3.499359158156618*^9, {3.499359230066719*^9, 3.4993592406667337`*^9}, {
   3.499363855658249*^9, 3.499363864218261*^9}, {3.4993753165091624`*^9,
   3.499375327739178*^9}, {3.500317979448513*^9, 3.500317979729314*^9}, {
   3.500318356413175*^9, 3.5003183706092*^9}, {3.500319044263768*^9,
   3.5003190515337787`*^9}, {3.500321448217134*^9, 3.5003214542871428`*^9}, {
   3.500432003250804*^9, 3.5004320043278656`*^9}, {3.5010431659740324`*^9,
   3.5010431675511227`*^9}, {3.5013560814295626`*^9,
   3.5013561004895887`*^9}, {3.50135618678971*^9, 3.5013562181997538`*^9}, {
   3.5013562556298065`*^9, 3.5013562631598167`*^9}, {3.5013563481499357`*^9,
   3.501356350129938*^9}, {3.5013563916299963`*^9, 3.501356393369999*^9},
   3.501356538350202*^9, {3.5013565824102635`*^9, 3.5013565889502726`*^9},
   3.502675840959628*^9, {3.5026759066297197`*^9, 3.502675919529738*^9}, {
   3.5026760125798683`*^9, 3.5026760334598975`*^9}, {3.5026762053901386`*^9,
   3.5026762059201393`*^9}, {3.5026762389901853`*^9, 3.5026762460801954`*^9},
   3.5027656584730268`*^9, 3.5027671152479863`*^9, {3.5030718189880323`*^9,
   3.5030718291780467`*^9}, 3.5037104243322983`*^9, {3.5037104552623415`*^9,
   3.503710552022477*^9}, {3.503710643442605*^9, 3.5037106540026197`*^9}, {
   3.50371079008281*^9, 3.503710799252823*^9}, 3.503711336573575*^9,
   3.503812879274782*^9, 3.503812944763697*^9, {3.5047499105558243`*^9,
   3.5047499251058445`*^9}, 3.504749962655897*^9, 3.50475000012595*^9, {
   3.5047639369577127`*^9, 3.5047639996578007`*^9}, {3.508012492437707*^9,
   3.5080125039037275`*^9}, {3.50803744317267*^9, 3.5080375004559703`*^9}, {
   3.5080380525409403`*^9, 3.508038060340954*^9}, {3.510523241955203*^9,
   3.5105233462245812`*^9}, {3.5105249344968047`*^9,
   3.5105249997668962`*^9}, {3.510525218367202*^9, 3.510525225307212*^9},
   3.5105258453340836`*^9, 3.5105261705445385`*^9, 3.5105287370781317`*^9, {
   3.510787941316291*^9, 3.5107879840363507`*^9}, {3.510788306106802*^9,
   3.5107883445268555`*^9}, {3.510788495777067*^9, 3.510788532967119*^9}, {
   3.5107885649971647`*^9, 3.5107885715471735`*^9}, {3.5107887756674595`*^9,
   3.5107888160375156`*^9}, {3.5107888710675926`*^9,
   3.5107888724475946`*^9}, {3.5107889881877565`*^9, 3.510788989037758*^9}, {
   3.5107928401111546`*^9, 3.510792841351156*^9}, 3.5108457831935415`*^9, {
   3.510846001328725*^9, 3.510846064976836*^9}, {3.513131395797769*^9,
   3.513131399357774*^9}, 3.5131323576833677`*^9, {3.5131323906034145`*^9,
   3.513132417463452*^9}, {3.5131325388836217`*^9, 3.513132546123632*^9}, {
   3.5131325769336753`*^9, 3.5131325801636796`*^9}, {3.5131331771845245`*^9,
   3.5131331862945375`*^9}, {3.5131332889746814`*^9,
   3.5131332972246933`*^9}, {3.5131335146549973`*^9,
   3.5131335296350183`*^9}, {3.513133661945204*^9, 3.513133678455227*^9}, {
   3.5131339717796397`*^9, 3.5131339953896728`*^9}, {3.513134136819871*^9,
   3.513134142779879*^9}, {3.513134194099951*^9, 3.513134228389999*^9},
   3.513135208281024*^9, {3.5159796813628283`*^9, 3.51597968248603*^9},
   3.5413119976144886`*^9, {3.545492119969138*^9, 3.5454921199891386`*^9}, {
   3.546879413561268*^9, 3.5468794145812693`*^9}, {3.546880355902587*^9,
   3.54688035810259*^9}, 3.5468809305833917`*^9, {3.5468856966520653`*^9,
   3.546885724212104*^9}, 3.547001294070572*^9, 3.5472725592425313`*^9, {
   3.5473246919050994`*^9, 3.547324701089625*^9}, 3.5473531267859607`*^9, {
   3.547834133131082*^9, 3.5478341349381857`*^9}, {3.5478408609988832`*^9,
   3.5478408831989145`*^9}, {3.5478409132889566`*^9, 3.54784092288897*^9}, {
   3.547849828794777*^9, 3.547849834604785*^9}, {3.5478558613680234`*^9,
   3.5478558754880433`*^9}, {3.547865129312539*^9, 3.54786513707255*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1912, 961},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ",
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header",
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "TR1", ".1", " ", "Integration", " ", "rules", " ", "for", " ", "sin",
      "(", "c", "+", "d", " ", "x", ")", "^", "m", " ", "(", "a", "+", "b",
      " ", "sin", "(", "c", "+", "d", " ", "x", ")", ")", "^", "n"}],
    "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None,
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header",
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->True,
"FirstPageHeader"->True,
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 2., 2. Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2368, 44, 92, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2938, 68, 2457, 41, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[5420, 113, 3619, 61, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[9064, 178, 1908, 35, 75, "Subsubtitle"],
Cell[10975, 215, 284, 4, 3791, "Subsubsection"],
Cell[11262, 221, 1086, 15, 2600, "Subsubsection"],
Cell[12351, 238, 1253, 27, 6507, "Subsubtitle"],
Cell[13607, 267, 771, 11, 3791, "Subsubsection"],
Cell[14381, 280, 1184, 27, 11594, "Code"],
Cell[15568, 309, 89, 2, 3791, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[15694, 316, 3735, 62, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[19454, 382, 2129, 39, 75, "Subsubtitle"],
Cell[21586, 423, 1086, 15, 50, "Subsubsection"],
Cell[22675, 440, 1506, 36, 111, "Subsubtitle"],
Cell[24184, 478, 771, 11, 50, "Subsubsection"],
Cell[24958, 491, 1342, 33, 142, "Code"],
Cell[26303, 526, 1354, 34, 158, "Code"],
Cell[27660, 562, 89, 2, 50, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[27786, 569, 4287, 72, 75, "Subsubtitle"],
Cell[32076, 643, 3916, 60, 67, "Subsubsection"],
Cell[35995, 705, 3917, 78, 115, "Subsubtitle"],
Cell[39915, 785, 771, 11, 50, "Subsubsection"],
Cell[40689, 798, 3296, 79, 142, "Code"],
Cell[43988, 879, 89, 2, 50, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44126, 887, 3677, 62, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[47828, 953, 2996, 57, 1100, "Subsubtitle"],
Cell[50827, 1012, 233, 3, 3791, "Subsubsection"],
Cell[51063, 1017, 1505, 40, 4896, "Subsubsection"],
Cell[52571, 1059, 2815, 49, 2794, "Subsubsection"],
Cell[55389, 1110, 1727, 31, 4226, "Subsubsection"],
Cell[57119, 1143, 2301, 48, 6507, "Subsubtitle"],
Cell[59423, 1193, 771, 11, 3791, "Subsubsection"],
Cell[60197, 1206, 2242, 53, 11594, "Code"],
Cell[62442, 1261, 89, 2, 3791, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[62568, 1268, 4045, 69, 1100, "Subsubtitle"],
Cell[CellGroupData[{
Cell[66638, 1341, 2273, 40, 1100, "Subsubtitle"],
Cell[68914, 1383, 201, 3, 1935, "Subsubsection"],
Cell[69118, 1388, 1282, 19, 1328, "Subsubsection"],
Cell[70403, 1409, 1127, 16, 1328, "Subsubsection"],
Cell[71533, 1427, 1804, 39, 3385, "Subsubtitle"],
Cell[73340, 1468, 771, 11, 1935, "Subsubsection"],
Cell[74114, 1481, 1333, 34, 5915, "Code"],
Cell[75450, 1517, 89, 2, 1935, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[75576, 1524, 3035, 57, 1100, "Subsubtitle"],
Cell[78614, 1583, 253, 4, 708, "Subsubsection"],
Cell[78870, 1589, 1140, 18, 522, "Subsubsection"],
Cell[80013, 1609, 2391, 40, 787, "Subsubsection"],
Cell[82407, 1651, 4455, 82, 1324, "Subsubtitle"],
Cell[86865, 1735, 819, 11, 708, "Subsubsection"],
Cell[87687, 1748, 2591, 64, 2690, "Code"],
Cell[90281, 1814, 89, 2, 708, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[90443, 1824, 3695, 62, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[94163, 1890, 3815, 65, 1100, "Subsubtitle"],
Cell[CellGroupData[{
Cell[98003, 1959, 2236, 41, 1404, "Subsubtitle"],
Cell[100242, 2002, 1086, 15, 3791, "Subsubsection"],
Cell[101331, 2019, 1580, 38, 9286, "Subsubtitle"],
Cell[102914, 2059, 771, 11, 3791, "Subsubsection"],
Cell[103688, 2072, 1426, 34, 11594, "Code"],
Cell[105117, 2108, 1460, 36, 12751, "Code"],
Cell[106580, 2146, 89, 2, 3791, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[106706, 2153, 4211, 71, 1100, "Subsubtitle"],
Cell[110920, 2226, 3839, 58, 730, "Subsubsection"],
Cell[114762, 2286, 3939, 78, 1689, "Subsubtitle"],
Cell[118704, 2366, 771, 11, 708, "Subsubsection"],
Cell[119478, 2379, 3365, 81, 2158, "Code"],
Cell[122846, 2462, 89, 2, 708, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[122984, 2470, 2971, 54, 1100, "Subsubtitle"],
Cell[125958, 2526, 326, 5, 3791, "Subsubsection"],
Cell[126287, 2533, 778, 14, 2794, "Subsubsection"],
Cell[127068, 2549, 2287, 36, 2794, "Subsubsection"],
Cell[129358, 2587, 4565, 85, 7339, "Subsubtitle"],
Cell[133926, 2674, 771, 11, 3791, "Subsubsection"],
Cell[134700, 2687, 2688, 67, 14449, "Code"],
Cell[137391, 2756, 89, 2, 3791, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[137541, 2765, 3322, 54, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[140888, 2823, 3732, 64, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[144645, 2891, 3791, 64, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[148461, 2959, 4835, 75, 75, "Subsubtitle"],
Cell[153299, 3036, 955, 13, 50, "Subsubsection"],
Cell[154257, 3051, 975, 23, 64, "Subsubsection"],
Cell[155235, 3076, 3759, 52, 34, "Subsubsection"],
Cell[158997, 3130, 2548, 53, 99, "Subsubtitle"],
Cell[161548, 3185, 771, 11, 50, "Subsubsection"],
Cell[162322, 3198, 2589, 55, 142, "Code"],
Cell[164914, 3255, 89, 2, 50, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[165040, 3262, 5203, 86, 75, "Subsubtitle"],
Cell[170246, 3350, 955, 13, 50, "Subsubsection"],
Cell[171204, 3365, 1032, 25, 60, "Subsubsection"],
Cell[172239, 3392, 3962, 60, 51, "Subsubsection"],
Cell[176204, 3454, 2668, 57, 90, "Subsubtitle"],
Cell[178875, 3513, 771, 11, 50, "Subsubsection"],
Cell[179649, 3526, 3012, 68, 142, "Code"],
Cell[182664, 3596, 89, 2, 50, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[182802, 3604, 5013, 82, 75, "Subsubtitle"],
Cell[187818, 3688, 1631, 36, 522, "Subsubsection"],
Cell[189452, 3726, 2207, 34, 373, "Subsubsection"],
Cell[191662, 3762, 3620, 76, 945, "Subsubtitle"],
Cell[195285, 3840, 771, 11, 505, "Subsubsection"],
Cell[196059, 3853, 3461, 80, 1921, "Code"],
Cell[199523, 3935, 89, 2, 505, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[199661, 3943, 3778, 64, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[203464, 4011, 3791, 64, 562, "Subsubtitle"],
Cell[CellGroupData[{
Cell[207280, 4079, 4918, 77, 718, "Subsubtitle"],
Cell[212201, 4158, 955, 13, 362, "Subsubsection"],
Cell[213159, 4173, 1023, 23, 483, "Subsubsection"],
Cell[214185, 4198, 3759, 52, 249, "Subsubsection"],
Cell[217947, 4252, 2633, 56, 787, "Subsubtitle"],
Cell[220583, 4310, 771, 11, 362, "Subsubsection"],
Cell[221357, 4323, 2702, 58, 1102, "Code"],
Cell[224062, 4383, 89, 2, 362, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[224188, 4390, 5127, 85, 562, "Subsubtitle"],
Cell[229318, 4477, 955, 13, 505, "Subsubsection"],
Cell[230276, 4492, 1032, 25, 642, "Subsubsection"],
Cell[231311, 4519, 3839, 58, 373, "Subsubsection"],
Cell[235153, 4579, 2721, 58, 989, "Subsubtitle"],
Cell[237877, 4639, 771, 11, 505, "Subsubsection"],
Cell[238651, 4652, 3030, 71, 1541, "Code"],
Cell[241684, 4725, 89, 2, 505, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[241822, 4733, 4975, 82, 562, "Subsubtitle"],
Cell[246800, 4817, 696, 10, 17047926, "Subsubsection"],
Cell[247499, 4829, 1700, 35, 12556065, "Subsubsection"],
Cell[249202, 4866, 2123, 34, 12556065, "Subsubsection"],
Cell[251328, 4902, 5948, 110, 33413923, "Subsubtitle"],
Cell[257279, 5014, 771, 11, 17047926, "Subsubsection"],
Cell[258053, 5027, 3410, 83, 65006343, "Code"],
Cell[261466, 5112, 89, 2, 17047926, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[261616, 5121, 3403, 55, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[265044, 5180, 3561, 62, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[268630, 5246, 3313, 54, 105, "Subsubtitle"],
Cell[CellGroupData[{
Cell[271968, 5304, 4734, 81, 18963730, "Subsubtitle"],
Cell[276705, 5387, 2784, 44, 22900300, "Subsubsection"],
Cell[279492, 5433, 1301, 24, 12556065, "Subsubsection"],
Cell[280796, 5459, 1538, 38, 33898338, "Subsubtitle"],
Cell[282337, 5499, 771, 11, 17047926, "Subsubsection"],
Cell[283111, 5512, 1582, 44, 52154157, "Code"],
Cell[284696, 5558, 89, 2, 17047926, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[284822, 5565, 3478, 63, 18963730, "Subsubtitle"],
Cell[CellGroupData[{
Cell[288325, 5632, 4766, 83, 548534086, "Subsubtitle"],
Cell[293094, 5717, 582, 17, 500267519, "Subsubsection"],
Cell[293679, 5736, 1021, 31, 402084717, "Subsubsection"],
Cell[294703, 5769, 1704, 31, 352227610, "Subsubsection"],
Cell[296410, 5802, 2124, 47, 767947640, "Subsubtitle"],
Cell[298537, 5851, 771, 11, 352227610, "Subsubsection"],
Cell[299311, 5864, 2095, 51, 1077558450, "Code"],
Cell[301409, 5917, 2162, 54, 1185373794, "Code"],
Cell[303574, 5973, 89, 2, 352227610, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[303700, 5980, 4910, 86, 548534086, "Subsubtitle"],
Cell[308613, 6068, 955, 13, 2147483647, "Subsubsection"],
Cell[309571, 6083, 865, 24, 2147483647, "Subsubsection"],
Cell[310439, 6109, 1536, 28, 2147483647, "Subsubsection"],
Cell[311978, 6139, 1820, 35, 2147483647, "Subsubsection"],
Cell[313801, 6176, 2600, 61, 2147483647, "Subsubtitle"],
Cell[316404, 6239, 771, 11, 2147483647, "Subsubsection"],
Cell[317178, 6252, 2892, 74, 2147483647, "Code"],
Cell[320073, 6328, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[320223, 6337, 3819, 66, 105, "Subsubtitle"],
Cell[CellGroupData[{
Cell[324067, 6407, 4557, 73, 105, "Subsubtitle"],
Cell[328627, 6482, 1976, 30, 72, "Subsubsection"],
Cell[330606, 6514, 5146, 82, 51, "Subsubsection"],
Cell[335755, 6598, 1916, 26, 49, "Subsubsection"],
Cell[337674, 6626, 4374, 83, 132, "Subsubtitle"],
Cell[342051, 6711, 771, 11, 70, "Subsubsection"],
Cell[342825, 6724, 3340, 72, 207, "Code"],
Cell[346168, 6798, 89, 2, 70, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[346294, 6805, 3926, 68, 105, "Subsubtitle"],
Cell[CellGroupData[{
Cell[350245, 6877, 5277, 90, 105, "Subsubtitle"],
Cell[355525, 6969, 1099, 15, 12177091, "Subsubsection"],
Cell[356627, 6986, 2752, 40, 8968620, "Subsubsection"],
Cell[359382, 7028, 2117, 36, 12177091, "Subsubsection"],
Cell[361502, 7066, 2824, 67, 22835918, "Subsubtitle"],
Cell[364329, 7135, 771, 11, 12177091, "Subsubsection"],
Cell[365103, 7148, 2950, 76, 46433108, "Code"],
Cell[368056, 7226, 89, 2, 12177091, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[368182, 7233, 5361, 91, 105, "Subsubtitle"],
Cell[373546, 7326, 1571, 35, 730, "Subsubsection"],
Cell[375120, 7363, 2472, 41, 708, "Subsubsection"],
Cell[377595, 7406, 4018, 89, 2334, "Subsubtitle"],
Cell[381616, 7497, 771, 11, 708, "Subsubsection"],
Cell[382390, 7510, 4273, 100, 2690, "Code"],
Cell[386666, 7612, 89, 2, 708, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[386828, 7622, 3617, 63, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[390470, 7689, 2889, 49, 123, "Subsubtitle"],
Cell[CellGroupData[{
Cell[393384, 7742, 4626, 80, 30823517, "Subsubtitle"],
Cell[398013, 7824, 467, 6, 17047926, "Subsubsection"],
Cell[398483, 7832, 2819, 44, 12556065, "Subsubsection"],
Cell[401305, 7878, 1217, 23, 12556065, "Subsubsection"],
Cell[402525, 7903, 1570, 38, 30823517, "Subsubtitle"],
Cell[404098, 7943, 771, 11, 17047926, "Subsubsection"],
Cell[404872, 7956, 1620, 45, 52154157, "Code"],
Cell[406495, 8003, 89, 2, 17047926, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[406621, 8010, 3225, 60, 30823517, "Subsubtitle"],
Cell[CellGroupData[{
Cell[409871, 8074, 3219, 60, 2147483647, "Subsubtitle"],
Cell[CellGroupData[{
Cell[413115, 8138, 4287, 75, 2147483647, "Subsubtitle"],
Cell[417405, 8215, 1384, 25, 2147483647, "Subsubsection"],
Cell[418792, 8242, 1597, 28, 2147483647, "Subsubsection"],
Cell[420392, 8272, 2366, 58, 2147483647, "Subsubtitle"],
Cell[422761, 8332, 771, 11, 2147483647, "Subsubsection"],
Cell[423535, 8345, 2619, 70, 2147483647, "Code"],
Cell[426157, 8417, 89, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[426283, 8424, 4345, 76, 2147483647, "Subsubtitle"],
Cell[430631, 8502, 335, 5, 2147483647, "Subsubsection"],
Cell[430969, 8509, 357, 5, 2147483647, "Subsubsection"],
Cell[431329, 8516, 1668, 29, 2147483647, "Subsubsection"],
Cell[433000, 8547, 2106, 50, 2147483647, "Subsubtitle"],
Cell[435109, 8599, 771, 11, 2147483647, "Subsubsection"],
Cell[435883, 8612, 2212, 60, 2147483647, "Code"],
Cell[438098, 8674, 2077, 58, 2147483647, "Code"],
Cell[440178, 8734, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[440316, 8742, 4576, 80, 2147483647, "Subsubtitle"],
Cell[444895, 8824, 361, 5, 2147483647, "Subsubsection"],
Cell[445259, 8831, 385, 5, 2147483647, "Subsubsection"],
Cell[445647, 8838, 1650, 30, 2147483647, "Subsubsection"],
Cell[447300, 8870, 2236, 52, 2147483647, "Subsubtitle"],
Cell[449539, 8924, 771, 11, 2147483647, "Subsubsection"],
Cell[450313, 8937, 2175, 60, 2147483647, "Code"],
Cell[452491, 8999, 2120, 59, 2147483647, "Code"],
Cell[454614, 9060, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[454764, 9069, 3246, 54, 136, "Subsubtitle"],
Cell[CellGroupData[{
Cell[458035, 9127, 3657, 66, 700374456, "Subsubtitle"],
Cell[CellGroupData[{
Cell[461717, 9197, 3685, 66, 2147483647, "Subsubtitle"],
Cell[CellGroupData[{
Cell[465427, 9267, 4512, 72, 2147483647, "Subsubtitle"],
Cell[469942, 9341, 5580, 92, 2147483647, "Subsubsection"],
Cell[475525, 9435, 1341, 18, 2147483647, "Subsubsection"],
Cell[476869, 9455, 2292, 51, 2147483647, "Subsubtitle"],
Cell[479164, 9508, 771, 11, 2147483647, "Subsubsection"],
Cell[479938, 9521, 2057, 54, 2147483647, "Code"],
Cell[481998, 9577, 89, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[482124, 9584, 4564, 73, 2147483647, "Subsubtitle"],
Cell[486691, 9659, 5580, 92, 2147483647, "Subsubsection"],
Cell[492274, 9753, 1352, 19, 2147483647, "Subsubsection"],
Cell[493629, 9774, 2324, 52, 2147483647, "Subsubtitle"],
Cell[495956, 9828, 771, 11, 2147483647, "Subsubsection"],
Cell[496730, 9841, 2018, 55, 2147483647, "Code"],
Cell[498751, 9898, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[498889, 9906, 4799, 83, 2147483647, "Subsubtitle"],
Cell[503691, 9991, 1425, 25, 2147483647, "Subsubsection"],
Cell[505119, 10018, 2409, 57, 2147483647, "Subsubtitle"],
Cell[507531, 10077, 771, 11, 2147483647, "Subsubsection"],
Cell[508305, 10090, 2376, 65, 2147483647, "Code"],
Cell[510684, 10157, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[510822, 10165, 3482, 64, 700374456, "Subsubtitle"],
Cell[CellGroupData[{
Cell[514329, 10233, 4827, 85, 700374456, "Subsubtitle"],
Cell[519159, 10320, 958, 23, 602111820, "Subsubsection"],
Cell[520120, 10345, 1029, 31, 402084717, "Subsubsection"],
Cell[521152, 10378, 1703, 31, 352227610, "Subsubsection"],
Cell[522858, 10411, 2169, 48, 700374456, "Subsubtitle"],
Cell[525030, 10461, 771, 11, 352227610, "Subsubsection"],
Cell[525804, 10474, 2373, 57, 1077558450, "Code"],
Cell[528180, 10533, 2422, 59, 1185373794, "Code"],
Cell[530605, 10594, 89, 2, 352227610, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[530731, 10601, 4964, 88, 700374456, "Subsubtitle"],
Cell[535698, 10691, 955, 13, 2147483647, "Subsubsection"],
Cell[536656, 10706, 852, 24, 2147483647, "Subsubsection"],
Cell[537511, 10732, 1486, 28, 2147483647, "Subsubsection"],
Cell[539000, 10762, 1808, 33, 2147483647, "Subsubsection"],
Cell[540811, 10797, 2657, 64, 2147483647, "Subsubtitle"],
Cell[543471, 10863, 771, 11, 2147483647, "Subsubsection"],
Cell[544245, 10876, 2601, 71, 2147483647, "Code"],
Cell[546849, 10949, 89, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[546999, 10958, 3694, 65, 105, "Subsubtitle"],
Cell[CellGroupData[{
Cell[550718, 11027, 5113, 88, 26549217, "Subsubtitle"],
Cell[555834, 11117, 702, 10, 17047926, "Subsubsection"],
Cell[556539, 11129, 2856, 42, 12556065, "Subsubsection"],
Cell[559398, 11173, 1863, 33, 17047926, "Subsubsection"],
Cell[561264, 11208, 3236, 74, 31970279, "Subsubtitle"],
Cell[564503, 11284, 771, 11, 17047926, "Subsubsection"],
Cell[565277, 11297, 3062, 81, 65006343, "Code"],
Cell[568342, 11380, 89, 2, 17047926, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[568468, 11387, 5116, 88, 26549217, "Subsubtitle"],
Cell[573587, 11477, 696, 10, 17047926, "Subsubsection"],
Cell[574286, 11489, 1598, 32, 12556065, "Subsubsection"],
Cell[575887, 11523, 2276, 39, 17047926, "Subsubsection"],
Cell[578166, 11564, 6562, 129, 60414079, "Subsubtitle"],
Cell[584731, 11695, 771, 11, 17047926, "Subsubsection"],
Cell[585505, 11708, 4273, 108, 65006343, "Code"],
Cell[589781, 11818, 89, 2, 17047926, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[589931, 11827, 5171, 82, 75, "Subsubtitle"],
Cell[595105, 11911, 2449, 33, 708, "Subsubsection"],
Cell[597557, 11946, 4204, 71, 1100, "Subsubtitle"],
Cell[601764, 12019, 771, 11, 708, "Subsubsection"],
Cell[602538, 12032, 5060, 86, 2158, "Code"],
Cell[607601, 12120, 89, 2, 708, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[607739, 12128, 3413, 57, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[611177, 12189, 4680, 81, 75, "Subsubtitle"],
Cell[615860, 12272, 1000, 13, 493118601, "Subsubsection"],
Cell[616863, 12287, 3483, 52, 363189608, "Subsubsection"],
Cell[620349, 12341, 4791, 83, 846695653, "Subsubtitle"],
Cell[625143, 12426, 771, 11, 493118601, "Subsubsection"],
Cell[625917, 12439, 6460, 111, 1508581674, "Code"],
Cell[632380, 12552, 89, 2, 493118601, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[632506, 12559, 3928, 69, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[636459, 12632, 3980, 73, 4216, "Subsubtitle"],
Cell[CellGroupData[{
Cell[640464, 12709, 5112, 90, 4216, "Subsubtitle"],
Cell[645579, 12801, 408, 6, 493118601, "Subsubsection"],
Cell[645990, 12809, 1257, 26, 660538772, "Subsubsection"],
Cell[647250, 12837, 3107, 49, 549774832, "Subsubsection"],
Cell[650360, 12888, 5096, 93, 1180138922, "Subsubtitle"],
Cell[655459, 12983, 771, 11, 493118601, "Subsubsection"],
Cell[656233, 12996, 6610, 120, 1508581674, "Code"],
Cell[662846, 13118, 89, 2, 493118601, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[662972, 13125, 5118, 90, 4216, "Subsubtitle"],
Cell[668093, 13217, 408, 6, 493118601, "Subsubsection"],
Cell[668504, 13225, 1337, 27, 660538772, "Subsubsection"],
Cell[669844, 13254, 3483, 54, 549774832, "Subsubsection"],
Cell[673330, 13310, 5256, 95, 1180138922, "Subsubtitle"],
Cell[678589, 13407, 771, 11, 493118601, "Subsubsection"],
Cell[679363, 13420, 6903, 124, 1508581674, "Code"],
Cell[686269, 13546, 89, 2, 493118601, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[686407, 13554, 5544, 95, 4216, "Subsubtitle"],
Cell[691954, 13651, 955, 13, 2710, "Subsubsection"],
Cell[692912, 13666, 876, 22, 3307, "Subsubsection"],
Cell[693791, 13690, 3840, 59, 3019, "Subsubsection"],
Cell[697634, 13751, 2699, 59, 5078, "Subsubtitle"],
Cell[700336, 13812, 771, 11, 2710, "Subsubsection"],
Cell[701110, 13825, 3045, 71, 8282, "Code"],
Cell[704158, 13898, 89, 2, 2710, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[704308, 13907, 4286, 70, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[708619, 13981, 4493, 73, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[713137, 14058, 5533, 87, 3497, "Subsubtitle"],
Cell[718673, 14147, 1067, 14, 1935, "Subsubsection"],
Cell[719743, 14163, 1472, 27, 2062, "Subsubsection"],
Cell[721218, 14192, 1282, 19, 1328, "Subsubsection"],
Cell[722503, 14213, 2916, 39, 1328, "Subsubsection"],
Cell[725422, 14254, 4154, 72, 3497, "Subsubtitle"],
Cell[729579, 14328, 771, 11, 1935, "Subsubsection"],
Cell[730353, 14341, 7440, 120, 5915, "Code"],
Cell[737796, 14463, 89, 2, 1935, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[737922, 14470, 5857, 97, 3011, "Subsubtitle"],
Cell[743782, 14569, 1067, 14, 825125, "Subsubsection"],
Cell[744852, 14585, 1576, 32, 607720, "Subsubsection"],
Cell[746431, 14619, 3072, 46, 607720, "Subsubsection"],
Cell[749506, 14667, 4317, 79, 1284992, "Subsubtitle"],
Cell[753826, 14748, 771, 11, 825125, "Subsubsection"],
Cell[754600, 14761, 7734, 132, 2524280, "Code"],
Cell[762337, 14895, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[762475, 14903, 3963, 66, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[766463, 14973, 4994, 85, 1284992, "Subsubtitle"],
Cell[771460, 15060, 2021, 42, 850805, "Subsubsection"],
Cell[773484, 15104, 3337, 50, 607720, "Subsubsection"],
Cell[776824, 15156, 5023, 103, 2794188, "Subsubtitle"],
Cell[781850, 15261, 924, 13, 825125, "Subsubsection"],
Cell[782777, 15276, 7314, 143, 3146329, "Code"],
Cell[790094, 15421, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[790220, 15428, 4855, 84, 1284992, "Subsubtitle"],
Cell[795078, 15514, 2061, 42, 850805, "Subsubsection"],
Cell[797142, 15558, 2755, 42, 607720, "Subsubsection"],
Cell[799900, 15602, 5492, 112, 2794188, "Subsubtitle"],
Cell[805395, 15716, 771, 11, 825125, "Subsubsection"],
Cell[806169, 15729, 7294, 144, 3146329, "Code"],
Cell[813466, 15875, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[813604, 15883, 3615, 64, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[817244, 15951, 3788, 68, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[821057, 16023, 4763, 85, 1284992, "Subsubtitle"],
Cell[825823, 16110, 1729, 31, 850805, "Subsubsection"],
Cell[827555, 16143, 3117, 50, 825125, "Subsubsection"],
Cell[830675, 16195, 4814, 96, 2730368, "Subsubtitle"],
Cell[835492, 16293, 821, 11, 825125, "Subsubsection"],
Cell[836316, 16306, 4959, 105, 3146329, "Code"],
Cell[841278, 16413, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[841404, 16420, 4772, 85, 1284992, "Subsubtitle"],
Cell[846179, 16507, 631, 9, 825125, "Subsubsection"],
Cell[846813, 16518, 2407, 48, 607720, "Subsubsection"],
Cell[849223, 16568, 1711, 34, 607720, "Subsubsection"],
Cell[850937, 16604, 3127, 50, 825125, "Subsubsection"],
Cell[854067, 16656, 3516, 80, 2730368, "Subsubtitle"],
Cell[857586, 16738, 771, 11, 825125, "Subsubsection"],
Cell[858360, 16751, 4601, 105, 3146329, "Code"],
Cell[862964, 16858, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[863102, 16866, 3553, 64, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[866680, 16934, 4182, 69, 1491870, "Subsubtitle"],
Cell[870865, 17005, 445, 6, 825125, "Subsubsection"],
Cell[871313, 17013, 1240, 27, 919929, "Subsubsection"],
Cell[872556, 17042, 2626, 36, 565504, "Subsubsection"],
Cell[875185, 17080, 2358, 51, 1491870, "Subsubtitle"],
Cell[877546, 17133, 771, 11, 825125, "Subsubsection"],
Cell[878320, 17146, 2758, 58, 2524280, "Code"],
Cell[881081, 17206, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[881207, 17213, 4232, 70, 1640691, "Subsubtitle"],
Cell[885442, 17285, 445, 6, 825125, "Subsubsection"],
Cell[885890, 17293, 1369, 32, 1105268, "Subsubsection"],
Cell[887262, 17327, 2628, 36, 565504, "Subsubsection"],
Cell[889893, 17365, 2666, 62, 1640691, "Subsubtitle"],
Cell[892562, 17429, 771, 11, 825125, "Subsubsection"],
Cell[893336, 17442, 3075, 68, 3146329, "Code"],
Cell[896414, 17512, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[896540, 17519, 3578, 65, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[900143, 17588, 4357, 80, 1284992, "Subsubtitle"],
Cell[904503, 17670, 1707, 31, 850805, "Subsubsection"],
Cell[906213, 17703, 2982, 48, 825125, "Subsubsection"],
Cell[909198, 17753, 6383, 118, 2730368, "Subsubtitle"],
Cell[915584, 17873, 821, 11, 825125, "Subsubsection"],
Cell[916408, 17886, 4570, 103, 3146329, "Code"],
Cell[920981, 17991, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[921107, 17998, 4306, 79, 1284992, "Subsubtitle"],
Cell[925416, 18079, 644, 9, 825125, "Subsubsection"],
Cell[926063, 18090, 1500, 30, 607720, "Subsubsection"],
Cell[927566, 18122, 2559, 42, 825125, "Subsubsection"],
Cell[930128, 18166, 4129, 97, 2924062, "Subsubtitle"],
Cell[934260, 18265, 771, 11, 825125, "Subsubsection"],
Cell[935034, 18278, 4819, 117, 3146329, "Code"],
Cell[939856, 18397, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[940018, 18407, 3695, 66, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[943738, 18477, 5654, 95, 148, "Subsubtitle"],
Cell[949395, 18574, 2370, 42, 850805, "Subsubsection"],
Cell[951768, 18618, 3367, 52, 607720, "Subsubsection"],
Cell[955138, 18672, 5338, 108, 2794188, "Subsubtitle"],
Cell[960479, 18782, 771, 11, 825125, "Subsubsection"],
Cell[961253, 18795, 4451, 104, 3146329, "Code"],
Cell[965707, 18901, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[965833, 18908, 3585, 65, 148, "Subsubtitle"],
Cell[CellGroupData[{
Cell[969443, 18977, 5124, 83, 183, "Subsubtitle"],
Cell[974570, 19062, 2151, 29, 2147483647, "Subsubsection"],
Cell[976724, 19093, 3448, 58, 2147483647, "Subsubsection"],
Cell[980175, 19153, 2877, 40, 2147483647, "Subsubsection"],
Cell[983055, 19195, 4774, 88, 2147483647, "Subsubtitle"],
Cell[987832, 19285, 771, 11, 2147483647, "Subsubsection"],
Cell[988606, 19298, 3259, 71, 2147483647, "Code"],
Cell[991868, 19371, 89, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[991994, 19378, 5220, 84, 199, "Subsubtitle"],
Cell[997217, 19464, 2517, 48, 22900300, "Subsubsection"],
Cell[999737, 19514, 3084, 43, 11683830, "Subsubsection"],
Cell[1002824, 19559, 5135, 100, 37252974, "Subsubtitle"],
Cell[1007962, 19661, 771, 11, 17047926, "Subsubsection"],
Cell[1008736, 19674, 3912, 88, 65006343, "Code"],
Cell[1012651, 19764, 89, 2, 17047926, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1012777, 19771, 3704, 67, 148, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1016506, 19842, 5508, 96, 148, "Subsubtitle"],
Cell[1022017, 19940, 2021, 35, 99, "Subsubsection"],
Cell[1024041, 19977, 2020, 29, 68, "Subsubsection"],
Cell[1026064, 20008, 2716, 44, 95, "Subsubsection"],
Cell[1028783, 20054, 6178, 148, 491, "Subsubtitle"],
Cell[1034964, 20204, 818, 11, 95, "Subsubsection"],
Cell[1035785, 20217, 5753, 125, 360, "Code"],
Cell[1041541, 20344, 89, 2, 95, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1041667, 20351, 5509, 96, 148, "Subsubtitle"],
Cell[1047179, 20449, 2517, 47, 138, "Subsubsection"],
Cell[1049699, 20498, 3259, 53, 134, "Subsubsection"],
Cell[1052961, 20553, 6897, 139, 465, "Subsubtitle"],
Cell[1059861, 20694, 771, 11, 134, "Subsubsection"],
Cell[1060635, 20707, 4910, 123, 501, "Code"],
Cell[1065548, 20832, 89, 2, 134, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1065710, 20842, 4101, 74, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1069836, 20920, 4409, 80, 205, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1074270, 21004, 4479, 81, 44426, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1078774, 21089, 4938, 87, 655610, "Subsubtitle"],
Cell[1083715, 21178, 1433, 24, 607720, "Subsubsection"],
Cell[1085151, 21204, 2402, 39, 434085, "Subsubsection"],
Cell[1087556, 21245, 4207, 81, 1287900, "Subsubtitle"],
Cell[1091766, 21328, 771, 11, 589376, "Subsubsection"],
Cell[1092540, 21341, 4028, 83, 1803057, "Code"],
Cell[1096571, 21426, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1096697, 21433, 7184, 120, 468293, "Subsubtitle"],
Cell[1103884, 21555, 1496, 24, 310062, "Subsubsection"],
Cell[1105383, 21581, 4018, 62, 300704, "Subsubsection"],
Cell[1109404, 21645, 5568, 111, 1018291, "Subsubtitle"],
Cell[1114975, 21758, 771, 11, 300704, "Subsubsection"],
Cell[1115749, 21771, 6706, 137, 1146624, "Code"],
Cell[1122458, 21910, 89, 2, 300704, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1122596, 21918, 4583, 82, 44426, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1127204, 22004, 3573, 68, 597922, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1130802, 22076, 4609, 82, 597922, "Subsubtitle"],
Cell[1135414, 22160, 587, 14, 589376, "Subsubsection"],
Cell[1136004, 22176, 2318, 36, 434085, "Subsubsection"],
Cell[1138325, 22214, 2774, 43, 434085, "Subsubsection"],
Cell[1141102, 22259, 3883, 73, 1287900, "Subsubtitle"],
Cell[1144988, 22334, 821, 11, 589376, "Subsubsection"],
Cell[1145812, 22347, 3643, 74, 1803057, "Code"],
Cell[1149458, 22423, 3659, 74, 1983461, "Code"],
Cell[1153120, 22499, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1153246, 22506, 4513, 82, 597922, "Subsubtitle"],
Cell[1157762, 22590, 457, 7, 589376, "Subsubsection"],
Cell[1158222, 22599, 313, 5, 403931, "Subsubsection"],
Cell[1158538, 22606, 2917, 45, 434085, "Subsubsection"],
Cell[1161458, 22653, 4177, 86, 1287900, "Subsubtitle"],
Cell[1165638, 22741, 821, 11, 589376, "Subsubsection"],
Cell[1166462, 22754, 4265, 93, 1803057, "Code"],
Cell[1170730, 22849, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1170868, 22857, 7240, 121, 468293, "Subsubtitle"],
Cell[1178111, 22980, 1584, 25, 310062, "Subsubsection"],
Cell[1179698, 23007, 3470, 57, 300704, "Subsubsection"],
Cell[1183171, 23066, 6630, 128, 589376, "Subsubtitle"],
Cell[1189804, 23196, 821, 11, 300704, "Subsubsection"],
Cell[1190628, 23209, 6395, 137, 1146624, "Code"],
Cell[1197026, 23348, 89, 2, 300704, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1197176, 23357, 4411, 80, 205, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1201612, 23441, 7083, 119, 44426, "Subsubtitle"],
Cell[1208698, 23562, 1653, 26, 607720, "Subsubsection"],
Cell[1210354, 23590, 3672, 59, 589376, "Subsubsection"],
Cell[1214029, 23651, 5335, 109, 1983461, "Subsubtitle"],
Cell[1219367, 23762, 821, 11, 589376, "Subsubsection"],
Cell[1220191, 23775, 6228, 133, 2247380, "Code"],
Cell[1226422, 23910, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1226548, 23917, 7245, 122, 44426, "Subsubtitle"],
Cell[1233796, 24041, 1662, 26, 29415, "Subsubsection"],
Cell[1235461, 24069, 3745, 60, 28529, "Subsubsection"],
Cell[1239209, 24131, 4985, 107, 55913, "Subsubtitle"],
Cell[1244197, 24240, 821, 11, 28529, "Subsubsection"],
Cell[1245021, 24253, 6391, 137, 108775, "Code"],
Cell[1251415, 24392, 89, 2, 28529, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1251553, 24400, 4304, 77, 205, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1255882, 24481, 3869, 71, 31733, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1259776, 24556, 4805, 85, 468293, "Subsubtitle"],
Cell[1264584, 24643, 1512, 24, 791703, "Subsubsection"],
Cell[1266099, 24669, 2801, 45, 589376, "Subsubsection"],
Cell[1268903, 24716, 5479, 111, 2074439, "Subsubtitle"],
Cell[1274385, 24829, 819, 11, 589376, "Subsubsection"],
Cell[1275207, 24842, 5300, 115, 2247380, "Code"],
Cell[1280510, 24959, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1280636, 24966, 3984, 72, 468293, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1284645, 25042, 3871, 71, 655610, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1288541, 25117, 3921, 71, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1292487, 25192, 4318, 71, 1284992, "Subsubtitle"],
Cell[1296808, 25265, 317, 6, 589376, "Subsubsection"],
Cell[1297128, 25273, 1013, 23, 850805, "Subsubsection"],
Cell[1298144, 25298, 1047, 22, 672802, "Subsubsection"],
Cell[1299194, 25322, 5618, 94, 789477, "Subsubsection"],
Cell[1304815, 25418, 1271, 17, 403931, "Subsubsection"],
Cell[1306089, 25437, 4143, 96, 2941004, "Subsubtitle"],
Cell[1310235, 25535, 771, 11, 589376, "Subsubsection"],
Cell[1311009, 25548, 2642, 66, 1803057, "Code"],
Cell[1313654, 25616, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1313780, 25623, 4344, 72, 1284992, "Subsubtitle"],
Cell[1318127, 25697, 317, 6, 589376, "Subsubsection"],
Cell[1318447, 25705, 957, 22, 850805, "Subsubsection"],
Cell[1319407, 25729, 1049, 22, 672802, "Subsubsection"],
Cell[1320459, 25753, 5616, 94, 789477, "Subsubsection"],
Cell[1326078, 25849, 1242, 17, 403931, "Subsubsection"],
Cell[1327323, 25868, 4042, 94, 2941004, "Subsubtitle"],
Cell[1331368, 25964, 771, 11, 589376, "Subsubsection"],
Cell[1332142, 25977, 2514, 64, 1803057, "Code"],
Cell[1334659, 26043, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1334797, 26051, 4491, 80, 1284992, "Subsubtitle"],
Cell[1339291, 26133, 317, 6, 589376, "Subsubsection"],
Cell[1339611, 26141, 1448, 26, 434085, "Subsubsection"],
Cell[1341062, 26169, 3487, 76, 1458448, "Subsubtitle"],
Cell[1344552, 26247, 771, 11, 589376, "Subsubsection"],
Cell[1345326, 26260, 2818, 74, 1803057, "Code"],
Cell[1348147, 26336, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1348285, 26344, 4462, 81, 657094, "Subsubtitle"],
Cell[1352750, 26427, 459, 7, 589376, "Subsubsection"],
Cell[1353212, 26436, 313, 5, 403931, "Subsubsection"],
Cell[1353528, 26443, 2488, 40, 434085, "Subsubsection"],
Cell[1356019, 26485, 4251, 84, 1287900, "Subsubtitle"],
Cell[1360273, 26571, 821, 11, 589376, "Subsubsection"],
Cell[1361097, 26584, 3739, 80, 1803057, "Code"],
Cell[1364839, 26666, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1364965, 26673, 6250, 105, 468293, "Subsubtitle"],
Cell[1371218, 26780, 1564, 25, 791703, "Subsubsection"],
Cell[1372785, 26807, 2684, 44, 589376, "Subsubsection"],
Cell[1375472, 26853, 5531, 111, 2108976, "Subsubtitle"],
Cell[1381006, 26966, 819, 11, 589376, "Subsubsection"],
Cell[1381828, 26979, 5222, 116, 2247380, "Code"],
Cell[1387053, 27097, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1387203, 27106, 4260, 77, 31733, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1391488, 27187, 6803, 114, 917851, "Subsubtitle"],
Cell[1398294, 27303, 1605, 30, 607720, "Subsubsection"],
Cell[1399902, 27335, 4281, 66, 589376, "Subsubsection"],
Cell[1404186, 27403, 5865, 124, 2924062, "Subsubtitle"],
Cell[1410054, 27529, 821, 11, 589376, "Subsubsection"],
Cell[1410878, 27542, 7664, 159, 2247380, "Code"],
Cell[1418545, 27703, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1418671, 27710, 6973, 116, 917851, "Subsubtitle"],
Cell[1425647, 27828, 1350, 27, 607720, "Subsubsection"],
Cell[1427000, 27857, 3435, 55, 589376, "Subsubsection"],
Cell[1430438, 27914, 6142, 127, 2992364, "Subsubtitle"],
Cell[1436583, 28043, 771, 11, 589376, "Subsubsection"],
Cell[1437357, 28056, 6756, 147, 2247380, "Code"],
Cell[1444116, 28205, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1444266, 28214, 4279, 77, 205, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1448570, 28295, 4055, 74, 312806, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1452650, 28373, 4052, 74, 437927, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1456727, 28451, 4512, 81, 469353, "Subsubtitle"],
Cell[1461242, 28534, 277, 4, 214789, "Subsubsection"],
Cell[1461522, 28540, 896, 28, 287712, "Subsubsection"],
Cell[1462421, 28570, 2489, 40, 158196, "Subsubsection"],
Cell[1464913, 28612, 4636, 96, 469353, "Subsubtitle"],
Cell[1469552, 28710, 821, 11, 214789, "Subsubsection"],
Cell[1470376, 28723, 4253, 93, 819017, "Code"],
Cell[1474632, 28818, 89, 2, 214789, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1474758, 28825, 6743, 112, 437927, "Subsubtitle"],
Cell[1481504, 28939, 1527, 29, 221473, "Subsubsection"],
Cell[1483034, 28970, 3516, 55, 214789, "Subsubsection"],
Cell[1486553, 29027, 5776, 122, 886159, "Subsubtitle"],
Cell[1492332, 29151, 821, 11, 214789, "Subsubsection"],
Cell[1493156, 29164, 6827, 143, 819017, "Code"],
Cell[1499986, 29309, 89, 2, 214789, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1500124, 29317, 4161, 75, 437927, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1504310, 29396, 4594, 82, 427087, "Subsubtitle"],
Cell[1508907, 29480, 993, 13, 214789, "Subsubsection"],
Cell[1509903, 29495, 1893, 40, 287712, "Subsubsection"],
Cell[1511799, 29537, 1606, 28, 158196, "Subsubsection"],
Cell[1513408, 29567, 3242, 72, 469353, "Subsubtitle"],
Cell[1516653, 29641, 771, 11, 214789, "Subsubsection"],
Cell[1517427, 29654, 2681, 69, 819017, "Code"],
Cell[1520111, 29725, 89, 2, 214789, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1520237, 29732, 6658, 112, 437927, "Subsubtitle"],
Cell[1526898, 29846, 1399, 24, 221473, "Subsubsection"],
Cell[1528300, 29872, 3235, 53, 214789, "Subsubsection"],
Cell[1531538, 29927, 5500, 117, 451103, "Subsubtitle"],
Cell[1537041, 30046, 821, 11, 214789, "Subsubsection"],
Cell[1537865, 30059, 5950, 130, 819017, "Code"],
Cell[1543818, 30191, 89, 2, 214789, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1543968, 30200, 4254, 77, 238925, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1548247, 30281, 4336, 78, 917851, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1552608, 30363, 6783, 113, 917851, "Subsubtitle"],
Cell[1559394, 30478, 1352, 24, 607720, "Subsubsection"],
Cell[1560749, 30504, 1554, 29, 434085, "Subsubsection"],
Cell[1562306, 30535, 2788, 45, 589376, "Subsubsection"],
Cell[1565097, 30582, 7003, 137, 2549044, "Subsubtitle"],
Cell[1572103, 30721, 821, 11, 589376, "Subsubsection"],
Cell[1572927, 30734, 6017, 131, 2247380, "Code"],
Cell[1578947, 30867, 89, 2, 589376, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1579073, 30874, 7067, 117, 917851, "Subsubtitle"],
Cell[1586143, 30993, 1507, 29, 607720, "Subsubsection"],
Cell[1587653, 31024, 3296, 53, 589376, "Subsubsection"],
Cell[1590952, 31079, 5433, 119, 2021901, "Subsubtitle"],
Cell[1596388, 31200, 821, 11, 589376, "Subsubsection"],
Cell[1597212, 31213, 6437, 144, 2247380, "Code"],
Cell[1603652, 31359, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1603790, 31367, 6824, 114, 917851, "Subsubtitle"],
Cell[1610617, 31483, 1457, 25, 607720, "Subsubsection"],
Cell[1612077, 31510, 3363, 54, 589376, "Subsubsection"],
Cell[1615443, 31566, 5549, 120, 2021901, "Subsubtitle"],
Cell[1620995, 31688, 821, 11, 589376, "Subsubsection"],
Cell[1621819, 31701, 6382, 142, 2247380, "Code"],
Cell[1628204, 31845, 89, 2, 589376, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1628366, 31855, 4104, 74, 75, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1632495, 31933, 4214, 76, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1636734, 32013, 3842, 70, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1640601, 32087, 4102, 74, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1644728, 32165, 4410, 79, 1284992, "Subsubtitle"],
Cell[1649141, 32246, 1134, 15, 825125, "Subsubsection"],
Cell[1650278, 32263, 1699, 42, 1105268, "Subsubsection"],
Cell[1651980, 32307, 2609, 42, 607720, "Subsubsection"],
Cell[1654592, 32351, 4825, 101, 1732949, "Subsubtitle"],
Cell[1659420, 32454, 771, 11, 825125, "Subsubsection"],
Cell[1660194, 32467, 5801, 121, 3146329, "Code"],
Cell[1665998, 32590, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1666124, 32597, 6070, 103, 1284992, "Subsubtitle"],
Cell[1672197, 32702, 2262, 46, 850805, "Subsubsection"],
Cell[1674462, 32750, 2109, 41, 607720, "Subsubsection"],
Cell[1676574, 32793, 2863, 46, 825125, "Subsubsection"],
Cell[1679440, 32841, 5421, 118, 3568659, "Subsubtitle"],
Cell[1684864, 32961, 818, 11, 825125, "Subsubsection"],
Cell[1685685, 32974, 7473, 157, 3146329, "Code"],
Cell[1693161, 33133, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1693299, 33141, 3947, 72, 1284992, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1697271, 33217, 4523, 81, 1798987, "Subsubtitle"],
Cell[1701797, 33300, 993, 13, 825125, "Subsubsection"],
Cell[1702793, 33315, 1522, 35, 1048565, "Subsubsection"],
Cell[1704318, 33352, 2554, 40, 607720, "Subsubsection"],
Cell[1706875, 33394, 5031, 95, 1803057, "Subsubtitle"],
Cell[1711909, 33491, 821, 11, 825125, "Subsubsection"],
Cell[1712733, 33504, 7049, 127, 3146329, "Code"],
Cell[1719785, 33633, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1719911, 33640, 4513, 81, 1803057, "Subsubtitle"],
Cell[1724427, 33723, 2179, 29, 825125, "Subsubsection"],
Cell[1726609, 33754, 2939, 46, 607720, "Subsubsection"],
Cell[1729551, 33802, 4007, 89, 1803057, "Subsubtitle"],
Cell[1733561, 33893, 871, 12, 825125, "Subsubsection"],
Cell[1734435, 33907, 4380, 99, 3146329, "Code"],
Cell[1738818, 34008, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1738944, 34015, 4815, 86, 1798987, "Subsubtitle"],
Cell[1743762, 34103, 2179, 29, 825125, "Subsubsection"],
Cell[1745944, 34134, 2934, 46, 607720, "Subsubsection"],
Cell[1748881, 34182, 5374, 108, 1803057, "Subsubtitle"],
Cell[1754258, 34292, 771, 11, 825125, "Subsubsection"],
Cell[1755032, 34305, 6531, 130, 3146329, "Code"],
Cell[1761566, 34437, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1761692, 34444, 6203, 105, 1284992, "Subsubtitle"],
Cell[1767898, 34551, 1485, 30, 850805, "Subsubsection"],
Cell[1769386, 34583, 1534, 33, 607720, "Subsubsection"],
Cell[1770923, 34618, 3508, 56, 825125, "Subsubsection"],
Cell[1774434, 34676, 5574, 120, 3568659, "Subsubtitle"],
Cell[1780011, 34798, 771, 11, 825125, "Subsubsection"],
Cell[1780785, 34811, 8266, 167, 3146329, "Code"],
Cell[1789054, 34980, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1789204, 34989, 4044, 74, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1793273, 35067, 6034, 103, 87074, "Subsubtitle"],
Cell[1799310, 35172, 1751, 39, 850805, "Subsubsection"],
Cell[1801064, 35213, 3342, 54, 825125, "Subsubsection"],
Cell[1804409, 35269, 5810, 129, 3568659, "Subsubtitle"],
Cell[1810222, 35400, 818, 11, 825125, "Subsubsection"],
Cell[1811043, 35413, 8080, 169, 3146329, "Code"],
Cell[1819126, 35584, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1819252, 35591, 4090, 75, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1823367, 35670, 4793, 85, 108271, "Subsubtitle"],
Cell[1828163, 35757, 2473, 33, 825125, "Subsubsection"],
Cell[1830639, 35792, 1040, 22, 879041, "Subsubsection"],
Cell[1831682, 35816, 2778, 44, 607720, "Subsubsection"],
Cell[1834463, 35862, 3210, 70, 1798987, "Subsubtitle"],
Cell[1837676, 35934, 771, 11, 825125, "Subsubsection"],
Cell[1838450, 35947, 3249, 76, 2524280, "Code"],
Cell[1841702, 36025, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1841828, 36032, 4546, 83, 117427, "Subsubtitle"],
Cell[1846377, 36117, 1208, 16, 825125, "Subsubsection"],
Cell[1847588, 36135, 2782, 44, 607720, "Subsubsection"],
Cell[1850373, 36181, 5656, 122, 1732949, "Subsubtitle"],
Cell[1856032, 36305, 771, 11, 825125, "Subsubsection"],
Cell[1856806, 36318, 6809, 142, 3146329, "Code"],
Cell[1863618, 36462, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1863744, 36469, 4860, 87, 109587, "Subsubtitle"],
Cell[1868607, 36558, 1208, 16, 55913, "Subsubsection"],
Cell[1869818, 36576, 3342, 60, 41182, "Subsubsection"],
Cell[1873163, 36638, 2829, 45, 41182, "Subsubsection"],
Cell[1875995, 36685, 5446, 115, 117427, "Subsubtitle"],
Cell[1881444, 36802, 771, 11, 55913, "Subsubsection"],
Cell[1882218, 36815, 6773, 140, 213199, "Code"],
Cell[1888994, 36957, 89, 2, 55913, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1889120, 36964, 6045, 104, 87074, "Subsubtitle"],
Cell[1895168, 37070, 1488, 33, 80714, "Subsubsection"],
Cell[1896659, 37105, 3877, 60, 78278, "Subsubsection"],
Cell[1900539, 37167, 6089, 135, 339966, "Subsubtitle"],
Cell[1906631, 37304, 771, 11, 78278, "Subsubsection"],
Cell[1907405, 37317, 8614, 179, 298478, "Code"],
Cell[1916022, 37498, 89, 2, 78278, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1916172, 37507, 4250, 76, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1920447, 37587, 5958, 102, 1284992, "Subsubtitle"],
Cell[1926408, 37691, 1991, 42, 850805, "Subsubsection"],
Cell[1928402, 37735, 3913, 62, 825125, "Subsubsection"],
Cell[1932318, 37799, 6469, 147, 4006613, "Subsubtitle"],
Cell[1938790, 37948, 818, 11, 825125, "Subsubsection"],
Cell[1939611, 37961, 9544, 202, 4996122, "Code"],
Cell[1949158, 38165, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[1949284, 38172, 5897, 102, 1284992, "Subsubtitle"],
Cell[1955184, 38276, 2039, 43, 850805, "Subsubsection"],
Cell[1957226, 38321, 3750, 60, 825125, "Subsubsection"],
Cell[1960979, 38383, 6382, 144, 4006613, "Subsubtitle"],
Cell[1967364, 38529, 771, 11, 825125, "Subsubsection"],
Cell[1968138, 38542, 8881, 192, 4996122, "Code"],
Cell[1977022, 38736, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1977172, 38745, 4126, 75, 87074, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1981323, 38824, 4019, 73, 205509, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1985367, 38901, 4036, 73, 1547373, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1989428, 38978, 4797, 84, 1798987, "Subsubtitle"],
Cell[1994228, 39064, 993, 13, 825125, "Subsubsection"],
Cell[1995224, 39079, 1865, 38, 1105268, "Subsubsection"],
Cell[1997092, 39119, 2765, 44, 607720, "Subsubsection"],
Cell[1999860, 39165, 3204, 71, 1803057, "Subsubtitle"],
Cell[2003067, 39238, 771, 11, 825125, "Subsubsection"],
Cell[2003841, 39251, 3261, 77, 3146329, "Code"],
Cell[2007105, 39330, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2007231, 39337, 4983, 87, 1597821, "Subsubtitle"],
Cell[2012217, 39426, 993, 13, 825125, "Subsubsection"],
Cell[2013213, 39441, 1351, 28, 919929, "Subsubsection"],
Cell[2014567, 39471, 2554, 40, 607720, "Subsubsection"],
Cell[2017124, 39513, 4882, 93, 1798987, "Subsubtitle"],
Cell[2022009, 39608, 821, 11, 825125, "Subsubsection"],
Cell[2022833, 39621, 6909, 126, 3146329, "Code"],
Cell[2029745, 39749, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2029871, 39756, 5784, 99, 1547373, "Subsubtitle"],
Cell[2035658, 39857, 2301, 45, 850805, "Subsubsection"],
Cell[2037962, 39904, 2860, 46, 825125, "Subsubsection"],
Cell[2040825, 39952, 5802, 119, 3146329, "Subsubtitle"],
Cell[2046630, 40073, 771, 11, 825125, "Subsubsection"],
Cell[2047404, 40086, 7312, 152, 3146329, "Code"],
Cell[2054719, 40240, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2054857, 40248, 3915, 71, 1547373, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2058797, 40323, 4586, 82, 1491870, "Subsubtitle"],
Cell[2063386, 40407, 445, 6, 825125, "Subsubsection"],
Cell[2063834, 40415, 1316, 30, 919929, "Subsubsection"],
Cell[2065153, 40447, 1688, 29, 607720, "Subsubsection"],
Cell[2066844, 40478, 2707, 61, 1491870, "Subsubtitle"],
Cell[2069554, 40541, 771, 11, 825125, "Subsubsection"],
Cell[2070328, 40554, 3355, 76, 2524280, "Code"],
Cell[2073686, 40632, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2073812, 40639, 4908, 87, 1640691, "Subsubtitle"],
Cell[2078723, 40728, 1426, 33, 1237822, "Subsubsection"],
Cell[2080152, 40763, 1688, 29, 607720, "Subsubsection"],
Cell[2081843, 40794, 2940, 61, 1640691, "Subsubtitle"],
Cell[2084786, 40857, 771, 11, 825125, "Subsubsection"],
Cell[2085560, 40870, 3139, 71, 2524280, "Code"],
Cell[2088702, 40943, 3108, 70, 2776846, "Code"],
Cell[2091813, 41015, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2091939, 41022, 6076, 103, 1547373, "Subsubtitle"],
Cell[2098018, 41127, 1988, 36, 850805, "Subsubsection"],
Cell[2100009, 41165, 3229, 52, 825125, "Subsubsection"],
Cell[2103241, 41219, 5893, 123, 3146329, "Subsubtitle"],
Cell[2109137, 41344, 821, 11, 825125, "Subsubsection"],
Cell[2109961, 41357, 7718, 157, 3146329, "Code"],
Cell[2117682, 41516, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2117832, 41525, 5065, 87, 223433, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2122922, 41616, 4161, 75, 223433, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2127108, 41695, 4567, 82, 239467, "Subsubtitle"],
Cell[2131678, 41779, 2179, 29, 109587, "Subsubsection"],
Cell[2133860, 41810, 2935, 46, 80714, "Subsubsection"],
Cell[2136798, 41858, 3924, 86, 239467, "Subsubtitle"],
Cell[2140725, 41946, 871, 12, 109587, "Subsubsection"],
Cell[2141599, 41960, 4334, 97, 417867, "Code"],
Cell[2145936, 42059, 89, 2, 109587, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2146062, 42066, 4692, 84, 230155, "Subsubtitle"],
Cell[2150757, 42152, 1208, 16, 109587, "Subsubsection"],
Cell[2151968, 42170, 2663, 43, 80714, "Subsubsection"],
Cell[2154634, 42215, 5298, 114, 230155, "Subsubtitle"],
Cell[2159935, 42331, 771, 11, 109587, "Subsubsection"],
Cell[2160709, 42344, 6598, 139, 417867, "Code"],
Cell[2167310, 42485, 89, 2, 109587, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2167436, 42492, 6012, 102, 223433, "Subsubtitle"],
Cell[2173451, 42596, 2177, 40, 850805, "Subsubsection"],
Cell[2175631, 42638, 2909, 47, 825125, "Subsubsection"],
Cell[2178543, 42687, 6179, 132, 3618477, "Subsubtitle"],
Cell[2184725, 42821, 771, 11, 825125, "Subsubsection"],
Cell[2185499, 42834, 7649, 161, 3146329, "Code"],
Cell[2193151, 42997, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2193289, 43005, 4066, 74, 223433, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2197380, 43083, 3527, 67, 1640691, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2200932, 43154, 4834, 87, 1640691, "Subsubtitle"],
Cell[2205769, 43243, 1725, 31, 1065622, "Subsubsection"],
Cell[2207497, 43276, 2938, 61, 1640691, "Subsubtitle"],
Cell[2210438, 43339, 771, 11, 825125, "Subsubsection"],
Cell[2211212, 43352, 3281, 73, 2524280, "Code"],
Cell[2214496, 43427, 3199, 72, 2776846, "Code"],
Cell[2217698, 43501, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2217824, 43508, 4923, 89, 1640691, "Subsubtitle"],
Cell[2222750, 43599, 955, 13, 825125, "Subsubsection"],
Cell[2223708, 43614, 1059, 26, 1640691, "Subsubsection"],
Cell[2224770, 43642, 1851, 34, 825125, "Subsubsection"],
Cell[2226624, 43678, 3296, 76, 3212581, "Subsubtitle"],
Cell[2229923, 43756, 817, 11, 825125, "Subsubsection"],
Cell[2230743, 43769, 3306, 85, 2524280, "Code"],
Cell[2234052, 43856, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2234190, 43864, 3500, 67, 1640691, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2237715, 43935, 4449, 82, 1640691, "Subsubtitle"],
Cell[2242167, 44019, 2179, 29, 825125, "Subsubsection"],
Cell[2244349, 44050, 985, 29, 1444216, "Subsubsection"],
Cell[2245337, 44081, 1732, 31, 825125, "Subsubsection"],
Cell[2247072, 44114, 3442, 76, 2459048, "Subsubtitle"],
Cell[2250517, 44192, 3058, 66, 1640691, "Subsubtitle"],
Cell[2253578, 44260, 771, 11, 825125, "Subsubsection"],
Cell[2254352, 44273, 3269, 77, 2524280, "Code"],
Cell[2257624, 44352, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2257750, 44359, 4437, 81, 1640691, "Subsubtitle"],
Cell[2262190, 44442, 237, 3, 825125, "Subsubsection"],
Cell[2262430, 44447, 1253, 35, 1467992, "Subsubsection"],
Cell[2263686, 44484, 3024, 47, 607720, "Subsubsection"],
Cell[2266713, 44533, 5326, 113, 3822513, "Subsubtitle"],
Cell[2272042, 44648, 821, 11, 825125, "Subsubsection"],
Cell[2272866, 44661, 5526, 122, 3756253, "Code"],
Cell[2278395, 44785, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2278533, 44793, 4651, 84, 1640691, "Subsubtitle"],
Cell[2283187, 44879, 1134, 15, 825125, "Subsubsection"],
Cell[2284324, 44896, 2863, 45, 607720, "Subsubsection"],
Cell[2287190, 44943, 5065, 102, 1640691, "Subsubtitle"],
Cell[2292258, 45047, 771, 11, 825125, "Subsubsection"],
Cell[2293032, 45060, 6079, 123, 3146329, "Code"],
Cell[2299114, 45185, 89, 2, 825125, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2299240, 45192, 6108, 104, 1682335, "Subsubtitle"],
Cell[2305351, 45298, 1988, 36, 850805, "Subsubsection"],
Cell[2307342, 45336, 3290, 53, 825125, "Subsubsection"],
Cell[2310635, 45391, 6186, 133, 3618477, "Subsubtitle"],
Cell[2316824, 45526, 821, 11, 825125, "Subsubsection"],
Cell[2317648, 45539, 7944, 164, 3146329, "Code"],
Cell[2325595, 45705, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2325745, 45714, 4192, 76, 170662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2329962, 45794, 4141, 76, 170662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2334128, 45874, 5323, 92, 170662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2339476, 45970, 4774, 86, 238925, "Subsubtitle"],
Cell[2344253, 46058, 2179, 29, 109587, "Subsubsection"],
Cell[2346435, 46089, 2945, 47, 80714, "Subsubsection"],
Cell[2349383, 46138, 5506, 113, 239467, "Subsubtitle"],
Cell[2354892, 46253, 771, 11, 109587, "Subsubsection"],
Cell[2355666, 46266, 6837, 139, 417867, "Code"],
Cell[2362506, 46407, 89, 2, 109587, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2362632, 46414, 6225, 106, 170662, "Subsubtitle"],
Cell[2368860, 46522, 1469, 31, 1108384, "Subsubsection"],
Cell[2370332, 46555, 1603, 35, 879041, "Subsubsection"],
Cell[2371938, 46592, 3631, 57, 825125, "Subsubsection"],
Cell[2375572, 46651, 7150, 148, 3618477, "Subsubtitle"],
Cell[2382725, 46801, 819, 11, 825125, "Subsubsection"],
Cell[2383547, 46814, 8736, 179, 3146329, "Code"],
Cell[2392286, 46995, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2392424, 47003, 5373, 93, 170662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2397822, 47100, 4754, 86, 214789, "Subsubtitle"],
Cell[2402579, 47188, 1208, 16, 109587, "Subsubsection"],
Cell[2403790, 47206, 2832, 45, 80714, "Subsubsection"],
Cell[2406625, 47253, 5576, 117, 230155, "Subsubtitle"],
Cell[2412204, 47372, 771, 11, 109587, "Subsubsection"],
Cell[2412978, 47385, 6844, 142, 417867, "Code"],
Cell[2419825, 47529, 89, 2, 109587, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2419951, 47536, 6096, 105, 170662, "Subsubtitle"],
Cell[2426050, 47643, 1528, 33, 1108384, "Subsubsection"],
Cell[2427581, 47678, 1674, 34, 879041, "Subsubsection"],
Cell[2429258, 47714, 3643, 58, 825125, "Subsubsection"],
Cell[2432904, 47774, 7051, 147, 3618477, "Subsubtitle"],
Cell[2439958, 47923, 819, 11, 825125, "Subsubsection"],
Cell[2440780, 47936, 8634, 179, 3146329, "Code"],
Cell[2449417, 48117, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2449555, 48125, 5920, 102, 170662, "Subsubtitle"],
Cell[2455478, 48229, 2360, 44, 850805, "Subsubsection"],
Cell[2457841, 48275, 2934, 48, 825125, "Subsubsection"],
Cell[2460778, 48325, 7453, 159, 4157547, "Subsubtitle"],
Cell[2468234, 48486, 819, 11, 825125, "Subsubsection"],
Cell[2469056, 48499, 9304, 200, 4996122, "Code"],
Cell[2478363, 48701, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2478501, 48709, 4087, 75, 170662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2482613, 48788, 4904, 88, 837089, "Subsubtitle"],
Cell[2487520, 48878, 1134, 15, 420983, "Subsubsection"],
Cell[2488657, 48895, 2886, 46, 310062, "Subsubsection"],
Cell[2491546, 48943, 5297, 110, 837089, "Subsubtitle"],
Cell[2496846, 49055, 771, 11, 420983, "Subsubsection"],
Cell[2497620, 49068, 6644, 137, 1605271, "Code"],
Cell[2504267, 49207, 89, 2, 420983, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2504393, 49214, 5980, 103, 655610, "Subsubtitle"],
Cell[2510376, 49319, 1940, 36, 434085, "Subsubsection"],
Cell[2512319, 49357, 3046, 50, 420983, "Subsubsection"],
Cell[2515368, 49409, 5955, 137, 2121200, "Subsubtitle"],
Cell[2521326, 49548, 771, 11, 420983, "Subsubsection"],
Cell[2522100, 49561, 8465, 185, 2549044, "Code"],
Cell[2530568, 49748, 89, 2, 420983, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2530742, 49759, 5777, 92, 75, "Subsubtitle"],
Cell[2536522, 49853, 2450, 33, 825125, "Subsubsection"],
Cell[2538975, 49888, 4395, 78, 1284992, "Subsubtitle"],
Cell[2543373, 49968, 771, 11, 825125, "Subsubsection"],
Cell[2544147, 49981, 5479, 97, 2524280, "Code"],
Cell[2549629, 50080, 89, 2, 825125, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2549767, 50088, 4887, 80, 77, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2554679, 50172, 4882, 82, 77, "Subsubtitle"],
Cell[2559564, 50256, 955, 13, 91687776, "Subsubsection"],
Cell[2560522, 50271, 1232, 27, 74761434, "Subsubsection"],
Cell[2561757, 50300, 3416, 51, 67529490, "Subsubsection"],
Cell[2565176, 50353, 5042, 87, 142787984, "Subsubtitle"],
Cell[2570221, 50442, 771, 11, 91687776, "Subsubsection"],
Cell[2570995, 50455, 6619, 115, 280497422, "Code"],
Cell[2577617, 50572, 89, 2, 91687776, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2577743, 50579, 6694, 109, 77, "Subsubtitle"],
Cell[2584440, 50690, 955, 13, 91687776, "Subsubsection"],
Cell[2585398, 50705, 1401, 29, 74761434, "Subsubsection"],
Cell[2586802, 50736, 3416, 51, 67529490, "Subsubsection"],
Cell[2590221, 50789, 5079, 93, 171943734, "Subsubtitle"],
Cell[2595303, 50884, 771, 11, 91687776, "Subsubsection"],
Cell[2596077, 50897, 7053, 125, 280497422, "Code"],
Cell[2603133, 51024, 89, 2, 91687776, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[2603259, 51031, 5098, 89, 77, "Subsubtitle"],
Cell[2608360, 51122, 955, 13, 91687776, "Subsubsection"],
Cell[2609318, 51137, 1232, 27, 74761434, "Subsubsection"],
Cell[2610553, 51166, 3416, 51, 67529490, "Subsubsection"],
Cell[2613972, 51219, 5433, 100, 273248868, "Subsubtitle"],
Cell[2619408, 51321, 771, 11, 91687776, "Subsubsection"],
Cell[2620182, 51334, 7099, 130, 280497422, "Code"],
Cell[2627284, 51466, 89, 2, 91687776, "Subsubsection"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)