1(* Content-type: application/mathematica *) 2 3(*** Wolfram Notebook File ***) 4(* http://www.wolfram.com/nb *) 5 6(* CreatedBy='Mathematica 7.0' *) 7 8(*CacheID: 234*) 9(* Internal cache information: 10NotebookFileLineBreakTest 11NotebookFileLineBreakTest 12NotebookDataPosition[ 145, 7] 13NotebookDataLength[ 575181, 14963] 14NotebookOptionsPosition[ 552709, 14464] 15NotebookOutlinePosition[ 553818, 14503] 16CellTagsIndexPosition[ 553775, 14500] 17WindowFrame->Normal*) 18 19(* Beginning of Notebook Content *) 20Notebook[{ 21 22Cell[CellGroupData[{ 23Cell[BoxData[ 24 RowBox[{"\[Integral]", 25 RowBox[{ 26 SuperscriptBox["x", "m"], " ", 27 SuperscriptBox[ 28 RowBox[{"(", 29 RowBox[{"a", "+", 30 RowBox[{"b", " ", 31 RowBox[{"Sin", "[", 32 RowBox[{"c", "+", 33 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 34 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 35 CellDingbat->None, 36 CellChangeTimes->{ 37 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 38 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 39 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 40 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 41 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 42 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 43 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 44 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 45 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 46 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 47 3.4975759170868692`*^9}, {3.497577524211725*^9, 3.497577530181733*^9}, { 48 3.497661528376972*^9, 3.4976615343361826`*^9}, 3.49766173212893*^9, 49 3.497661825183093*^9, 3.4976622401126223`*^9}, 50 TextAlignment->Center, 51 FontSize->20, 52 FontWeight->"Bold"], 53 54Cell["Derivation: Algebraic simplification", "Subsubsection", 55 CellChangeTimes->{ 56 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 57 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 58 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 59 3.497639496888481*^9, 3.497662072225127*^9}], 60 61Cell[TextData[{ 62 "Basis: If ", 63 Cell[BoxData[ 64 RowBox[{ 65 RowBox[{ 66 SuperscriptBox["a", "2"], "-", 67 SuperscriptBox["b", "2"]}], "=", "0"}]]], 68 ", then ", 69 Cell[BoxData[ 70 RowBox[{ 71 RowBox[{"a", "+", 72 RowBox[{"b", " ", 73 RowBox[{"Sin", "[", "z", "]"}]}]}], "=", 74 RowBox[{"2", " ", "a", " ", 75 SuperscriptBox[ 76 RowBox[{"Cos", "[", 77 RowBox[{ 78 RowBox[{"-", 79 FractionBox[ 80 RowBox[{"\[Pi]", " ", "a"}], 81 RowBox[{"4", " ", "b"}]]}], "+", 82 FractionBox["z", "2"]}], "]"}], "2"]}]}]]] 83}], "Subsubsection", 84 CellChangeTimes->{ 85 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 86 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 87 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 88 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 89 3.497662667553373*^9, {3.4982405233131886`*^9, 3.498240529443197*^9}}], 90 91Cell[TextData[{ 92 "Rule: If ", 93 Cell[BoxData[ 94 RowBox[{ 95 RowBox[{ 96 SuperscriptBox["a", "2"], "-", 97 SuperscriptBox["b", "2"]}], "=", 98 RowBox[{"0", " ", "\[And]", " ", 99 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 100 " ", 101 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 102 " ", 103 RowBox[{"n", "<", "0"}]}]}]]], 104 ", then" 105}], "Subsubsection", 106 CellDingbat->"\[FilledSmallSquare]", 107 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 108 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 109 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 110 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 111 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 112 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 113 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 114 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 115 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 116 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 117 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 118 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.498240539593211*^9, 119 3.498240539593211*^9}}], 120 121Cell[BoxData[ 122 RowBox[{"\[Integral]", 123 RowBox[{ 124 SuperscriptBox["x", "m"], " ", 125 SuperscriptBox[ 126 RowBox[{"(", 127 RowBox[{"a", "+", 128 RowBox[{"b", " ", 129 RowBox[{"Sin", "[", 130 RowBox[{"c", "+", 131 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 132 RowBox[{"\[DifferentialD]", 133 RowBox[{"x", " ", "\[LongRightArrow]", " ", 134 SuperscriptBox[ 135 RowBox[{"(", 136 RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 137 RowBox[{"\[Integral]", 138 RowBox[{ 139 SuperscriptBox["x", "m"], " ", 140 SuperscriptBox[ 141 RowBox[{"Cos", "[", 142 RowBox[{ 143 RowBox[{"-", 144 FractionBox[ 145 RowBox[{"\[Pi]", " ", "a"}], 146 RowBox[{"4", " ", "b"}]]}], "+", 147 FractionBox["c", "2"], "+", 148 FractionBox[ 149 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 150 RowBox[{"2", " ", "n"}]], 151 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 152 CellDingbat->None, 153 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 154 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 155 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 156 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 157 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 158 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 159 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 160 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}}, 161 TextAlignment->Center, 162 FontSize->12, 163 FontWeight->"Bold"], 164 165Cell["Program code:", "Subsubsection", 166 CellDingbat->"\[FilledSmallSquare]", 167 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 168 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 169 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 170 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 171 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 172 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 173 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 174 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 175 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 176 3.492805165713872*^9}}], 177 178Cell[BoxData[ 179 RowBox[{ 180 RowBox[{"Int", "[", 181 RowBox[{ 182 RowBox[{ 183 RowBox[{"x_", "^", "m_."}], "*", 184 RowBox[{ 185 RowBox[{"(", 186 RowBox[{"a_", "+", 187 RowBox[{"b_.", "*", 188 RowBox[{"Sin", "[", 189 RowBox[{"c_.", "+", 190 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 191 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 192 RowBox[{ 193 RowBox[{"Dist", "[", 194 RowBox[{ 195 RowBox[{ 196 RowBox[{"(", 197 RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], ",", 198 RowBox[{"Int", "[", 199 RowBox[{ 200 RowBox[{ 201 RowBox[{"x", "^", "m"}], "*", 202 RowBox[{ 203 RowBox[{"Cos", "[", 204 RowBox[{ 205 RowBox[{ 206 RowBox[{"-", "Pi"}], "*", 207 RowBox[{"a", "/", 208 RowBox[{"(", 209 RowBox[{"4", "*", "b"}], ")"}]}]}], "+", 210 RowBox[{"c", "/", "2"}], "+", 211 RowBox[{"d", "*", 212 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 213 RowBox[{"(", 214 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 215 "/;", "\n", 216 RowBox[{ 217 RowBox[{"FreeQ", "[", 218 RowBox[{ 219 RowBox[{"{", 220 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 221 " ", "&&", " ", 222 RowBox[{"ZeroQ", "[", 223 RowBox[{ 224 RowBox[{"a", "^", "2"}], "-", 225 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 226 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 227 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 228 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 229 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 230 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 231 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 232 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9}, 233 Background->GrayLevel[0.85]], 234 235Cell["", "Subsubsection", 236 CellDingbat->None, 237 CellChangeTimes->{3.4796643211106243`*^9}], 238 239Cell["\<\ 240Derivation: Algebraic simplification and piecewise constant extraction\ 241\>", "Subsubsection", 242 CellChangeTimes->{ 243 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 244 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 245 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 246 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}}], 247 248Cell[TextData[{ 249 "Basis: If ", 250 Cell[BoxData[ 251 RowBox[{ 252 RowBox[{ 253 SuperscriptBox["a", "2"], "-", 254 SuperscriptBox["b", "2"]}], "=", "0"}]]], 255 ", then ", 256 Cell[BoxData[ 257 RowBox[{ 258 RowBox[{"a", "+", 259 RowBox[{"b", " ", 260 RowBox[{"Sin", "[", "z", "]"}]}]}], "=", 261 RowBox[{"2", " ", "a", " ", 262 SuperscriptBox[ 263 RowBox[{"Cos", "[", 264 RowBox[{ 265 RowBox[{"-", 266 FractionBox[ 267 RowBox[{"\[Pi]", " ", "a"}], 268 RowBox[{"4", " ", "b"}]]}], "+", 269 FractionBox["z", "2"]}], "]"}], "2"]}]}]]] 270}], "Subsubsection", 271 CellChangeTimes->{ 272 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 273 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 274 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 275 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 276 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 277 3.498240554503232*^9, 3.498240554503232*^9}}], 278 279Cell[TextData[{ 280 "Basis: If ", 281 Cell[BoxData[ 282 RowBox[{ 283 RowBox[{ 284 SuperscriptBox["a", "2"], "-", 285 SuperscriptBox["b", "2"]}], "=", "0"}]]], 286 ", then ", 287 Cell[BoxData[ 288 RowBox[{ 289 RowBox[{ 290 SubscriptBox["\[PartialD]", "z"], 291 FractionBox[ 292 SqrtBox[ 293 RowBox[{"a", "+", 294 RowBox[{"b", " ", 295 RowBox[{"Sin", "[", "z", "]"}]}]}]], 296 RowBox[{"Cos", "[", 297 RowBox[{ 298 RowBox[{"-", 299 FractionBox[ 300 RowBox[{"\[Pi]", " ", "a"}], 301 RowBox[{"4", " ", "b"}]]}], "+", 302 FractionBox["z", "2"]}], "]"}]]}], "=", "0"}]]] 303}], "Subsubsection", 304 CellChangeTimes->{ 305 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 306 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 307 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 308 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, { 309 3.4976625130975018`*^9, 3.4976625346879396`*^9}, 3.497662595840047*^9, { 310 3.498240558183237*^9, 3.498240558183237*^9}}], 311 312Cell[TextData[{ 313 "Rule: If ", 314 Cell[BoxData[ 315 RowBox[{ 316 RowBox[{ 317 SuperscriptBox["a", "2"], "-", 318 SuperscriptBox["b", "2"]}], "=", 319 RowBox[{"0", " ", "\[And]", " ", 320 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 321 " ", 322 RowBox[{ 323 RowBox[{"n", "-", 324 FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}]]], 325 ", then" 326}], "Subsubsection", 327 CellDingbat->"\[FilledSmallSquare]", 328 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 329 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 330 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 331 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 332 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 333 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 334 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 335 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 336 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 337 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 338 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 339 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4982405631832438`*^9, 340 3.4982405631832438`*^9}}], 341 342Cell[BoxData[ 343 RowBox[{"\[Integral]", 344 RowBox[{ 345 SuperscriptBox["x", "m"], " ", 346 SuperscriptBox[ 347 RowBox[{"(", 348 RowBox[{"a", "+", 349 RowBox[{"b", " ", 350 RowBox[{"Sin", "[", 351 RowBox[{"c", "+", 352 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 353 RowBox[{"\[DifferentialD]", 354 RowBox[{"x", " ", "\[LongRightArrow]", " ", 355 FractionBox[ 356 RowBox[{ 357 SuperscriptBox[ 358 RowBox[{"(", 359 RowBox[{"2", " ", "a"}], ")"}], 360 RowBox[{"n", "-", 361 FractionBox["1", "2"]}]], " ", 362 SqrtBox[ 363 RowBox[{"a", "+", 364 RowBox[{"b", " ", 365 RowBox[{"Sin", "[", 366 RowBox[{"c", "+", 367 RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], 368 RowBox[{"Cos", "[", 369 RowBox[{ 370 RowBox[{"-", 371 FractionBox[ 372 RowBox[{"\[Pi]", " ", "a"}], 373 RowBox[{"4", " ", "b"}]]}], "+", 374 FractionBox["c", "2"], "+", 375 FractionBox[ 376 RowBox[{"d", " ", "x"}], "2"]}], "]"}]]}]}], 377 RowBox[{"\[Integral]", 378 RowBox[{ 379 SuperscriptBox["x", "m"], " ", 380 SuperscriptBox[ 381 RowBox[{"Cos", "[", 382 RowBox[{ 383 RowBox[{"-", 384 FractionBox[ 385 RowBox[{"\[Pi]", " ", "a"}], 386 RowBox[{"4", " ", "b"}]]}], "+", 387 FractionBox["c", "2"], "+", 388 FractionBox[ 389 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 390 RowBox[{"2", " ", "n"}]], 391 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 392 CellDingbat->None, 393 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 394 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 395 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 396 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 397 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 398 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 399 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 400 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 401 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 402 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 403 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 404 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 405 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 406 3.4976623833052735`*^9, 3.4976624037569094`*^9}}, 407 TextAlignment->Center, 408 FontSize->12, 409 FontWeight->"Bold"], 410 411Cell["Program code:", "Subsubsection", 412 CellDingbat->"\[FilledSmallSquare]", 413 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 414 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 415 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 416 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 417 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 418 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 419 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 420 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 421 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 422 3.492805165713872*^9}}], 423 424Cell[BoxData[ 425 RowBox[{ 426 RowBox[{"Int", "[", 427 RowBox[{ 428 RowBox[{ 429 RowBox[{"x_", "^", "m_."}], "*", 430 RowBox[{ 431 RowBox[{"(", 432 RowBox[{"a_", "+", 433 RowBox[{"b_.", "*", 434 RowBox[{"Sin", "[", 435 RowBox[{"c_.", "+", 436 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 437 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 438 RowBox[{ 439 RowBox[{"Dist", "[", 440 RowBox[{ 441 RowBox[{ 442 RowBox[{ 443 RowBox[{"(", 444 RowBox[{"2", "*", "a"}], ")"}], "^", 445 RowBox[{"(", 446 RowBox[{"n", "-", 447 RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 448 RowBox[{ 449 RowBox[{"Sqrt", "[", 450 RowBox[{"a", "+", 451 RowBox[{"b", "*", 452 RowBox[{"Sin", "[", 453 RowBox[{"c", "+", 454 RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/", 455 RowBox[{"Cos", "[", 456 RowBox[{ 457 RowBox[{ 458 RowBox[{"-", "Pi"}], "*", 459 RowBox[{"a", "/", 460 RowBox[{"(", 461 RowBox[{"4", "*", "b"}], ")"}]}]}], "+", 462 RowBox[{"c", "/", "2"}], "+", 463 RowBox[{"d", "*", 464 RowBox[{"x", "/", "2"}]}]}], "]"}]}]}], ",", "\n", " ", 465 RowBox[{"Int", "[", 466 RowBox[{ 467 RowBox[{ 468 RowBox[{"x", "^", "m"}], "*", 469 RowBox[{ 470 RowBox[{"Cos", "[", 471 RowBox[{ 472 RowBox[{ 473 RowBox[{"-", "Pi"}], "*", 474 RowBox[{"a", "/", 475 RowBox[{"(", 476 RowBox[{"4", "*", "b"}], ")"}]}]}], "+", 477 RowBox[{"c", "/", "2"}], "+", 478 RowBox[{"d", "*", 479 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 480 RowBox[{"(", 481 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 482 "/;", "\n", 483 RowBox[{ 484 RowBox[{"FreeQ", "[", 485 RowBox[{ 486 RowBox[{"{", 487 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 488 " ", "&&", " ", 489 RowBox[{"ZeroQ", "[", 490 RowBox[{ 491 RowBox[{"a", "^", "2"}], "-", 492 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 493 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 494 RowBox[{"IntegerQ", "[", 495 RowBox[{"n", "-", 496 RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code", 497 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 498 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 499 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 500 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 501 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 502 3.497662464394216*^9, 3.497662468965024*^9}, {3.497844840747451*^9, 503 3.4978448419874525`*^9}}, 504 Background->GrayLevel[0.85]], 505 506Cell["", "Subsubsection", 507 CellDingbat->None, 508 CellChangeTimes->{3.4796643211106243`*^9}], 509 510Cell["Derivation: Algebraic expansion", "Subsubsection", 511 CellChangeTimes->{ 512 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 513 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 514 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 515 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, 516 3.497662905609791*^9}], 517 518Cell[TextData[{ 519 "Basis: ", 520 Cell[BoxData[ 521 RowBox[{ 522 FractionBox["1", 523 SuperscriptBox[ 524 RowBox[{"(", 525 RowBox[{"a", "+", 526 RowBox[{"b", " ", "z"}]}], ")"}], "2"]], "=", 527 RowBox[{ 528 FractionBox["a", 529 RowBox[{ 530 RowBox[{"(", 531 RowBox[{ 532 SuperscriptBox["a", "2"], "-", 533 SuperscriptBox["b", "2"]}], ")"}], " ", 534 RowBox[{"(", 535 RowBox[{"a", "+", 536 RowBox[{"b", " ", "z"}]}], ")"}]}]], "-", 537 FractionBox[ 538 RowBox[{"b", " ", 539 RowBox[{"(", 540 RowBox[{"b", "+", 541 RowBox[{"a", " ", "z"}]}], ")"}]}], 542 RowBox[{ 543 RowBox[{"(", 544 RowBox[{ 545 SuperscriptBox["a", "2"], "-", 546 SuperscriptBox["b", "2"]}], ")"}], " ", 547 SuperscriptBox[ 548 RowBox[{"(", 549 RowBox[{"a", "+", 550 RowBox[{"b", " ", "z"}]}], ")"}], "2"]}]]}]}]]] 551}], "Subsubsection", 552 CellChangeTimes->{ 553 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 554 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 555 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 556 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 557 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 558 3.497662923331422*^9, 3.497662936139045*^9}}], 559 560Cell[TextData[{ 561 "Rule: If ", 562 Cell[BoxData[ 563 RowBox[{ 564 RowBox[{ 565 SuperscriptBox["a", "2"], "-", 566 SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]], 567 ", then" 568}], "Subsubsection", 569 CellDingbat->"\[FilledSmallSquare]", 570 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 571 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 572 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 573 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 574 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 575 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 576 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 577 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 578 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 579 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 580 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 581 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 582 3.49766295624748*^9}, {3.4982405753732615`*^9, 3.4982405793132668`*^9}}], 583 584Cell[BoxData[ 585 RowBox[{ 586 RowBox[{"\[Integral]", 587 RowBox[{ 588 FractionBox["x", 589 SuperscriptBox[ 590 RowBox[{"(", 591 RowBox[{"a", "+", 592 RowBox[{"b", " ", 593 RowBox[{"Sin", "[", 594 RowBox[{"c", "+", 595 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 596 RowBox[{"\[DifferentialD]", 597 RowBox[{"x", " ", "\[LongRightArrow]", " ", 598 FractionBox["a", 599 RowBox[{ 600 SuperscriptBox["a", "2"], "-", 601 SuperscriptBox["b", "2"]}]]}]}], 602 RowBox[{"\[Integral]", 603 RowBox[{ 604 FractionBox["x", 605 RowBox[{"a", "+", 606 RowBox[{"b", " ", 607 RowBox[{"Sin", "[", 608 RowBox[{"c", "+", 609 RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 610 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 611 RowBox[{ 612 FractionBox["b", 613 RowBox[{ 614 SuperscriptBox["a", "2"], "-", 615 SuperscriptBox["b", "2"]}]], 616 RowBox[{"\[Integral]", 617 RowBox[{ 618 FractionBox[ 619 RowBox[{"x", " ", 620 RowBox[{"(", 621 RowBox[{"b", "+", 622 RowBox[{"a", " ", 623 RowBox[{"Sin", "[", 624 RowBox[{"c", "+", 625 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}], 626 SuperscriptBox[ 627 RowBox[{"(", 628 RowBox[{"a", "+", 629 RowBox[{"b", " ", 630 RowBox[{"Sin", "[", 631 RowBox[{"c", "+", 632 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 633 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 634 CellDingbat->None, 635 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 636 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 637 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 638 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 639 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 640 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 641 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 642 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 643 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 644 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 645 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 646 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 647 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 648 3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 649 3.4976631028721375`*^9}}, 650 TextAlignment->Center, 651 FontSize->12, 652 FontWeight->"Bold"], 653 654Cell["Program code:", "Subsubsection", 655 CellDingbat->"\[FilledSmallSquare]", 656 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 657 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 658 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 659 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 660 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 661 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 662 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 663 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 664 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 665 3.492805165713872*^9}}], 666 667Cell[BoxData[ 668 RowBox[{ 669 RowBox[{"Int", "[", 670 RowBox[{ 671 RowBox[{"x_", "/", 672 RowBox[{ 673 RowBox[{"(", 674 RowBox[{"a_", "+", 675 RowBox[{"b_.", "*", 676 RowBox[{"Sin", "[", 677 RowBox[{"c_.", "+", 678 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",", 679 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 680 RowBox[{ 681 RowBox[{ 682 RowBox[{"Dist", "[", 683 RowBox[{ 684 RowBox[{"a", "/", 685 RowBox[{"(", 686 RowBox[{ 687 RowBox[{"a", "^", "2"}], "-", 688 RowBox[{"b", "^", "2"}]}], ")"}]}], ",", 689 RowBox[{"Int", "[", 690 RowBox[{ 691 RowBox[{"x", "/", 692 RowBox[{"(", 693 RowBox[{"a", "+", 694 RowBox[{"b", "*", 695 RowBox[{"Sin", "[", 696 RowBox[{"c", "+", 697 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 698 "]"}]}], "]"}], " ", "-", "\n", " ", 699 RowBox[{"Dist", "[", 700 RowBox[{ 701 RowBox[{"b", "/", 702 RowBox[{"(", 703 RowBox[{ 704 RowBox[{"a", "^", "2"}], "-", 705 RowBox[{"b", "^", "2"}]}], ")"}]}], ",", 706 RowBox[{"Int", "[", 707 RowBox[{ 708 RowBox[{"x", "*", 709 RowBox[{ 710 RowBox[{"(", 711 RowBox[{"b", "+", 712 RowBox[{"a", "*", 713 RowBox[{"Sin", "[", 714 RowBox[{"c", "+", 715 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/", 716 RowBox[{ 717 RowBox[{"(", 718 RowBox[{"a", "+", 719 RowBox[{"b", "*", 720 RowBox[{"Sin", "[", 721 RowBox[{"c", "+", 722 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "2"}]}]}], 723 ",", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 724 RowBox[{ 725 RowBox[{"FreeQ", "[", 726 RowBox[{ 727 RowBox[{"{", 728 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 729 " ", "&&", " ", 730 RowBox[{"NonzeroQ", "[", 731 RowBox[{ 732 RowBox[{"a", "^", "2"}], "-", 733 RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code", 734 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 735 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 736 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 737 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 738 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 739 3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9}, 740 Background->GrayLevel[0.85]], 741 742Cell["", "Subsubsection", 743 CellDingbat->None, 744 CellChangeTimes->{3.4796643211106243`*^9}], 745 746Cell["Derivation: Algebraic expansion", "Subsubsection", 747 CellChangeTimes->{ 748 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 749 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 750 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 751 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, 752 3.497662905609791*^9}], 753 754Cell[TextData[{ 755 "Basis: ", 756 Cell[BoxData[ 757 RowBox[{ 758 RowBox[{"a", "+", 759 RowBox[{"b", " ", 760 RowBox[{"Sin", "[", "z", "]"}]}]}], "=", 761 FractionBox[ 762 RowBox[{ 763 RowBox[{"\[ImaginaryI]", " ", "b"}], "+", 764 RowBox[{"2", " ", "a", " ", 765 SuperscriptBox["\[ExponentialE]", 766 RowBox[{"\[ImaginaryI]", " ", "z"}]]}], "-", 767 RowBox[{"\[ImaginaryI]", " ", "b", " ", 768 SuperscriptBox["\[ExponentialE]", 769 RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}], 770 RowBox[{"2", " ", 771 SuperscriptBox["\[ExponentialE]", 772 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]]}]]] 773}], "Subsubsection", 774 CellChangeTimes->{ 775 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 776 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 777 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 778 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 779 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 780 3.497662923331422*^9, 3.497662936139045*^9}, 3.497663013827181*^9}], 781 782Cell[TextData[{ 783 "Rule: If ", 784 Cell[BoxData[ 785 RowBox[{ 786 RowBox[{ 787 RowBox[{ 788 SuperscriptBox["a", "2"], "-", 789 SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 790 RowBox[{"m", ">", "0"}], " ", "\[And]", " ", 791 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 792 RowBox[{"n", "<", "0"}]}]]], 793 ", then" 794}], "Subsubsection", 795 CellDingbat->"\[FilledSmallSquare]", 796 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 797 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 798 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 799 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 800 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 801 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 802 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 803 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 804 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 805 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 806 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 807 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 808 3.49766295624748*^9}, {3.497663154773429*^9, 3.497663222165547*^9}, { 809 3.498240592533285*^9, 3.498240592533285*^9}}], 810 811Cell[BoxData[ 812 RowBox[{"\[Integral]", 813 RowBox[{ 814 SuperscriptBox["x", "m"], " ", 815 SuperscriptBox[ 816 RowBox[{"(", 817 RowBox[{"a", "+", 818 RowBox[{"b", " ", 819 RowBox[{"Sin", "[", 820 RowBox[{"c", "+", 821 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 822 RowBox[{"\[DifferentialD]", 823 RowBox[{"x", " ", "\[LongRightArrow]", " ", 824 FractionBox["1", 825 SuperscriptBox["2", "n"]]}]}], 826 RowBox[{"\[Integral]", 827 RowBox[{ 828 FractionBox[ 829 RowBox[{ 830 SuperscriptBox["x", "m"], " ", 831 SuperscriptBox[ 832 RowBox[{"(", 833 RowBox[{ 834 RowBox[{"\[ImaginaryI]", " ", "b"}], "+", 835 RowBox[{"2", " ", "a", " ", 836 SuperscriptBox["\[ExponentialE]", 837 RowBox[{ 838 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 839 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}]]}], "-", 840 RowBox[{"\[ImaginaryI]", " ", "b", " ", 841 SuperscriptBox["\[ExponentialE]", 842 RowBox[{"2", " ", 843 RowBox[{"(", 844 RowBox[{ 845 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 846 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}], ")"}]}]]}]}], 847 ")"}], "n"]}], 848 SuperscriptBox["\[ExponentialE]", 849 RowBox[{"n", " ", 850 RowBox[{"(", 851 RowBox[{ 852 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 853 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}], ")"}]}]]], 854 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 855 CellDingbat->None, 856 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 857 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 858 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 859 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 860 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 861 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 862 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 863 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 864 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 865 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 866 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 867 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 868 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 869 3.4976623833052735`*^9, 3.4976624037569094`*^9}, 3.4976631413262053`*^9}, 870 TextAlignment->Center, 871 FontSize->12, 872 FontWeight->"Bold"], 873 874Cell["Program code:", "Subsubsection", 875 CellDingbat->"\[FilledSmallSquare]", 876 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 877 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 878 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 879 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 880 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 881 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 882 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 883 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 884 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 885 3.492805165713872*^9}}], 886 887Cell[BoxData[ 888 RowBox[{ 889 RowBox[{"Int", "[", 890 RowBox[{ 891 RowBox[{ 892 RowBox[{"x_", "^", "m_."}], "*", 893 RowBox[{ 894 RowBox[{"(", 895 RowBox[{"a_", "+", 896 RowBox[{"b_.", "*", 897 RowBox[{"Sin", "[", 898 RowBox[{"c_.", "+", 899 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 900 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 901 RowBox[{ 902 RowBox[{"Dist", "[", 903 RowBox[{ 904 RowBox[{"1", "/", 905 RowBox[{"2", "^", "n"}]}], ",", 906 RowBox[{"Int", "[", 907 RowBox[{ 908 RowBox[{ 909 RowBox[{"x", "^", "m"}], "*", 910 RowBox[{ 911 RowBox[{ 912 RowBox[{"(", 913 RowBox[{ 914 RowBox[{"I", "*", "b"}], "+", 915 RowBox[{"2", "*", "a", "*", 916 RowBox[{"E", "^", 917 RowBox[{"(", 918 RowBox[{ 919 RowBox[{"I", "*", "c"}], "+", 920 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}]}], "-", 921 RowBox[{"I", "*", "b", "*", 922 RowBox[{"E", "^", 923 RowBox[{"(", 924 RowBox[{"2", "*", 925 RowBox[{"(", 926 RowBox[{ 927 RowBox[{"I", "*", "c"}], "+", 928 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 929 ")"}], "^", "n"}], "/", 930 RowBox[{"E", "^", 931 RowBox[{"(", 932 RowBox[{"n", "*", 933 RowBox[{"(", 934 RowBox[{ 935 RowBox[{"I", "*", "c"}], "+", 936 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ",", 937 "x"}], "]"}]}], "]"}], " ", "/;", "\n", 938 RowBox[{ 939 RowBox[{"FreeQ", "[", 940 RowBox[{ 941 RowBox[{"{", 942 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 943 " ", "&&", " ", 944 RowBox[{"NonzeroQ", "[", 945 RowBox[{ 946 RowBox[{"a", "^", "2"}], "-", 947 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 948 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 949 RowBox[{"m", ">", "0"}], " ", "&&", " ", 950 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 951 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 952 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 953 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 954 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 955 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 956 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 957 3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 958 3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}}, 959 Background->GrayLevel[0.85]], 960 961Cell["", "PageBreak", 962 PageBreakBelow->True] 963}, Closed]], 964 965Cell[CellGroupData[{ 966 967Cell[BoxData[ 968 RowBox[{"\[Integral]", 969 RowBox[{ 970 SuperscriptBox["x", "m"], " ", 971 SuperscriptBox[ 972 RowBox[{"(", 973 RowBox[{"a", "+", 974 RowBox[{"b", " ", 975 RowBox[{"Cos", "[", 976 RowBox[{"c", "+", 977 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 978 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 979 CellDingbat->None, 980 CellChangeTimes->{ 981 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 982 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 983 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 984 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 985 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 986 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 987 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 988 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 989 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 990 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 991 3.4975759170868692`*^9}, {3.497577524211725*^9, 3.497577530181733*^9}, { 992 3.497661528376972*^9, 3.4976615343361826`*^9}, 3.49766173212893*^9, 993 3.497661825183093*^9, 3.4976622401126223`*^9, 3.4979216299710093`*^9}, 994 TextAlignment->Center, 995 FontSize->20, 996 FontWeight->"Bold"], 997 998Cell["Derivation: Algebraic simplification", "Subsubsection", 999 CellChangeTimes->{ 1000 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1001 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1002 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1003 3.497639496888481*^9, 3.497662072225127*^9}], 1004 1005Cell[TextData[{ 1006 "Basis: If ", 1007 Cell[BoxData[ 1008 RowBox[{ 1009 RowBox[{ 1010 SuperscriptBox["a", "2"], "-", 1011 SuperscriptBox["b", "2"]}], "=", "0"}]]], 1012 ", then ", 1013 Cell[BoxData[ 1014 RowBox[{ 1015 RowBox[{"a", "+", 1016 RowBox[{"b", " ", 1017 RowBox[{"Cos", "[", "z", "]"}]}]}], "=", 1018 RowBox[{"2", " ", "a", " ", 1019 SuperscriptBox[ 1020 RowBox[{"Cos", "[", 1021 RowBox[{ 1022 RowBox[{ 1023 RowBox[{"-", 1024 FractionBox["1", "4"]}], " ", "\[Pi]", " ", 1025 RowBox[{"(", 1026 RowBox[{"1", "-", 1027 FractionBox["a", "b"]}], ")"}]}], "+", 1028 FractionBox["z", "2"]}], "]"}], "2"]}]}]]] 1029}], "Subsubsection", 1030 CellChangeTimes->{ 1031 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1032 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1033 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1034 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1035 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 1036 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4982415086845675`*^9, 1037 3.4982415086845675`*^9}}], 1038 1039Cell["\<\ 1040Note: This rule unifies the following two rules, but superficially appears \ 1041more complicated.\ 1042\>", "Subsubsection", 1043 CellChangeTimes->{ 1044 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1045 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1046 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1047 3.497639496888481*^9, 3.497662072225127*^9, {3.4979280063010197`*^9, 1048 3.4979280173458385`*^9}}], 1049 1050Cell[TextData[{ 1051 "Rule: If ", 1052 Cell[BoxData[ 1053 RowBox[{ 1054 RowBox[{ 1055 SuperscriptBox["a", "2"], "-", 1056 SuperscriptBox["b", "2"]}], "=", 1057 RowBox[{"0", " ", "\[And]", " ", 1058 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 1059 " ", 1060 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 1061 " ", 1062 RowBox[{"n", "<", "0"}]}]}]]], 1063 ", then" 1064}], "Subsubsection", 1065 CellDingbat->"\[FilledSmallSquare]", 1066 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1067 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1068 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1069 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1070 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1071 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1072 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1073 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 1074 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 1075 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 1076 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 1077 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.4982415137045746`*^9, 1078 3.4982415137045746`*^9}}], 1079 1080Cell[BoxData[ 1081 RowBox[{"\[Integral]", 1082 RowBox[{ 1083 SuperscriptBox["x", "m"], " ", 1084 SuperscriptBox[ 1085 RowBox[{"(", 1086 RowBox[{"a", "+", 1087 RowBox[{"b", " ", 1088 RowBox[{"Cos", "[", 1089 RowBox[{"c", "+", 1090 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 1091 RowBox[{"\[DifferentialD]", 1092 RowBox[{"x", " ", "\[LongRightArrow]", " ", 1093 SuperscriptBox[ 1094 RowBox[{"(", 1095 RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 1096 RowBox[{"\[Integral]", 1097 RowBox[{ 1098 SuperscriptBox["x", "m"], " ", 1099 SuperscriptBox[ 1100 RowBox[{"Cos", "[", 1101 RowBox[{ 1102 RowBox[{ 1103 FractionBox["1", "4"], " ", 1104 RowBox[{"(", 1105 RowBox[{"-", "\[Pi]"}], ")"}], " ", 1106 RowBox[{"(", 1107 RowBox[{"1", "-", 1108 FractionBox["a", "b"]}], ")"}]}], "+", 1109 FractionBox["c", "2"], "+", 1110 FractionBox[ 1111 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 1112 RowBox[{"2", " ", "n"}]], 1113 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 1114 CellDingbat->None, 1115 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 1116 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 1117 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 1118 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 1119 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 1120 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 1121 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 1122 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, { 1123 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.4979280562211075`*^9}, 1124 TextAlignment->Center, 1125 FontSize->12, 1126 FontWeight->"Bold"], 1127 1128Cell["Program code:", "Subsubsection", 1129 CellDingbat->"\[FilledSmallSquare]", 1130 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1131 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1132 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1133 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1134 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1135 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1136 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1137 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 1138 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 1139 3.492805165713872*^9}}], 1140 1141Cell[BoxData[ 1142 RowBox[{"(*", " ", 1143 RowBox[{ 1144 RowBox[{"Int", "[", 1145 RowBox[{ 1146 RowBox[{ 1147 RowBox[{"x_", "^", "m_."}], "*", 1148 RowBox[{ 1149 RowBox[{"(", 1150 RowBox[{"a_", "+", 1151 RowBox[{"b_.", "*", 1152 RowBox[{"Cos", "[", 1153 RowBox[{"c_.", "+", 1154 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], 1155 ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 1156 RowBox[{ 1157 RowBox[{"Dist", "[", 1158 RowBox[{ 1159 RowBox[{ 1160 RowBox[{"(", 1161 RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], ",", 1162 RowBox[{"Int", "[", 1163 RowBox[{ 1164 RowBox[{ 1165 RowBox[{"x", "^", "m"}], "*", 1166 RowBox[{ 1167 RowBox[{"Cos", "[", 1168 RowBox[{ 1169 RowBox[{ 1170 RowBox[{ 1171 RowBox[{"-", "Pi"}], "/", "4"}], "*", 1172 RowBox[{"(", 1173 RowBox[{"1", "-", 1174 RowBox[{"a", "/", "b"}]}], ")"}]}], "+", 1175 RowBox[{"c", "/", "2"}], "+", 1176 RowBox[{"d", "*", 1177 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 1178 RowBox[{"(", 1179 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 1180 " ", "/;", "\n", 1181 RowBox[{ 1182 RowBox[{"FreeQ", "[", 1183 RowBox[{ 1184 RowBox[{"{", 1185 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 1186 " ", "&&", " ", 1187 RowBox[{"ZeroQ", "[", 1188 RowBox[{ 1189 RowBox[{"a", "^", "2"}], "-", 1190 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 1191 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 1192 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 1193 RowBox[{"n", "<", "0"}]}]}]}], " ", "*)"}]], "Code", 1194 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 1195 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 1196 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 1197 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, { 1198 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.497927925752103*^9}, 1199 Background->GrayLevel[0.85]], 1200 1201Cell["", "Subsubsection", 1202 CellDingbat->None, 1203 CellChangeTimes->{3.4796643211106243`*^9}], 1204 1205Cell["Derivation: Algebraic simplification", "Subsubsection", 1206 CellChangeTimes->{ 1207 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1208 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1209 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1210 3.497639496888481*^9, 3.497662072225127*^9}], 1211 1212Cell[TextData[{ 1213 "Basis: ", 1214 Cell[BoxData[ 1215 RowBox[{ 1216 RowBox[{"1", "+", 1217 RowBox[{"Cos", "[", "z", "]"}]}], "=", 1218 RowBox[{"2", " ", 1219 SuperscriptBox[ 1220 RowBox[{"Cos", "[", 1221 FractionBox["z", "2"], "]"}], "2"]}]}]]] 1222}], "Subsubsection", 1223 CellChangeTimes->{ 1224 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1225 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1226 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1227 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1228 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 1229 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 1230 3.4979281663573003`*^9}}], 1231 1232Cell[TextData[{ 1233 "Rule: If ", 1234 Cell[BoxData[ 1235 RowBox[{ 1236 RowBox[{"a", "-", "b"}], "=", 1237 RowBox[{"0", " ", "\[And]", " ", 1238 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 1239 " ", 1240 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 1241 " ", 1242 RowBox[{"n", "<", "0"}]}]}]]], 1243 ", then" 1244}], "Subsubsection", 1245 CellDingbat->"\[FilledSmallSquare]", 1246 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1247 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1248 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1249 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1250 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1251 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1252 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1253 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 1254 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 1255 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 1256 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 1257 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.4979281972297544`*^9, 1258 3.4979281999909596`*^9}, {3.4979283710608597`*^9, 3.497928375538068*^9}}], 1259 1260Cell[BoxData[ 1261 RowBox[{"\[Integral]", 1262 RowBox[{ 1263 SuperscriptBox["x", "m"], " ", 1264 SuperscriptBox[ 1265 RowBox[{"(", 1266 RowBox[{"a", "+", 1267 RowBox[{"b", " ", 1268 RowBox[{"Cos", "[", 1269 RowBox[{"c", "+", 1270 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 1271 RowBox[{"\[DifferentialD]", 1272 RowBox[{"x", " ", "\[LongRightArrow]", " ", 1273 SuperscriptBox[ 1274 RowBox[{"(", 1275 RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 1276 RowBox[{"\[Integral]", 1277 RowBox[{ 1278 SuperscriptBox["x", "m"], " ", 1279 SuperscriptBox[ 1280 RowBox[{"Cos", "[", 1281 RowBox[{ 1282 FractionBox["c", "2"], "+", 1283 FractionBox[ 1284 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 1285 RowBox[{"2", " ", "n"}]], 1286 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 1287 CellDingbat->None, 1288 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 1289 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 1290 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 1291 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 1292 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 1293 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 1294 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 1295 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, { 1296 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.4979280562211075`*^9, 1297 3.497928234825821*^9}, 1298 TextAlignment->Center, 1299 FontSize->12, 1300 FontWeight->"Bold"], 1301 1302Cell["Program code:", "Subsubsection", 1303 CellDingbat->"\[FilledSmallSquare]", 1304 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1305 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1306 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1307 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1308 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1309 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1310 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1311 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 1312 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 1313 3.492805165713872*^9}}], 1314 1315Cell[BoxData[ 1316 RowBox[{ 1317 RowBox[{"Int", "[", 1318 RowBox[{ 1319 RowBox[{ 1320 RowBox[{"x_", "^", "m_."}], "*", 1321 RowBox[{ 1322 RowBox[{"(", 1323 RowBox[{"a_", "+", 1324 RowBox[{"b_.", "*", 1325 RowBox[{"Cos", "[", 1326 RowBox[{"c_.", "+", 1327 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 1328 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 1329 RowBox[{ 1330 RowBox[{"Dist", "[", 1331 RowBox[{ 1332 RowBox[{ 1333 RowBox[{"(", 1334 RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], ",", 1335 RowBox[{"Int", "[", 1336 RowBox[{ 1337 RowBox[{ 1338 RowBox[{"x", "^", "m"}], "*", 1339 RowBox[{ 1340 RowBox[{"Cos", "[", 1341 RowBox[{ 1342 RowBox[{"c", "/", "2"}], "+", 1343 RowBox[{"d", "*", 1344 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 1345 RowBox[{"(", 1346 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 1347 "/;", "\n", 1348 RowBox[{ 1349 RowBox[{"FreeQ", "[", 1350 RowBox[{ 1351 RowBox[{"{", 1352 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 1353 " ", "&&", " ", 1354 RowBox[{"ZeroQ", "[", 1355 RowBox[{"a", "-", "b"}], "]"}], " ", "&&", " ", 1356 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 1357 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 1358 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 1359 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 1360 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 1361 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 1362 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, { 1363 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.497927925752103*^9, 1364 3.497928134611245*^9}, 1365 Background->GrayLevel[0.85]], 1366 1367Cell["", "Subsubsection", 1368 CellDingbat->None, 1369 CellChangeTimes->{3.4796643211106243`*^9}], 1370 1371Cell["Derivation: Algebraic simplification", "Subsubsection", 1372 CellChangeTimes->{ 1373 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1374 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1375 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1376 3.497639496888481*^9, 3.497662072225127*^9}], 1377 1378Cell[TextData[{ 1379 "Basis: ", 1380 Cell[BoxData[ 1381 RowBox[{ 1382 RowBox[{"1", "-", 1383 RowBox[{"Cos", "[", "z", "]"}]}], "=", 1384 RowBox[{"2", " ", 1385 SuperscriptBox[ 1386 RowBox[{"Sin", "[", 1387 FractionBox["z", "2"], "]"}], "2"]}]}]]] 1388}], "Subsubsection", 1389 CellChangeTimes->{ 1390 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1391 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1392 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1393 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1394 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 1395 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 1396 3.4979281663573003`*^9}, {3.4979283066171465`*^9, 3.4979283096903524`*^9}}], 1397 1398Cell[TextData[{ 1399 "Rule: If ", 1400 Cell[BoxData[ 1401 RowBox[{ 1402 RowBox[{"a", "+", "b"}], "=", 1403 RowBox[{"0", " ", "\[And]", " ", 1404 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 1405 " ", 1406 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 1407 " ", 1408 RowBox[{"n", "<", "0"}]}]}]]], 1409 ", then" 1410}], "Subsubsection", 1411 CellDingbat->"\[FilledSmallSquare]", 1412 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1413 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1414 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1415 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1416 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1417 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1418 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1419 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 1420 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 1421 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 1422 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 1423 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.4979281972297544`*^9, 1424 3.4979281999909596`*^9}, 3.4979282874291134`*^9, {3.497928355351632*^9, 1425 3.4979283602812414`*^9}}], 1426 1427Cell[BoxData[ 1428 RowBox[{"\[Integral]", 1429 RowBox[{ 1430 SuperscriptBox["x", "m"], " ", 1431 SuperscriptBox[ 1432 RowBox[{"(", 1433 RowBox[{"a", "+", 1434 RowBox[{"b", " ", 1435 RowBox[{"Cos", "[", 1436 RowBox[{"c", "+", 1437 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 1438 RowBox[{"\[DifferentialD]", 1439 RowBox[{"x", " ", "\[LongRightArrow]", " ", 1440 SuperscriptBox[ 1441 RowBox[{"(", 1442 RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 1443 RowBox[{"\[Integral]", 1444 RowBox[{ 1445 SuperscriptBox["x", "m"], " ", 1446 SuperscriptBox[ 1447 RowBox[{"Sin", "[", 1448 RowBox[{ 1449 FractionBox["c", "2"], "+", 1450 FractionBox[ 1451 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 1452 RowBox[{"2", " ", "n"}]], 1453 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 1454 CellDingbat->None, 1455 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 1456 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 1457 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 1458 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 1459 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 1460 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 1461 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 1462 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, { 1463 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.4979280562211075`*^9, 1464 3.497928234825821*^9, 3.4979283422632093`*^9}, 1465 TextAlignment->Center, 1466 FontSize->12, 1467 FontWeight->"Bold"], 1468 1469Cell["Program code:", "Subsubsection", 1470 CellDingbat->"\[FilledSmallSquare]", 1471 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1472 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1473 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1474 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1475 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1476 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1477 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1478 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 1479 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 1480 3.492805165713872*^9}}], 1481 1482Cell[BoxData[ 1483 RowBox[{ 1484 RowBox[{"Int", "[", 1485 RowBox[{ 1486 RowBox[{ 1487 RowBox[{"x_", "^", "m_."}], "*", 1488 RowBox[{ 1489 RowBox[{"(", 1490 RowBox[{"a_", "+", 1491 RowBox[{"b_.", "*", 1492 RowBox[{"Cos", "[", 1493 RowBox[{"c_.", "+", 1494 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 1495 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 1496 RowBox[{ 1497 RowBox[{"Dist", "[", 1498 RowBox[{ 1499 RowBox[{ 1500 RowBox[{"(", 1501 RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], ",", 1502 RowBox[{"Int", "[", 1503 RowBox[{ 1504 RowBox[{ 1505 RowBox[{"x", "^", "m"}], "*", 1506 RowBox[{ 1507 RowBox[{"Sin", "[", 1508 RowBox[{ 1509 RowBox[{"c", "/", "2"}], "+", 1510 RowBox[{"d", "*", 1511 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 1512 RowBox[{"(", 1513 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 1514 "/;", "\n", 1515 RowBox[{ 1516 RowBox[{"FreeQ", "[", 1517 RowBox[{ 1518 RowBox[{"{", 1519 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 1520 " ", "&&", " ", 1521 RowBox[{"ZeroQ", "[", 1522 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 1523 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 1524 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 1525 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 1526 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 1527 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 1528 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 1529 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, { 1530 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.497927925752103*^9, 1531 3.497928134611245*^9, 3.4979282680382795`*^9}, 1532 Background->GrayLevel[0.85]], 1533 1534Cell["", "Subsubsection", 1535 CellDingbat->None, 1536 CellChangeTimes->{3.4796643211106243`*^9}], 1537 1538Cell["\<\ 1539Derivation: Algebraic simplification and piecewise constant extraction\ 1540\>", "Subsubsection", 1541 CellChangeTimes->{ 1542 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 1543 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 1544 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 1545 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}}], 1546 1547Cell[TextData[{ 1548 "Basis: If ", 1549 Cell[BoxData[ 1550 RowBox[{ 1551 RowBox[{ 1552 SuperscriptBox["a", "2"], "-", 1553 SuperscriptBox["b", "2"]}], "=", "0"}]]], 1554 ", then ", 1555 Cell[BoxData[ 1556 RowBox[{ 1557 RowBox[{"a", "+", 1558 RowBox[{"b", " ", 1559 RowBox[{"Cos", "[", "z", "]"}]}]}], "=", 1560 RowBox[{"2", " ", "a", " ", 1561 SuperscriptBox[ 1562 RowBox[{"Cos", "[", 1563 RowBox[{ 1564 FractionBox["z", "2"], "-", 1565 RowBox[{ 1566 FractionBox["1", "4"], " ", "\[Pi]", " ", 1567 RowBox[{"(", 1568 RowBox[{"1", "-", 1569 FractionBox["a", "b"]}], ")"}]}]}], "]"}], "2"]}]}]]] 1570}], "Subsubsection", 1571 CellChangeTimes->{ 1572 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1573 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1574 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1575 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1576 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 1577 3.4979216146517825`*^9, 3.4979216448534355`*^9}, {3.4979284733034396`*^9, 1578 3.4979284733034396`*^9}, {3.4982415690346527`*^9, 3.4982415690346527`*^9}}], 1579 1580Cell[TextData[{ 1581 "Basis: If ", 1582 Cell[BoxData[ 1583 RowBox[{ 1584 RowBox[{ 1585 SuperscriptBox["a", "2"], "-", 1586 SuperscriptBox["b", "2"]}], "=", "0"}]]], 1587 ", then ", 1588 Cell[BoxData[ 1589 RowBox[{ 1590 RowBox[{ 1591 SubscriptBox["\[PartialD]", "z"], 1592 FractionBox[ 1593 SqrtBox[ 1594 RowBox[{"a", "+", 1595 RowBox[{"b", " ", 1596 RowBox[{"Cos", "[", "z", "]"}]}]}]], 1597 RowBox[{"Cos", "[", 1598 RowBox[{ 1599 FractionBox["z", "2"], "-", 1600 RowBox[{ 1601 FractionBox["1", "4"], " ", "\[Pi]", " ", 1602 RowBox[{"(", 1603 RowBox[{"1", "-", 1604 FractionBox["a", "b"]}], ")"}]}]}], "]"}]]}], "\[Equal]", "0"}]]] 1605}], "Subsubsection", 1606 CellChangeTimes->{ 1607 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1608 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1609 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1610 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, { 1611 3.4976625130975018`*^9, 3.4976625346879396`*^9}, 3.497662595840047*^9, { 1612 3.4979216146517825`*^9, 3.4979216448534355`*^9}, {3.497928515033513*^9, 1613 3.497928515033513*^9}, {3.498241570884655*^9, 3.498241570884655*^9}}], 1614 1615Cell["\<\ 1616Note: This rule unifies the following two rules, but superficially appears \ 1617more complicated.\ 1618\>", "Subsubsection", 1619 CellChangeTimes->{ 1620 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1621 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1622 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1623 3.497639496888481*^9, 3.497662072225127*^9, {3.4979280063010197`*^9, 1624 3.4979280173458385`*^9}}], 1625 1626Cell[TextData[{ 1627 "Rule: If ", 1628 Cell[BoxData[ 1629 RowBox[{ 1630 RowBox[{ 1631 SuperscriptBox["a", "2"], "-", 1632 SuperscriptBox["b", "2"]}], "=", 1633 RowBox[{"0", " ", "\[And]", " ", 1634 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 1635 " ", 1636 RowBox[{ 1637 RowBox[{"n", "-", 1638 FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}]]], 1639 ", then" 1640}], "Subsubsection", 1641 CellDingbat->"\[FilledSmallSquare]", 1642 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1643 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1644 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1645 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1646 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1647 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1648 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1649 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 1650 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 1651 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 1652 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 1653 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4982415751246605`*^9, 1654 3.4982415751246605`*^9}}], 1655 1656Cell[BoxData[ 1657 RowBox[{"\[Integral]", 1658 RowBox[{ 1659 SuperscriptBox["x", "m"], " ", 1660 SuperscriptBox[ 1661 RowBox[{"(", 1662 RowBox[{"a", "+", 1663 RowBox[{"b", " ", 1664 RowBox[{"Cos", "[", 1665 RowBox[{"c", "+", 1666 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 1667 RowBox[{"\[DifferentialD]", 1668 RowBox[{"x", " ", "\[LongRightArrow]", " ", 1669 FractionBox[ 1670 RowBox[{ 1671 SuperscriptBox[ 1672 RowBox[{"(", 1673 RowBox[{"2", " ", "a"}], ")"}], 1674 RowBox[{"n", "-", 1675 FractionBox["1", "2"]}]], " ", 1676 SqrtBox[ 1677 RowBox[{"a", "+", 1678 RowBox[{"b", " ", 1679 RowBox[{"Cos", "[", 1680 RowBox[{"c", "+", 1681 RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], 1682 RowBox[{"Cos", "[", 1683 RowBox[{ 1684 RowBox[{ 1685 FractionBox["1", "4"], " ", 1686 RowBox[{"(", 1687 RowBox[{"-", "\[Pi]"}], ")"}], " ", 1688 RowBox[{"(", 1689 RowBox[{"1", "-", 1690 FractionBox["a", "b"]}], ")"}]}], "+", 1691 FractionBox["c", "2"], "+", 1692 FractionBox[ 1693 RowBox[{"d", " ", "x"}], "2"]}], "]"}]]}]}], 1694 RowBox[{"\[Integral]", 1695 RowBox[{ 1696 SuperscriptBox["x", "m"], " ", 1697 SuperscriptBox[ 1698 RowBox[{"Cos", "[", 1699 RowBox[{ 1700 RowBox[{ 1701 FractionBox["1", "4"], " ", 1702 RowBox[{"(", 1703 RowBox[{"-", "\[Pi]"}], ")"}], " ", 1704 RowBox[{"(", 1705 RowBox[{"1", "-", 1706 FractionBox["a", "b"]}], ")"}]}], "+", 1707 FractionBox["c", "2"], "+", 1708 FractionBox[ 1709 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 1710 RowBox[{"2", " ", "n"}]], 1711 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 1712 CellDingbat->None, 1713 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 1714 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 1715 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 1716 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 1717 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 1718 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 1719 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 1720 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 1721 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 1722 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 1723 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 1724 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 1725 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 1726 3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.4979216146517825`*^9, 1727 3.4979216448534355`*^9}, 3.4979287555703354`*^9}, 1728 TextAlignment->Center, 1729 FontSize->12, 1730 FontWeight->"Bold"], 1731 1732Cell["Program code:", "Subsubsection", 1733 CellDingbat->"\[FilledSmallSquare]", 1734 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1735 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1736 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1737 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1738 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1739 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1740 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1741 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 1742 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 1743 3.492805165713872*^9}}], 1744 1745Cell[BoxData[ 1746 RowBox[{"(*", " ", 1747 RowBox[{ 1748 RowBox[{"Int", "[", 1749 RowBox[{ 1750 RowBox[{ 1751 RowBox[{"x_", "^", "m_."}], "*", 1752 RowBox[{ 1753 RowBox[{"(", 1754 RowBox[{"a_", "+", 1755 RowBox[{"b_.", "*", 1756 RowBox[{"Cos", "[", 1757 RowBox[{"c_.", "+", 1758 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], 1759 ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 1760 RowBox[{ 1761 RowBox[{"Dist", "[", 1762 RowBox[{ 1763 RowBox[{ 1764 RowBox[{ 1765 RowBox[{"(", 1766 RowBox[{"2", "*", "a"}], ")"}], "^", 1767 RowBox[{"(", 1768 RowBox[{"n", "-", 1769 RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 1770 RowBox[{ 1771 RowBox[{"Sqrt", "[", 1772 RowBox[{"a", "+", 1773 RowBox[{"b", "*", 1774 RowBox[{"Cos", "[", 1775 RowBox[{"c", "+", 1776 RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/", 1777 RowBox[{"Cos", "[", 1778 RowBox[{ 1779 RowBox[{ 1780 RowBox[{ 1781 RowBox[{"-", "Pi"}], "/", "4"}], "*", 1782 RowBox[{"(", 1783 RowBox[{"1", "-", 1784 RowBox[{"a", "/", "b"}]}], ")"}]}], "+", 1785 RowBox[{"c", "/", "2"}], "+", 1786 RowBox[{"d", "*", 1787 RowBox[{"x", "/", "2"}]}]}], "]"}]}]}], ",", "\n", " ", 1788 RowBox[{"Int", "[", 1789 RowBox[{ 1790 RowBox[{ 1791 RowBox[{"x", "^", "m"}], "*", 1792 RowBox[{ 1793 RowBox[{"Cos", "[", 1794 RowBox[{ 1795 RowBox[{ 1796 RowBox[{ 1797 RowBox[{"-", "Pi"}], "/", "4"}], "*", 1798 RowBox[{"(", 1799 RowBox[{"1", "-", 1800 RowBox[{"a", "/", "b"}]}], ")"}]}], "+", 1801 RowBox[{"c", "/", "2"}], "+", 1802 RowBox[{"d", "*", 1803 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 1804 RowBox[{"(", 1805 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 1806 " ", "/;", "\n", 1807 RowBox[{ 1808 RowBox[{"FreeQ", "[", 1809 RowBox[{ 1810 RowBox[{"{", 1811 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 1812 " ", "&&", " ", 1813 RowBox[{"ZeroQ", "[", 1814 RowBox[{ 1815 RowBox[{"a", "^", "2"}], "-", 1816 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 1817 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 1818 RowBox[{"IntegerQ", "[", 1819 RowBox[{"n", "-", 1820 RowBox[{"1", "/", "2"}]}], "]"}]}]}]}], " ", "*)"}]], "Code", 1821 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 1822 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 1823 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 1824 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 1825 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 1826 3.497662464394216*^9, 3.497662468965024*^9}, {3.497844840747451*^9, 1827 3.4978448419874525`*^9}, {3.4979216146673827`*^9, 1828 3.4979216448690357`*^9}, {3.497928561240794*^9, 3.4979285693528085`*^9}, 1829 3.4982415970446916`*^9}, 1830 Background->GrayLevel[0.85]], 1831 1832Cell["", "Subsubsection", 1833 CellDingbat->None, 1834 CellChangeTimes->{3.4796643211106243`*^9}], 1835 1836Cell["Derivation: Algebraic simplification", "Subsubsection", 1837 CellChangeTimes->{ 1838 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1839 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1840 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1841 3.497639496888481*^9, 3.497662072225127*^9}], 1842 1843Cell[TextData[{ 1844 "Basis: ", 1845 Cell[BoxData[ 1846 RowBox[{ 1847 RowBox[{"1", "+", 1848 RowBox[{"Cos", "[", "z", "]"}]}], "=", 1849 RowBox[{"2", " ", 1850 SuperscriptBox[ 1851 RowBox[{"Cos", "[", 1852 FractionBox["z", "2"], "]"}], "2"]}]}]]] 1853}], "Subsubsection", 1854 CellChangeTimes->{ 1855 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1856 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1857 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1858 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1859 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 1860 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 1861 3.4979281663573003`*^9}}], 1862 1863Cell[TextData[{ 1864 "Basis: ", 1865 Cell[BoxData[ 1866 RowBox[{ 1867 RowBox[{ 1868 SubscriptBox["\[PartialD]", "z"], 1869 FractionBox[ 1870 SqrtBox[ 1871 RowBox[{"a", "+", 1872 RowBox[{"a", " ", 1873 RowBox[{"Cos", "[", "z", "]"}]}]}]], 1874 RowBox[{"Cos", "[", 1875 FractionBox["z", "2"], "]"}]]}], "=", "0"}]]] 1876}], "Subsubsection", 1877 CellChangeTimes->{ 1878 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 1879 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 1880 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 1881 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 1882 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 1883 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 1884 3.4979281663573003`*^9}, 3.4979286748245935`*^9}], 1885 1886Cell[TextData[{ 1887 "Rule: If ", 1888 Cell[BoxData[ 1889 RowBox[{ 1890 RowBox[{"a", "-", "b"}], "=", 1891 RowBox[{"0", " ", "\[And]", " ", 1892 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 1893 " ", 1894 RowBox[{ 1895 RowBox[{"n", "-", 1896 FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}]]], 1897 ", then" 1898}], "Subsubsection", 1899 CellDingbat->"\[FilledSmallSquare]", 1900 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1901 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1902 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1903 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1904 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1905 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1906 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1907 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 1908 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 1909 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 1910 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 1911 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.4979281972297544`*^9, 1912 3.4979281999909596`*^9}, {3.4979283710608597`*^9, 3.497928375538068*^9}, { 1913 3.497928704776646*^9, 3.4979287078810515`*^9}}], 1914 1915Cell[BoxData[ 1916 RowBox[{"\[Integral]", 1917 RowBox[{ 1918 SuperscriptBox["x", "m"], " ", 1919 SuperscriptBox[ 1920 RowBox[{"(", 1921 RowBox[{"a", "+", 1922 RowBox[{"b", " ", 1923 RowBox[{"Cos", "[", 1924 RowBox[{"c", "+", 1925 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 1926 RowBox[{"\[DifferentialD]", 1927 RowBox[{"x", " ", "\[LongRightArrow]", " ", 1928 FractionBox[ 1929 RowBox[{ 1930 SuperscriptBox[ 1931 RowBox[{"(", 1932 RowBox[{"2", " ", "a"}], ")"}], 1933 RowBox[{"n", "-", 1934 FractionBox["1", "2"]}]], " ", 1935 SqrtBox[ 1936 RowBox[{"a", "+", 1937 RowBox[{"b", " ", 1938 RowBox[{"Cos", "[", 1939 RowBox[{"c", "+", 1940 RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], 1941 RowBox[{"Cos", "[", 1942 RowBox[{ 1943 FractionBox["c", "2"], "+", 1944 FractionBox[ 1945 RowBox[{"d", " ", "x"}], "2"]}], "]"}]]}]}], 1946 RowBox[{"\[Integral]", 1947 RowBox[{ 1948 SuperscriptBox["x", "m"], " ", 1949 SuperscriptBox[ 1950 RowBox[{"Cos", "[", 1951 RowBox[{ 1952 FractionBox["c", "2"], "+", 1953 FractionBox[ 1954 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 1955 RowBox[{"2", " ", "n"}]], 1956 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 1957 CellDingbat->None, 1958 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 1959 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 1960 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 1961 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 1962 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 1963 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 1964 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 1965 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, { 1966 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.4979280562211075`*^9, 1967 3.497928234825821*^9, 3.497928825302458*^9}, 1968 TextAlignment->Center, 1969 FontSize->12, 1970 FontWeight->"Bold"], 1971 1972Cell["Program code:", "Subsubsection", 1973 CellDingbat->"\[FilledSmallSquare]", 1974 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 1975 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 1976 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 1977 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 1978 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 1979 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 1980 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 1981 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 1982 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 1983 3.492805165713872*^9}}], 1984 1985Cell[BoxData[ 1986 RowBox[{ 1987 RowBox[{"Int", "[", 1988 RowBox[{ 1989 RowBox[{ 1990 RowBox[{"x_", "^", "m_."}], "*", 1991 RowBox[{ 1992 RowBox[{"(", 1993 RowBox[{"a_", "+", 1994 RowBox[{"b_.", "*", 1995 RowBox[{"Cos", "[", 1996 RowBox[{"c_.", "+", 1997 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 1998 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 1999 RowBox[{ 2000 RowBox[{"Dist", "[", 2001 RowBox[{ 2002 RowBox[{ 2003 RowBox[{ 2004 RowBox[{"(", 2005 RowBox[{"2", "*", "a"}], ")"}], "^", 2006 RowBox[{"(", 2007 RowBox[{"n", "-", 2008 RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 2009 RowBox[{ 2010 RowBox[{"Sqrt", "[", 2011 RowBox[{"a", "+", 2012 RowBox[{"b", "*", 2013 RowBox[{"Cos", "[", 2014 RowBox[{"c", "+", 2015 RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/", 2016 RowBox[{"Cos", "[", 2017 RowBox[{ 2018 RowBox[{"c", "/", "2"}], "+", 2019 RowBox[{"d", "*", 2020 RowBox[{"x", "/", "2"}]}]}], "]"}]}]}], ",", 2021 RowBox[{"Int", "[", 2022 RowBox[{ 2023 RowBox[{ 2024 RowBox[{"x", "^", "m"}], "*", 2025 RowBox[{ 2026 RowBox[{"Cos", "[", 2027 RowBox[{ 2028 RowBox[{"c", "/", "2"}], "+", 2029 RowBox[{"d", "*", 2030 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 2031 RowBox[{"(", 2032 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 2033 "/;", "\n", 2034 RowBox[{ 2035 RowBox[{"FreeQ", "[", 2036 RowBox[{ 2037 RowBox[{"{", 2038 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2039 " ", "&&", " ", 2040 RowBox[{"ZeroQ", "[", 2041 RowBox[{"a", "-", "b"}], "]"}], " ", "&&", " ", 2042 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 2043 RowBox[{"IntegerQ", "[", 2044 RowBox[{"n", "-", 2045 RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code", 2046 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 2047 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 2048 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 2049 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, { 2050 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.497927925752103*^9, 2051 3.497928134611245*^9, 3.497928643749339*^9, 3.4982416290347366`*^9}, 2052 Background->GrayLevel[0.85]], 2053 2054Cell["", "Subsubsection", 2055 CellDingbat->None, 2056 CellChangeTimes->{3.4796643211106243`*^9}], 2057 2058Cell["Derivation: Algebraic simplification", "Subsubsection", 2059 CellChangeTimes->{ 2060 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 2061 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 2062 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 2063 3.497639496888481*^9, 3.497662072225127*^9}], 2064 2065Cell[TextData[{ 2066 "Basis: ", 2067 Cell[BoxData[ 2068 RowBox[{ 2069 RowBox[{"1", "-", 2070 RowBox[{"Cos", "[", "z", "]"}]}], "=", 2071 RowBox[{"2", " ", 2072 SuperscriptBox[ 2073 RowBox[{"Sin", "[", 2074 FractionBox["z", "2"], "]"}], "2"]}]}]]] 2075}], "Subsubsection", 2076 CellChangeTimes->{ 2077 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 2078 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 2079 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 2080 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 2081 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 2082 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 2083 3.4979281663573003`*^9}, 3.4979288984821863`*^9}], 2084 2085Cell[TextData[{ 2086 "Basis: ", 2087 Cell[BoxData[ 2088 RowBox[{ 2089 RowBox[{ 2090 SubscriptBox["\[PartialD]", "z"], 2091 FractionBox[ 2092 SqrtBox[ 2093 RowBox[{"a", "-", 2094 RowBox[{"a", " ", 2095 RowBox[{"Cos", "[", "z", "]"}]}]}]], 2096 RowBox[{"Sin", "[", 2097 FractionBox["z", "2"], "]"}]]}], "=", "0"}]]] 2098}], "Subsubsection", 2099 CellChangeTimes->{ 2100 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 2101 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 2102 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 2103 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 2104 3.497662667553373*^9, {3.4979216146361823`*^9, 3.4979216448534355`*^9}, { 2105 3.4979279638121567`*^9, 3.497927983762184*^9}, {3.4979281528008766`*^9, 2106 3.4979281663573003`*^9}, 3.4979286748245935`*^9, 3.4979289148466153`*^9}], 2107 2108Cell[TextData[{ 2109 "Rule: If ", 2110 Cell[BoxData[ 2111 RowBox[{ 2112 RowBox[{"a", "+", "b"}], "=", 2113 RowBox[{"0", " ", "\[And]", " ", 2114 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalQ]"}], " ", "\[And]", 2115 " ", 2116 RowBox[{ 2117 RowBox[{"n", "-", 2118 FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}]]], 2119 ", then" 2120}], "Subsubsection", 2121 CellDingbat->"\[FilledSmallSquare]", 2122 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2123 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2124 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2125 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2126 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2127 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2128 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2129 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 2130 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 2131 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 2132 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 2133 3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.4979281972297544`*^9, 2134 3.4979281999909596`*^9}, {3.4979283710608597`*^9, 3.497928375538068*^9}, { 2135 3.497928704776646*^9, 3.4979287078810515`*^9}, {3.4979289196514235`*^9, 2136 3.4979289199478245`*^9}}], 2137 2138Cell[BoxData[ 2139 RowBox[{"\[Integral]", 2140 RowBox[{ 2141 SuperscriptBox["x", "m"], " ", 2142 SuperscriptBox[ 2143 RowBox[{"(", 2144 RowBox[{"a", "+", 2145 RowBox[{"b", " ", 2146 RowBox[{"Cos", "[", 2147 RowBox[{"c", "+", 2148 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 2149 RowBox[{"\[DifferentialD]", 2150 RowBox[{"x", " ", "\[LongRightArrow]", " ", 2151 FractionBox[ 2152 RowBox[{ 2153 SuperscriptBox[ 2154 RowBox[{"(", 2155 RowBox[{"2", " ", "a"}], ")"}], 2156 RowBox[{"n", "-", 2157 FractionBox["1", "2"]}]], " ", 2158 SqrtBox[ 2159 RowBox[{"a", "+", 2160 RowBox[{"b", " ", 2161 RowBox[{"Cos", "[", 2162 RowBox[{"c", "+", 2163 RowBox[{"d", " ", "x"}]}], "]"}]}]}]]}], 2164 RowBox[{"Sin", "[", 2165 RowBox[{ 2166 FractionBox["c", "2"], "+", 2167 FractionBox[ 2168 RowBox[{"d", " ", "x"}], "2"]}], "]"}]]}]}], 2169 RowBox[{"\[Integral]", 2170 RowBox[{ 2171 SuperscriptBox["x", "m"], " ", 2172 SuperscriptBox[ 2173 RowBox[{"Sin", "[", 2174 RowBox[{ 2175 FractionBox["c", "2"], "+", 2176 FractionBox[ 2177 RowBox[{"d", " ", "x"}], "2"]}], "]"}], 2178 RowBox[{"2", " ", "n"}]], 2179 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 2180 CellDingbat->None, 2181 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 2182 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 2183 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 2184 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 2185 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 2186 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 2187 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 2188 3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, { 2189 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.4979280562211075`*^9, 2190 3.497928234825821*^9, 3.497928825302458*^9, 3.4979289563270884`*^9}, 2191 TextAlignment->Center, 2192 FontSize->12, 2193 FontWeight->"Bold"], 2194 2195Cell["Program code:", "Subsubsection", 2196 CellDingbat->"\[FilledSmallSquare]", 2197 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2198 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2199 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2200 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2201 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2202 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2203 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2204 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 2205 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 2206 3.492805165713872*^9}}], 2207 2208Cell[BoxData[ 2209 RowBox[{ 2210 RowBox[{"Int", "[", 2211 RowBox[{ 2212 RowBox[{ 2213 RowBox[{"x_", "^", "m_."}], "*", 2214 RowBox[{ 2215 RowBox[{"(", 2216 RowBox[{"a_", "+", 2217 RowBox[{"b_.", "*", 2218 RowBox[{"Cos", "[", 2219 RowBox[{"c_.", "+", 2220 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 2221 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 2222 RowBox[{ 2223 RowBox[{"Dist", "[", 2224 RowBox[{ 2225 RowBox[{ 2226 RowBox[{ 2227 RowBox[{"(", 2228 RowBox[{"2", "*", "a"}], ")"}], "^", 2229 RowBox[{"(", 2230 RowBox[{"n", "-", 2231 RowBox[{"1", "/", "2"}]}], ")"}]}], "*", 2232 RowBox[{ 2233 RowBox[{"Sqrt", "[", 2234 RowBox[{"a", "+", 2235 RowBox[{"b", "*", 2236 RowBox[{"Cos", "[", 2237 RowBox[{"c", "+", 2238 RowBox[{"d", "*", "x"}]}], "]"}]}]}], "]"}], "/", 2239 RowBox[{"Sin", "[", 2240 RowBox[{ 2241 RowBox[{"c", "/", "2"}], "+", 2242 RowBox[{"d", "*", 2243 RowBox[{"x", "/", "2"}]}]}], "]"}]}]}], ",", 2244 RowBox[{"Int", "[", 2245 RowBox[{ 2246 RowBox[{ 2247 RowBox[{"x", "^", "m"}], "*", 2248 RowBox[{ 2249 RowBox[{"Sin", "[", 2250 RowBox[{ 2251 RowBox[{"c", "/", "2"}], "+", 2252 RowBox[{"d", "*", 2253 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 2254 RowBox[{"(", 2255 RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], " ", 2256 "/;", "\n", 2257 RowBox[{ 2258 RowBox[{"FreeQ", "[", 2259 RowBox[{ 2260 RowBox[{"{", 2261 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2262 " ", "&&", " ", 2263 RowBox[{"ZeroQ", "[", 2264 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 2265 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 2266 RowBox[{"IntegerQ", "[", 2267 RowBox[{"n", "-", 2268 RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code", 2269 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 2270 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 2271 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 2272 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, { 2273 3.4979216146361823`*^9, 3.4979216448534355`*^9}, 3.497927925752103*^9, 2274 3.497928134611245*^9, 3.497928643749339*^9, 3.497928879652953*^9, 2275 3.498241633184742*^9}, 2276 Background->GrayLevel[0.85]], 2277 2278Cell["", "Subsubsection", 2279 CellDingbat->None, 2280 CellChangeTimes->{3.4796643211106243`*^9}], 2281 2282Cell["Derivation: Algebraic expansion", "Subsubsection", 2283 CellChangeTimes->{ 2284 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 2285 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 2286 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 2287 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, 2288 3.497662905609791*^9}], 2289 2290Cell[TextData[{ 2291 "Basis: ", 2292 Cell[BoxData[ 2293 RowBox[{ 2294 FractionBox["1", 2295 SuperscriptBox[ 2296 RowBox[{"(", 2297 RowBox[{"a", "+", 2298 RowBox[{"b", " ", "z"}]}], ")"}], "2"]], "=", 2299 RowBox[{ 2300 FractionBox["a", 2301 RowBox[{ 2302 RowBox[{"(", 2303 RowBox[{ 2304 SuperscriptBox["a", "2"], "-", 2305 SuperscriptBox["b", "2"]}], ")"}], " ", 2306 RowBox[{"(", 2307 RowBox[{"a", "+", 2308 RowBox[{"b", " ", "z"}]}], ")"}]}]], "-", 2309 FractionBox[ 2310 RowBox[{"b", " ", 2311 RowBox[{"(", 2312 RowBox[{"b", "+", 2313 RowBox[{"a", " ", "z"}]}], ")"}]}], 2314 RowBox[{ 2315 RowBox[{"(", 2316 RowBox[{ 2317 SuperscriptBox["a", "2"], "-", 2318 SuperscriptBox["b", "2"]}], ")"}], " ", 2319 SuperscriptBox[ 2320 RowBox[{"(", 2321 RowBox[{"a", "+", 2322 RowBox[{"b", " ", "z"}]}], ")"}], "2"]}]]}]}]]] 2323}], "Subsubsection", 2324 CellChangeTimes->{ 2325 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 2326 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 2327 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 2328 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 2329 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 2330 3.497662923331422*^9, 3.497662936139045*^9}}], 2331 2332Cell[TextData[{ 2333 "Rule: If ", 2334 Cell[BoxData[ 2335 RowBox[{ 2336 RowBox[{ 2337 SuperscriptBox["a", "2"], "-", 2338 SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]], 2339 ", then" 2340}], "Subsubsection", 2341 CellDingbat->"\[FilledSmallSquare]", 2342 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2343 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2344 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2345 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2346 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2347 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2348 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2349 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 2350 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 2351 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 2352 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 2353 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 2354 3.49766295624748*^9}, {3.4982416592347784`*^9, 3.4982416592347784`*^9}}], 2355 2356Cell[BoxData[ 2357 RowBox[{ 2358 RowBox[{"\[Integral]", 2359 RowBox[{ 2360 FractionBox["x", 2361 SuperscriptBox[ 2362 RowBox[{"(", 2363 RowBox[{"a", "+", 2364 RowBox[{"b", " ", 2365 RowBox[{"Cos", "[", 2366 RowBox[{"c", "+", 2367 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 2368 RowBox[{"\[DifferentialD]", 2369 RowBox[{"x", " ", "\[LongRightArrow]", " ", 2370 FractionBox["a", 2371 RowBox[{ 2372 SuperscriptBox["a", "2"], "-", 2373 SuperscriptBox["b", "2"]}]]}]}], 2374 RowBox[{"\[Integral]", 2375 RowBox[{ 2376 FractionBox["x", 2377 RowBox[{"a", "+", 2378 RowBox[{"b", " ", 2379 RowBox[{"Cos", "[", 2380 RowBox[{"c", "+", 2381 RowBox[{"d", " ", "x"}]}], "]"}]}]}]], 2382 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 2383 RowBox[{ 2384 FractionBox["b", 2385 RowBox[{ 2386 SuperscriptBox["a", "2"], "-", 2387 SuperscriptBox["b", "2"]}]], 2388 RowBox[{"\[Integral]", 2389 RowBox[{ 2390 FractionBox[ 2391 RowBox[{"x", " ", 2392 RowBox[{"(", 2393 RowBox[{"b", "+", 2394 RowBox[{"a", " ", 2395 RowBox[{"Cos", "[", 2396 RowBox[{"c", "+", 2397 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}]}], 2398 SuperscriptBox[ 2399 RowBox[{"(", 2400 RowBox[{"a", "+", 2401 RowBox[{"b", " ", 2402 RowBox[{"Cos", "[", 2403 RowBox[{"c", "+", 2404 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 2405 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 2406 CellDingbat->None, 2407 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 2408 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 2409 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 2410 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 2411 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 2412 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 2413 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 2414 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 2415 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 2416 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 2417 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 2418 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 2419 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 2420 3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 2421 3.4976631028721375`*^9}, {3.4979216300022097`*^9, 3.4979216300022097`*^9}}, 2422 TextAlignment->Center, 2423 FontSize->12, 2424 FontWeight->"Bold"], 2425 2426Cell["Program code:", "Subsubsection", 2427 CellDingbat->"\[FilledSmallSquare]", 2428 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2429 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2430 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2431 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2432 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2433 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2434 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2435 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 2436 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 2437 3.492805165713872*^9}}], 2438 2439Cell[BoxData[ 2440 RowBox[{ 2441 RowBox[{"Int", "[", 2442 RowBox[{ 2443 RowBox[{"x_", "/", 2444 RowBox[{ 2445 RowBox[{"(", 2446 RowBox[{"a_", "+", 2447 RowBox[{"b_.", "*", 2448 RowBox[{"Cos", "[", 2449 RowBox[{"c_.", "+", 2450 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",", 2451 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 2452 RowBox[{ 2453 RowBox[{ 2454 RowBox[{"Dist", "[", 2455 RowBox[{ 2456 RowBox[{"a", "/", 2457 RowBox[{"(", 2458 RowBox[{ 2459 RowBox[{"a", "^", "2"}], "-", 2460 RowBox[{"b", "^", "2"}]}], ")"}]}], ",", 2461 RowBox[{"Int", "[", 2462 RowBox[{ 2463 RowBox[{"x", "/", 2464 RowBox[{"(", 2465 RowBox[{"a", "+", 2466 RowBox[{"b", "*", 2467 RowBox[{"Cos", "[", 2468 RowBox[{"c", "+", 2469 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 2470 "]"}]}], "]"}], " ", "-", "\n", " ", 2471 RowBox[{"Dist", "[", 2472 RowBox[{ 2473 RowBox[{"b", "/", 2474 RowBox[{"(", 2475 RowBox[{ 2476 RowBox[{"a", "^", "2"}], "-", 2477 RowBox[{"b", "^", "2"}]}], ")"}]}], ",", 2478 RowBox[{"Int", "[", 2479 RowBox[{ 2480 RowBox[{"x", "*", 2481 RowBox[{ 2482 RowBox[{"(", 2483 RowBox[{"b", "+", 2484 RowBox[{"a", "*", 2485 RowBox[{"Cos", "[", 2486 RowBox[{"c", "+", 2487 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "/", 2488 RowBox[{ 2489 RowBox[{"(", 2490 RowBox[{"a", "+", 2491 RowBox[{"b", "*", 2492 RowBox[{"Cos", "[", 2493 RowBox[{"c", "+", 2494 RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "2"}]}]}], 2495 ",", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 2496 RowBox[{ 2497 RowBox[{"FreeQ", "[", 2498 RowBox[{ 2499 RowBox[{"{", 2500 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2501 " ", "&&", " ", 2502 RowBox[{"NonzeroQ", "[", 2503 RowBox[{ 2504 RowBox[{"a", "^", "2"}], "-", 2505 RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code", 2506 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 2507 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 2508 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 2509 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 2510 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 2511 3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, { 2512 3.4979216300022097`*^9, 3.4979216300022097`*^9}, 3.4979289906939487`*^9}, 2513 Background->GrayLevel[0.85]], 2514 2515Cell["", "Subsubsection", 2516 CellDingbat->None, 2517 CellChangeTimes->{3.4796643211106243`*^9}], 2518 2519Cell["Derivation: Algebraic expansion", "Subsubsection", 2520 CellChangeTimes->{ 2521 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 2522 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 2523 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 2524 3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, 2525 3.497662905609791*^9}], 2526 2527Cell[TextData[{ 2528 "Basis: ", 2529 Cell[BoxData[ 2530 RowBox[{ 2531 RowBox[{"a", "+", 2532 RowBox[{"b", " ", 2533 RowBox[{"Cos", "[", "z", "]"}]}]}], "=", 2534 FractionBox[ 2535 RowBox[{"b", "+", 2536 RowBox[{"2", " ", "a", " ", 2537 SuperscriptBox["\[ExponentialE]", 2538 RowBox[{"\[ImaginaryI]", " ", "z"}]]}], "+", 2539 RowBox[{"b", " ", 2540 SuperscriptBox["\[ExponentialE]", 2541 RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}], 2542 RowBox[{"2", " ", 2543 SuperscriptBox["\[ExponentialE]", 2544 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]]}]]] 2545}], "Subsubsection", 2546 CellChangeTimes->{ 2547 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 2548 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 2549 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 2550 3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 2551 3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, { 2552 3.497662923331422*^9, 3.497662936139045*^9}, 3.497663013827181*^9, { 2553 3.49792163001781*^9, 3.49792163001781*^9}, {3.4979291056193504`*^9, 2554 3.4979291056193504`*^9}}], 2555 2556Cell[TextData[{ 2557 "Rule: If ", 2558 Cell[BoxData[ 2559 RowBox[{ 2560 RowBox[{ 2561 RowBox[{ 2562 SuperscriptBox["a", "2"], "-", 2563 SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 2564 RowBox[{"m", ">", "0"}], " ", "\[And]", " ", 2565 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 2566 RowBox[{"n", "<", "0"}]}]]], 2567 ", then" 2568}], "Subsubsection", 2569 CellDingbat->"\[FilledSmallSquare]", 2570 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2571 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2572 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2573 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2574 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2575 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2576 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2577 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 2578 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 2579 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 2580 3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, { 2581 3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 2582 3.49766295624748*^9}, {3.497663154773429*^9, 3.497663222165547*^9}, { 2583 3.4979292038059225`*^9, 3.4979292475639997`*^9}, {3.4982416701947937`*^9, 2584 3.4982416701947937`*^9}}], 2585 2586Cell[BoxData[ 2587 RowBox[{"\[Integral]", 2588 RowBox[{ 2589 SuperscriptBox["x", "m"], " ", 2590 SuperscriptBox[ 2591 RowBox[{"(", 2592 RowBox[{"a", "+", 2593 RowBox[{"b", " ", 2594 RowBox[{"Cos", "[", 2595 RowBox[{"c", "+", 2596 RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 2597 RowBox[{"\[DifferentialD]", 2598 RowBox[{"x", " ", "\[LongRightArrow]", " ", 2599 FractionBox["1", 2600 SuperscriptBox["2", "n"]]}]}], 2601 RowBox[{"\[Integral]", 2602 RowBox[{ 2603 FractionBox[ 2604 RowBox[{ 2605 SuperscriptBox["x", "m"], " ", 2606 SuperscriptBox[ 2607 RowBox[{"(", 2608 RowBox[{"b", "+", 2609 RowBox[{"2", " ", "a", " ", 2610 SuperscriptBox["\[ExponentialE]", 2611 RowBox[{ 2612 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 2613 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}]]}], "+", 2614 RowBox[{"b", " ", 2615 SuperscriptBox["\[ExponentialE]", 2616 RowBox[{"2", " ", 2617 RowBox[{"(", 2618 RowBox[{ 2619 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 2620 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}], ")"}]}]]}]}], 2621 ")"}], "n"]}], 2622 SuperscriptBox["\[ExponentialE]", 2623 RowBox[{"n", " ", 2624 RowBox[{"(", 2625 RowBox[{ 2626 RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 2627 RowBox[{"\[ImaginaryI]", " ", "d", " ", "x"}]}], ")"}]}]]], 2628 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 2629 CellDingbat->None, 2630 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 2631 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 2632 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 2633 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 2634 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 2635 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 2636 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 2637 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 2638 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 2639 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 2640 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 2641 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 2642 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 2643 3.4976623833052735`*^9, 3.4976624037569094`*^9}, 3.4976631413262053`*^9, 2644 3.49792163001781*^9, 3.4979291310317945`*^9}, 2645 TextAlignment->Center, 2646 FontSize->12, 2647 FontWeight->"Bold"], 2648 2649Cell["Program code:", "Subsubsection", 2650 CellDingbat->"\[FilledSmallSquare]", 2651 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2652 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2653 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2654 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2655 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2656 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2657 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2658 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 2659 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 2660 3.492805165713872*^9}}], 2661 2662Cell[BoxData[ 2663 RowBox[{ 2664 RowBox[{"Int", "[", 2665 RowBox[{ 2666 RowBox[{ 2667 RowBox[{"x_", "^", "m_."}], "*", 2668 RowBox[{ 2669 RowBox[{"(", 2670 RowBox[{"a_", "+", 2671 RowBox[{"b_.", "*", 2672 RowBox[{"Cos", "[", 2673 RowBox[{"c_.", "+", 2674 RowBox[{"d_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",", 2675 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 2676 RowBox[{ 2677 RowBox[{"Dist", "[", 2678 RowBox[{ 2679 RowBox[{"1", "/", 2680 RowBox[{"2", "^", "n"}]}], ",", 2681 RowBox[{"Int", "[", 2682 RowBox[{ 2683 RowBox[{ 2684 RowBox[{"x", "^", "m"}], "*", 2685 RowBox[{ 2686 RowBox[{ 2687 RowBox[{"(", 2688 RowBox[{"b", "+", 2689 RowBox[{"2", "*", "a", "*", 2690 RowBox[{"E", "^", 2691 RowBox[{"(", 2692 RowBox[{ 2693 RowBox[{"I", "*", "c"}], "+", 2694 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}]}], "+", 2695 RowBox[{"b", "*", 2696 RowBox[{"E", "^", 2697 RowBox[{"(", 2698 RowBox[{"2", "*", 2699 RowBox[{"(", 2700 RowBox[{ 2701 RowBox[{"I", "*", "c"}], "+", 2702 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 2703 ")"}], "^", "n"}], "/", 2704 RowBox[{"E", "^", 2705 RowBox[{"(", 2706 RowBox[{"n", "*", 2707 RowBox[{"(", 2708 RowBox[{ 2709 RowBox[{"I", "*", "c"}], "+", 2710 RowBox[{"I", "*", "d", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ",", 2711 "x"}], "]"}]}], "]"}], " ", "/;", "\n", 2712 RowBox[{ 2713 RowBox[{"FreeQ", "[", 2714 RowBox[{ 2715 RowBox[{"{", 2716 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2717 " ", "&&", " ", 2718 RowBox[{"NonzeroQ", "[", 2719 RowBox[{ 2720 RowBox[{"a", "^", "2"}], "-", 2721 RowBox[{"b", "^", "2"}]}], "]"}], " ", "&&", " ", 2722 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 2723 RowBox[{"m", ">", "0"}], " ", "&&", " ", 2724 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 2725 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 2726 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 2727 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 2728 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 2729 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 2730 3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, { 2731 3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 2732 3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 2733 3.49792163001781*^9, 3.4979290679920845`*^9, {3.497929153324234*^9, 2734 3.497929156023039*^9}}, 2735 Background->GrayLevel[0.85]], 2736 2737Cell["", "PageBreak", 2738 PageBreakBelow->True] 2739}, Closed]], 2740 2741Cell[CellGroupData[{ 2742 2743Cell[BoxData[ 2744 RowBox[{"\[Integral]", 2745 RowBox[{"u", 2746 SuperscriptBox[ 2747 RowBox[{"(", 2748 RowBox[{"a", "+", 2749 RowBox[{"b", " ", 2750 SuperscriptBox[ 2751 RowBox[{"Sin", "[", 2752 RowBox[{"c", "+", 2753 RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 2754 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 2755 CellDingbat->None, 2756 CellChangeTimes->{ 2757 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 2758 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 2759 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 2760 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 2761 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 2762 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 2763 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 2764 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 2765 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 2766 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 2767 3.4975759170868692`*^9}, {3.4978201697549086`*^9, 3.4978201707449093`*^9}, 2768 3.4980702555322742`*^9, 3.498070723969897*^9, 3.4980719389556313`*^9, 2769 3.4980726319200497`*^9, {3.4988884107361507`*^9, 3.498888431017311*^9}, 2770 3.4988895614289665`*^9, 3.515695574987311*^9}, 2771 TextAlignment->Center, 2772 FontSize->20, 2773 FontWeight->"Bold"], 2774 2775Cell["Derivation: Algebraic simplification", "Subsubsection", 2776 CellChangeTimes->{ 2777 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 2778 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 2779 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 2780 3.497639710530856*^9, 3.4976397495153246`*^9, 3.497676524239994*^9}], 2781 2782Cell[TextData[{ 2783 "Basis: ", 2784 Cell[BoxData[ 2785 RowBox[{ 2786 SuperscriptBox[ 2787 RowBox[{"Sin", "[", "z", "]"}], "2"], "=", 2788 RowBox[{ 2789 FractionBox["1", "2"], " ", 2790 RowBox[{"(", 2791 RowBox[{"1", "-", 2792 RowBox[{"Cos", "[", 2793 RowBox[{"2", " ", "z"}], "]"}]}], ")"}]}]}]]] 2794}], "Subsubsection", 2795 CellChangeTimes->{ 2796 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 2797 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 2798 3.497577829892153*^9}, {3.497582725161008*^9, 3.497582728721012*^9}, 2799 3.497582802891116*^9, 3.497676213204204*^9}], 2800 2801Cell["\<\ 2802Note: This rule should be replaced with rules that directly reduce the \ 2803integrand rather than transforming it using trig power expansion!\ 2804\>", "Subsubsection", 2805 CellChangeTimes->{ 2806 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 2807 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 2808 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 2809 3.497639710530856*^9, 3.4976397495153246`*^9, 3.497676524239994*^9, { 2810 3.5157017406219645`*^9, 3.515702053622402*^9}}], 2811 2812Cell[TextData[{ 2813 "Rule: If ", 2814 Cell[BoxData[ 2815 RowBox[{ 2816 RowBox[{ 2817 RowBox[{"a", "+", "b"}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 2818 RowBox[{"n", "\[NotEqual]", 2819 RowBox[{"-", "1"}]}]}]]], 2820 ", then" 2821}], "Subsubsection", 2822 CellDingbat->"\[FilledSmallSquare]", 2823 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2824 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2825 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2826 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2827 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2828 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2829 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2830 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 2831 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 2832 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 2833 3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, { 2834 3.4976766874213276`*^9, 3.497676700561079*^9}, {3.498889824763029*^9, 2835 3.4988898331305075`*^9}, {3.515699219868435*^9, 3.5156992204884357`*^9}, { 2836 3.5157021049424744`*^9, 3.5157021680525627`*^9}, {3.5157026987153068`*^9, 2837 3.5157026987153068`*^9}, {3.51570290099559*^9, 3.51570290099559*^9}, { 2838 3.5157031385159225`*^9, 3.515703141685927*^9}, {3.515703858778932*^9, 2839 3.5157038673789444`*^9}}], 2840 2841Cell[BoxData[ 2842 RowBox[{"\[Integral]", 2843 RowBox[{ 2844 SuperscriptBox[ 2845 RowBox[{"(", 2846 RowBox[{"a", "+", 2847 RowBox[{"b", " ", 2848 SuperscriptBox[ 2849 RowBox[{"Sin", "[", 2850 RowBox[{"c", "+", 2851 RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 2852 RowBox[{"\[DifferentialD]", 2853 RowBox[{"x", " ", "\[LongRightArrow]", " ", 2854 FractionBox["1", 2855 SuperscriptBox["2", "n"]]}]}], 2856 RowBox[{"\[Integral]", 2857 RowBox[{ 2858 SuperscriptBox[ 2859 RowBox[{"(", 2860 RowBox[{ 2861 RowBox[{"2", " ", "a"}], "+", "b", "-", 2862 RowBox[{"b", " ", 2863 RowBox[{"Cos", "[", 2864 RowBox[{ 2865 RowBox[{"2", " ", "c"}], "+", 2866 RowBox[{"2", " ", "d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 2867 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 2868 CellDingbat->None, 2869 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 2870 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 2871 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 2872 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 2873 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 2874 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 2875 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 2876 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 2877 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 2878 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 2879 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 2880 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 2881 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 2882 3.4976398417426867`*^9, {3.4976765781900797`*^9, 3.4976765810842457`*^9}, { 2883 3.497676622091591*^9, 3.497676634969328*^9}}, 2884 TextAlignment->Center, 2885 FontSize->12, 2886 FontWeight->"Bold"], 2887 2888Cell["Program code:", "Subsubsection", 2889 CellDingbat->"\[FilledSmallSquare]", 2890 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 2891 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 2892 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 2893 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 2894 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 2895 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 2896 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 2897 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 2898 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 2899 3.492805165713872*^9}}], 2900 2901Cell[BoxData[ 2902 RowBox[{ 2903 RowBox[{"Int", "[", 2904 RowBox[{ 2905 RowBox[{ 2906 RowBox[{"(", 2907 RowBox[{"a_", "+", 2908 RowBox[{"b_.", "*", 2909 RowBox[{ 2910 RowBox[{"Sin", "[", 2911 RowBox[{"c_.", "+", 2912 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 2913 "n_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 2914 RowBox[{ 2915 RowBox[{"Dist", "[", 2916 RowBox[{ 2917 RowBox[{"1", "/", 2918 RowBox[{"2", "^", "n"}]}], ",", 2919 RowBox[{"Int", "[", 2920 RowBox[{ 2921 RowBox[{ 2922 RowBox[{"(", 2923 RowBox[{ 2924 RowBox[{"2", "*", "a"}], "+", "b", "-", 2925 RowBox[{"b", "*", 2926 RowBox[{"Cos", "[", 2927 RowBox[{ 2928 RowBox[{"2", "*", "c"}], "+", 2929 RowBox[{"2", "*", "d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 2930 "n"}], ",", "x"}], "]"}]}], "]"}], " ", "/;", "\n", 2931 RowBox[{ 2932 RowBox[{"FreeQ", "[", 2933 RowBox[{ 2934 RowBox[{"{", 2935 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2936 " ", "&&", " ", 2937 RowBox[{"NonzeroQ", "[", 2938 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 2939 RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ", 2940 RowBox[{"n", "\[NotEqual]", 2941 RowBox[{"-", "1"}]}]}]}]}]], "Code", 2942 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 2943 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 2944 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 2945 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 2946 3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497676050505898*^9, 2947 3.4976765187576804`*^9, {3.497676670817378*^9, 3.4976766725164747`*^9}, { 2948 3.498241733094882*^9, 3.4982417375148883`*^9}, {3.4988898120363007`*^9, 2949 3.4988898148264604`*^9}, {3.5156991993584065`*^9, 2950 3.5156992031484118`*^9}, {3.515701568001723*^9, 3.515701588171751*^9}, 2951 3.5157017257519436`*^9, 3.515702694475301*^9, 3.515702897155585*^9, { 2952 3.515703094495861*^9, 3.5157030969858646`*^9}}, 2953 Background->GrayLevel[0.85]], 2954 2955Cell[BoxData[ 2956 RowBox[{ 2957 RowBox[{"Int", "[", 2958 RowBox[{ 2959 RowBox[{ 2960 RowBox[{"(", 2961 RowBox[{"a_", "+", 2962 RowBox[{"b_.", "*", 2963 RowBox[{ 2964 RowBox[{"Cos", "[", 2965 RowBox[{"c_.", "+", 2966 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 2967 "n_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 2968 RowBox[{ 2969 RowBox[{"Dist", "[", 2970 RowBox[{ 2971 RowBox[{"1", "/", 2972 RowBox[{"2", "^", "n"}]}], ",", 2973 RowBox[{"Int", "[", 2974 RowBox[{ 2975 RowBox[{ 2976 RowBox[{"(", 2977 RowBox[{ 2978 RowBox[{"2", "*", "a"}], "+", "b", "+", 2979 RowBox[{"b", "*", 2980 RowBox[{"Cos", "[", 2981 RowBox[{ 2982 RowBox[{"2", "*", "c"}], "+", 2983 RowBox[{"2", "*", "d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 2984 "n"}], ",", "x"}], "]"}]}], "]"}], " ", "/;", "\n", 2985 RowBox[{ 2986 RowBox[{"FreeQ", "[", 2987 RowBox[{ 2988 RowBox[{"{", 2989 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 2990 " ", "&&", " ", 2991 RowBox[{"NonzeroQ", "[", 2992 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 2993 RowBox[{"RationalQ", "[", "n", "]"}], " ", "&&", " ", 2994 RowBox[{"n", "\[NotEqual]", 2995 RowBox[{"-", "1"}]}]}]}]}]], "Code", 2996 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 2997 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 2998 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 2999 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 3000 3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.497676050505898*^9, 3001 3.4976765187576804`*^9, {3.497676670817378*^9, 3.4976766725164747`*^9}, { 3002 3.4979216146829824`*^9, 3.4979216448690357`*^9}, 3.4979823318357525`*^9, { 3003 3.497982405249481*^9, 3.4979824071682844`*^9}, {3.4982417232448683`*^9, 3004 3.4982417291148767`*^9}, {3.4991156324239902`*^9, 3.499115634963994*^9}, 3005 3.51569920901842*^9, 3.5157015949717607`*^9, 3.5157017271219454`*^9, 3006 3.515702695965303*^9, 3.515702898895587*^9, 3.515703103645874*^9}, 3007 Background->GrayLevel[0.85]], 3008 3009Cell["", "Subsubsection", 3010 CellDingbat->None, 3011 CellChangeTimes->{3.4796643211106243`*^9}], 3012 3013Cell["Derivation: Algebraic simplification", "Subsubsection", 3014 CellChangeTimes->{ 3015 3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 3016 3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 3017 3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 3018 3.497639496888481*^9, 3.497676151127653*^9}], 3019 3020Cell[TextData[{ 3021 "Basis: ", 3022 Cell[BoxData[ 3023 RowBox[{ 3024 SuperscriptBox[ 3025 RowBox[{"Sin", "[", "z", "]"}], "2"], "=", 3026 RowBox[{ 3027 FractionBox["1", "2"], " ", 3028 RowBox[{"(", 3029 RowBox[{"1", "-", 3030 RowBox[{"Cos", "[", 3031 RowBox[{"2", " ", "z"}], "]"}]}], ")"}]}]}]]] 3032}], "Subsubsection", 3033 CellChangeTimes->{ 3034 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3035 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 3036 3.497577829892153*^9}, {3.497582725161008*^9, 3.497582728721012*^9}, 3037 3.497582802891116*^9, 3.497676213204204*^9}], 3038 3039Cell["\<\ 3040Note: This rule should be replaced with rules that directly reduce the \ 3041integrand rather than transforming it using trig power expansion!\ 3042\>", "Subsubsection", 3043 CellChangeTimes->{ 3044 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3045 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 3046 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 3047 3.497639710530856*^9, 3.4976397495153246`*^9, 3.497676524239994*^9, { 3048 3.5157017406219645`*^9, 3.515702053622402*^9}}], 3049 3050Cell[TextData[{ 3051 "Rule: If ", 3052 Cell[BoxData[ 3053 RowBox[{ 3054 RowBox[{ 3055 RowBox[{"a", "+", "b"}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 3056 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 3057 RowBox[{"m", ">", "0"}]}]]], 3058 ", then" 3059}], "Subsubsection", 3060 CellDingbat->"\[FilledSmallSquare]", 3061 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3062 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3063 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3064 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3065 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3066 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3067 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3068 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 3069 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 3070 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 3071 3.4976397903561964`*^9, {3.4976762514733925`*^9, 3.497676285304328*^9}, { 3072 3.4991161788247557`*^9, 3.4991161846547637`*^9}}], 3073 3074Cell[BoxData[ 3075 RowBox[{"\[Integral]", 3076 RowBox[{ 3077 SuperscriptBox["x", "m"], 3078 SuperscriptBox[ 3079 RowBox[{"(", 3080 RowBox[{"a", "+", 3081 RowBox[{"b", " ", 3082 SuperscriptBox[ 3083 RowBox[{"Sin", "[", 3084 RowBox[{"c", "+", 3085 RowBox[{"d", " ", "x"}]}], "]"}], "2"]}]}], ")"}], "n"], 3086 RowBox[{"\[DifferentialD]", 3087 RowBox[{"x", " ", "\[LongRightArrow]", " ", 3088 FractionBox["1", 3089 SuperscriptBox["2", "n"]]}]}], 3090 RowBox[{"\[Integral]", 3091 RowBox[{ 3092 SuperscriptBox["x", "m"], 3093 SuperscriptBox[ 3094 RowBox[{"(", 3095 RowBox[{ 3096 RowBox[{"2", " ", "a"}], "+", "b", "-", 3097 RowBox[{"b", " ", 3098 RowBox[{"Cos", "[", 3099 RowBox[{ 3100 RowBox[{"2", " ", "c"}], "+", 3101 RowBox[{"2", " ", "d", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 3102 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 3103 CellDingbat->None, 3104 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 3105 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 3106 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 3107 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 3108 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 3109 3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, { 3110 3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 3111 3.4976395477133703`*^9}, 3.4976760887800875`*^9, 3.49767613463171*^9, { 3112 3.5157037495887794`*^9, 3.515703793948841*^9}}, 3113 TextAlignment->Center, 3114 FontSize->12, 3115 FontWeight->"Bold"], 3116 3117Cell["Program code:", "Subsubsection", 3118 CellDingbat->"\[FilledSmallSquare]", 3119 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3120 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3121 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3122 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3123 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3124 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3125 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3126 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 3127 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 3128 3.492805165713872*^9}}], 3129 3130Cell[BoxData[ 3131 RowBox[{ 3132 RowBox[{"Int", "[", 3133 RowBox[{ 3134 RowBox[{ 3135 RowBox[{"x_", "^", "m_."}], "*", 3136 RowBox[{ 3137 RowBox[{"(", 3138 RowBox[{"a_", "+", 3139 RowBox[{"b_.", "*", 3140 RowBox[{ 3141 RowBox[{"Sin", "[", 3142 RowBox[{"c_.", "+", 3143 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 3144 "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 3145 RowBox[{ 3146 RowBox[{"Dist", "[", 3147 RowBox[{ 3148 RowBox[{"1", "/", 3149 RowBox[{"2", "^", "n"}]}], ",", 3150 RowBox[{"Int", "[", 3151 RowBox[{ 3152 RowBox[{ 3153 RowBox[{"x", "^", "m"}], "*", 3154 RowBox[{ 3155 RowBox[{"(", 3156 RowBox[{ 3157 RowBox[{"2", "*", "a"}], "+", "b", "-", 3158 RowBox[{"b", "*", 3159 RowBox[{"Cos", "[", 3160 RowBox[{ 3161 RowBox[{"2", "*", "c"}], "+", 3162 RowBox[{"2", "*", "d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 3163 "n"}]}], ",", "x"}], "]"}]}], "]"}], " ", "/;", "\n", 3164 RowBox[{ 3165 RowBox[{"FreeQ", "[", 3166 RowBox[{ 3167 RowBox[{"{", 3168 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 3169 " ", "&&", " ", 3170 RowBox[{"NonzeroQ", "[", 3171 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 3172 RowBox[{"IntegersQ", "[", 3173 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 3174 RowBox[{"(", 3175 RowBox[{ 3176 RowBox[{ 3177 RowBox[{"m", ">", "0"}], " ", "&&", " ", 3178 RowBox[{"n", "\[Equal]", 3179 RowBox[{"-", "1"}]}]}], " ", "||", " ", 3180 RowBox[{ 3181 RowBox[{"m", "\[Equal]", "1"}], " ", "&&", " ", 3182 RowBox[{"n", "\[Equal]", 3183 RowBox[{"-", "2"}]}]}]}], ")"}]}]}]}]], "Code", 3184 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 3185 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 3186 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 3187 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976760612205105`*^9, { 3188 3.4991161724447465`*^9, 3.4991161752347507`*^9}, {3.5157038171888742`*^9, 3189 3.5157038202888784`*^9}, {3.5157039231390224`*^9, 3190 3.5157039613090754`*^9}, {3.5157043179195747`*^9, 3191 3.5157043225595818`*^9}, {3.515704932430435*^9, 3.5157049740604935`*^9}, 3192 3.5171906797970753`*^9}, 3193 Background->GrayLevel[0.85]], 3194 3195Cell[BoxData[ 3196 RowBox[{ 3197 RowBox[{"Int", "[", 3198 RowBox[{ 3199 RowBox[{ 3200 RowBox[{"x_", "^", "m_."}], "*", 3201 RowBox[{ 3202 RowBox[{"(", 3203 RowBox[{"a_", "+", 3204 RowBox[{"b_.", "*", 3205 RowBox[{ 3206 RowBox[{"Cos", "[", 3207 RowBox[{"c_.", "+", 3208 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}]}]}], ")"}], "^", 3209 "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 3210 RowBox[{ 3211 RowBox[{"Dist", "[", 3212 RowBox[{ 3213 RowBox[{"1", "/", 3214 RowBox[{"2", "^", "n"}]}], ",", 3215 RowBox[{"Int", "[", 3216 RowBox[{ 3217 RowBox[{ 3218 RowBox[{"x", "^", "m"}], "*", 3219 RowBox[{ 3220 RowBox[{"(", 3221 RowBox[{ 3222 RowBox[{"2", "*", "a"}], "+", "b", "+", 3223 RowBox[{"b", "*", 3224 RowBox[{"Cos", "[", 3225 RowBox[{ 3226 RowBox[{"2", "*", "c"}], "+", 3227 RowBox[{"2", "*", "d", "*", "x"}]}], "]"}]}]}], ")"}], "^", 3228 "n"}]}], ",", "x"}], "]"}]}], "]"}], " ", "/;", "\n", 3229 RowBox[{ 3230 RowBox[{"FreeQ", "[", 3231 RowBox[{ 3232 RowBox[{"{", 3233 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 3234 " ", "&&", " ", 3235 RowBox[{"NonzeroQ", "[", 3236 RowBox[{"a", "+", "b"}], "]"}], " ", "&&", " ", 3237 RowBox[{"IntegersQ", "[", 3238 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 3239 RowBox[{"(", 3240 RowBox[{ 3241 RowBox[{ 3242 RowBox[{"m", ">", "0"}], " ", "&&", " ", 3243 RowBox[{"n", "\[Equal]", 3244 RowBox[{"-", "1"}]}]}], " ", "||", " ", 3245 RowBox[{ 3246 RowBox[{"m", "\[Equal]", "1"}], " ", "&&", " ", 3247 RowBox[{"n", "\[Equal]", 3248 RowBox[{"-", "2"}]}]}]}], ")"}]}]}]}]], "Code", 3249 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 3250 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 3251 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 3252 3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976760612205105`*^9, { 3253 3.4979216146673827`*^9, 3.4979216448690357`*^9}, 3.497982323006137*^9, { 3254 3.497982386981849*^9, 3.497982393877061*^9}, {3.499116123264678*^9, 3255 3.4991161253346806`*^9}, {3.5157038432289104`*^9, 3.515703845608914*^9}, { 3256 3.51570392863903*^9, 3.5157039586090717`*^9}, {3.515704333809597*^9, 3257 3.5157043374196024`*^9}, 3.515704986320511*^9, 3.5171906797970753`*^9}, 3258 Background->GrayLevel[0.85]], 3259 3260Cell["", "PageBreak", 3261 PageBreakBelow->True] 3262}, Closed]], 3263 3264Cell[CellGroupData[{ 3265 3266Cell[BoxData[ 3267 RowBox[{"\[Integral]", 3268 RowBox[{ 3269 RowBox[{"Sin", "[", 3270 RowBox[{"a", "+", 3271 RowBox[{"b", " ", 3272 SuperscriptBox["x", "n"]}]}], "]"}], 3273 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 3274 CellDingbat->None, 3275 CellChangeTimes->{ 3276 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 3277 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 3278 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 3279 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 3280 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 3281 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 3282 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 3283 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 3284 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 3285 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 3286 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}}, 3287 TextAlignment->Center, 3288 FontSize->20, 3289 FontWeight->"Bold"], 3290 3291Cell["Derivation: Primitive rule", "Subsubsection", 3292 CellChangeTimes->{ 3293 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3294 3.496528894323882*^9, 3.497575979956957*^9}], 3295 3296Cell[TextData[{ 3297 "Basis: ", 3298 Cell[BoxData[ 3299 RowBox[{ 3300 RowBox[{ 3301 SuperscriptBox["FresnelS", "\[Prime]", 3302 MultilineFunction->None], "[", "z", "]"}], "=", 3303 RowBox[{"Sin", "[", 3304 FractionBox[ 3305 RowBox[{"\[Pi]", " ", 3306 SuperscriptBox["z", "2"]}], "2"], "]"}]}]]] 3307}], "Subsubsection", 3308 CellChangeTimes->{ 3309 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3310 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 3311 3.497809962345409*^9}], 3312 3313Cell["Rule:", "Subsubsection", 3314 CellDingbat->"\[FilledSmallSquare]", 3315 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3316 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3317 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3318 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3319 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3320 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3321 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3322 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 3323 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 3324 3.496528833243797*^9}], 3325 3326Cell[BoxData[ 3327 RowBox[{"\[Integral]", 3328 RowBox[{ 3329 RowBox[{"Sin", "[", 3330 RowBox[{"b", " ", 3331 SuperscriptBox["x", "2"]}], "]"}], 3332 RowBox[{"\[DifferentialD]", 3333 RowBox[{"x", " ", "\[LongRightArrow]", " ", 3334 FractionBox[ 3335 SqrtBox[ 3336 FractionBox["\[Pi]", "2"]], 3337 SqrtBox["b"]]}]}], 3338 RowBox[{"FresnelS", "[", 3339 FractionBox[ 3340 RowBox[{ 3341 SqrtBox["b"], " ", "x"}], 3342 SqrtBox[ 3343 FractionBox["\[Pi]", "2"]]], "]"}]}]}]], "Subsubtitle", 3344 CellDingbat->None, 3345 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 3346 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 3347 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 3348 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 3349 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 3350 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 3351 3.497810026705499*^9}}, 3352 TextAlignment->Center, 3353 FontSize->12, 3354 FontWeight->"Bold"], 3355 3356Cell["Program code:", "Subsubsection", 3357 CellDingbat->"\[FilledSmallSquare]", 3358 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3359 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3360 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3361 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3362 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3363 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3364 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3365 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 3366 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 3367 3.492805165713872*^9}}], 3368 3369Cell[BoxData[ 3370 RowBox[{ 3371 RowBox[{"Int", "[", 3372 RowBox[{ 3373 RowBox[{"Sin", "[", 3374 RowBox[{"b_.", "*", 3375 RowBox[{"x_", "^", "2"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3376 "\n", " ", 3377 RowBox[{ 3378 RowBox[{ 3379 RowBox[{"Sqrt", "[", 3380 RowBox[{"Pi", "/", "2"}], "]"}], "*", 3381 RowBox[{ 3382 RowBox[{"FresnelS", "[", 3383 RowBox[{ 3384 RowBox[{"Rt", "[", 3385 RowBox[{"b", ",", "2"}], "]"}], "*", 3386 RowBox[{"x", "/", 3387 RowBox[{"Sqrt", "[", 3388 RowBox[{"Pi", "/", "2"}], "]"}]}]}], "]"}], "/", 3389 RowBox[{"Rt", "[", 3390 RowBox[{"b", ",", "2"}], "]"}]}]}], " ", "/;", "\n", 3391 RowBox[{"FreeQ", "[", 3392 RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code", 3393 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 3394 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 3395 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9}, 3396 Background->GrayLevel[0.85]], 3397 3398Cell[BoxData[ 3399 RowBox[{ 3400 RowBox[{"Int", "[", 3401 RowBox[{ 3402 RowBox[{"Cos", "[", 3403 RowBox[{"b_.", "*", 3404 RowBox[{"x_", "^", "2"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3405 "\n", " ", 3406 RowBox[{ 3407 RowBox[{ 3408 RowBox[{"Sqrt", "[", 3409 RowBox[{"Pi", "/", "2"}], "]"}], "*", 3410 RowBox[{ 3411 RowBox[{"FresnelC", "[", 3412 RowBox[{ 3413 RowBox[{"Rt", "[", 3414 RowBox[{"b", ",", "2"}], "]"}], "*", 3415 RowBox[{"x", "/", 3416 RowBox[{"Sqrt", "[", 3417 RowBox[{"Pi", "/", "2"}], "]"}]}]}], "]"}], "/", 3418 RowBox[{"Rt", "[", 3419 RowBox[{"b", ",", "2"}], "]"}]}]}], " ", "/;", "\n", 3420 RowBox[{"FreeQ", "[", 3421 RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code", 3422 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 3423 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 3424 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 3425 3.4979216300646095`*^9, 3.497982495152439*^9}, 3426 Background->GrayLevel[0.85]], 3427 3428Cell["", "Subsubsection", 3429 CellDingbat->None, 3430 CellChangeTimes->{3.4796643211106243`*^9}], 3431 3432Cell["Derivation: Algebraic expansion", "Subsubsection", 3433 CellChangeTimes->{ 3434 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3435 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}], 3436 3437Cell[TextData[{ 3438 "Basis: ", 3439 Cell[BoxData[ 3440 RowBox[{ 3441 RowBox[{"Sin", "[", 3442 RowBox[{"w", "+", "z"}], "]"}], "=", 3443 RowBox[{ 3444 RowBox[{ 3445 RowBox[{"Sin", "[", "w", "]"}], " ", 3446 RowBox[{"Cos", "[", "z", "]"}]}], "+", 3447 RowBox[{ 3448 RowBox[{"Cos", "[", "w", "]"}], " ", 3449 RowBox[{"Sin", "[", "z", "]"}]}]}]}]]] 3450}], "Subsubsection", 3451 CellChangeTimes->{ 3452 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3453 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 3454 3.497809962345409*^9, 3.4978100933655925`*^9}], 3455 3456Cell["Rule:", "Subsubsection", 3457 CellDingbat->"\[FilledSmallSquare]", 3458 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3459 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3460 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3461 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3462 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3463 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3464 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3465 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 3466 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 3467 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9}], 3468 3469Cell[BoxData[ 3470 RowBox[{ 3471 RowBox[{"\[Integral]", 3472 RowBox[{ 3473 RowBox[{"Sin", "[", 3474 RowBox[{"a", "+", 3475 RowBox[{"b", " ", 3476 SuperscriptBox["x", "2"]}]}], "]"}], 3477 RowBox[{"\[DifferentialD]", 3478 RowBox[{"x", " ", "\[LongRightArrow]", " ", 3479 RowBox[{"Sin", "[", "a", "]"}]}]}], 3480 RowBox[{"\[Integral]", 3481 RowBox[{ 3482 RowBox[{"Cos", "[", 3483 RowBox[{"b", " ", 3484 SuperscriptBox["x", "2"]}], "]"}], 3485 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 3486 RowBox[{ 3487 RowBox[{"Cos", "[", "a", "]"}], 3488 RowBox[{"\[Integral]", 3489 RowBox[{ 3490 RowBox[{"Sin", "[", 3491 RowBox[{"b", " ", 3492 SuperscriptBox["x", "2"]}], "]"}], 3493 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 3494 CellDingbat->None, 3495 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 3496 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 3497 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 3498 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 3499 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 3500 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 3501 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 3502 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 3503 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 3504 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 3505 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 3506 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 3507 3.4978101470356674`*^9}}, 3508 TextAlignment->Center, 3509 FontSize->12, 3510 FontWeight->"Bold"], 3511 3512Cell["Program code:", "Subsubsection", 3513 CellDingbat->"\[FilledSmallSquare]", 3514 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3515 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3516 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3517 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3518 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3519 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3520 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3521 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 3522 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 3523 3.492805165713872*^9}}], 3524 3525Cell[BoxData[ 3526 RowBox[{ 3527 RowBox[{"Int", "[", 3528 RowBox[{ 3529 RowBox[{"Sin", "[", 3530 RowBox[{"a_", "+", 3531 RowBox[{"b_.", "*", 3532 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3533 "\n", " ", 3534 RowBox[{ 3535 RowBox[{ 3536 RowBox[{"Dist", "[", 3537 RowBox[{ 3538 RowBox[{"Sin", "[", "a", "]"}], ",", 3539 RowBox[{"Int", "[", 3540 RowBox[{ 3541 RowBox[{"Cos", "[", 3542 RowBox[{"b", "*", 3543 RowBox[{"x", "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], "]"}], " ", 3544 "+", " ", "\n", " ", 3545 RowBox[{"Dist", "[", 3546 RowBox[{ 3547 RowBox[{"Cos", "[", "a", "]"}], ",", 3548 RowBox[{"Int", "[", 3549 RowBox[{ 3550 RowBox[{"Sin", "[", 3551 RowBox[{"b", "*", 3552 RowBox[{"x", "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], "]"}]}], " ", 3553 "/;", "\n", 3554 RowBox[{"FreeQ", "[", 3555 RowBox[{ 3556 RowBox[{"{", 3557 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 3558 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 3559 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 3560 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 3561 3.4978099270853596`*^9, 3.497810062495549*^9}, 3562 Background->GrayLevel[0.85]], 3563 3564Cell[BoxData[ 3565 RowBox[{ 3566 RowBox[{"Int", "[", 3567 RowBox[{ 3568 RowBox[{"Cos", "[", 3569 RowBox[{"a_", "+", 3570 RowBox[{"b_.", "*", 3571 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3572 "\n", " ", 3573 RowBox[{ 3574 RowBox[{ 3575 RowBox[{"Dist", "[", 3576 RowBox[{ 3577 RowBox[{"Cos", "[", "a", "]"}], ",", 3578 RowBox[{"Int", "[", 3579 RowBox[{ 3580 RowBox[{"Cos", "[", 3581 RowBox[{"b", "*", 3582 RowBox[{"x", "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], "]"}], " ", 3583 "-", " ", "\n", " ", 3584 RowBox[{"Dist", "[", 3585 RowBox[{ 3586 RowBox[{"Sin", "[", "a", "]"}], ",", 3587 RowBox[{"Int", "[", 3588 RowBox[{ 3589 RowBox[{"Sin", "[", 3590 RowBox[{"b", "*", 3591 RowBox[{"x", "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], "]"}]}], " ", 3592 "/;", "\n", 3593 RowBox[{"FreeQ", "[", 3594 RowBox[{ 3595 RowBox[{"{", 3596 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 3597 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 3598 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 3599 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 3600 3.4978099270853596`*^9, 3.497810062495549*^9, {3.4979216146829824`*^9, 3601 3.497921644884636*^9}, 3.4979825028744526`*^9}, 3602 Background->GrayLevel[0.85]], 3603 3604Cell["", "Subsubsection", 3605 CellDingbat->None, 3606 CellChangeTimes->{3.4796643211106243`*^9}], 3607 3608Cell["Derivation: Algebraic expansion", "Subsubsection", 3609 CellChangeTimes->{ 3610 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3611 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}], 3612 3613Cell[TextData[{ 3614 "Basis: ", 3615 Cell[BoxData[ 3616 RowBox[{ 3617 RowBox[{"Sin", "[", "z", "]"}], "=", 3618 RowBox[{ 3619 RowBox[{ 3620 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 3621 SuperscriptBox["\[ExponentialE]", 3622 RowBox[{ 3623 RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "-", 3624 RowBox[{ 3625 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 3626 SuperscriptBox["\[ExponentialE]", 3627 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]] 3628}], "Subsubsection", 3629 CellChangeTimes->{ 3630 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3631 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 3632 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9}], 3633 3634Cell[TextData[{ 3635 "Rule: If ", 3636 Cell[BoxData[ 3637 RowBox[{"\[Not]", 3638 RowBox[{"(", 3639 RowBox[{ 3640 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}], " ", "\[Or]", 3641 " ", 3642 RowBox[{"n", "<", "0"}]}], ")"}]}]]], 3643 ", then" 3644}], "Subsubsection", 3645 CellDingbat->"\[FilledSmallSquare]", 3646 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3647 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3648 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3649 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3650 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3651 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3652 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3653 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 3654 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 3655 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 3656 3.4978102518358145`*^9, 3.4978103941360135`*^9}}], 3657 3658Cell[BoxData[ 3659 RowBox[{ 3660 RowBox[{"\[Integral]", 3661 RowBox[{ 3662 RowBox[{"Sin", "[", 3663 RowBox[{"a", "+", 3664 RowBox[{"b", " ", 3665 SuperscriptBox["x", "n"]}]}], "]"}], 3666 RowBox[{"\[DifferentialD]", 3667 RowBox[{"x", " ", "\[LongRightArrow]", " ", 3668 FractionBox["\[ImaginaryI]", "2"]}]}], 3669 RowBox[{"\[Integral]", 3670 RowBox[{ 3671 SuperscriptBox["\[ExponentialE]", 3672 RowBox[{ 3673 RowBox[{ 3674 RowBox[{"-", "a"}], " ", "\[ImaginaryI]"}], "-", 3675 RowBox[{"b", " ", "\[ImaginaryI]", " ", 3676 SuperscriptBox["x", "n"]}]}]], 3677 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 3678 RowBox[{ 3679 FractionBox["\[ImaginaryI]", "2"], 3680 RowBox[{"\[Integral]", 3681 RowBox[{ 3682 SuperscriptBox["\[ExponentialE]", 3683 RowBox[{ 3684 RowBox[{"a", " ", "\[ImaginaryI]"}], "+", 3685 RowBox[{"b", " ", "\[ImaginaryI]", " ", 3686 SuperscriptBox["x", "n"]}]}]], 3687 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 3688 CellDingbat->None, 3689 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 3690 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 3691 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 3692 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 3693 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 3694 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 3695 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 3696 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 3697 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 3698 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 3699 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 3700 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 3701 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}}, 3702 TextAlignment->Center, 3703 FontSize->12, 3704 FontWeight->"Bold"], 3705 3706Cell["Program code:", "Subsubsection", 3707 CellDingbat->"\[FilledSmallSquare]", 3708 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3709 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3710 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3711 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3712 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3713 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3714 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3715 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 3716 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 3717 3.492805165713872*^9}}], 3718 3719Cell[BoxData[ 3720 RowBox[{ 3721 RowBox[{"Int", "[", 3722 RowBox[{ 3723 RowBox[{"Sin", "[", 3724 RowBox[{"a_.", "+", 3725 RowBox[{"b_.", "*", 3726 RowBox[{"x_", "^", "n_"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3727 "\n", " ", 3728 RowBox[{ 3729 RowBox[{ 3730 RowBox[{"Dist", "[", 3731 RowBox[{ 3732 RowBox[{"I", "/", "2"}], ",", 3733 RowBox[{"Int", "[", 3734 RowBox[{ 3735 RowBox[{"E", "^", 3736 RowBox[{"(", 3737 RowBox[{ 3738 RowBox[{ 3739 RowBox[{"-", "a"}], "*", "I"}], "-", 3740 RowBox[{"b", "*", "I", "*", 3741 RowBox[{"x", "^", "n"}]}]}], ")"}]}], ",", "x"}], "]"}]}], "]"}], 3742 " ", "-", " ", "\n", " ", 3743 RowBox[{"Dist", "[", 3744 RowBox[{ 3745 RowBox[{"I", "/", "2"}], ",", 3746 RowBox[{"Int", "[", 3747 RowBox[{ 3748 RowBox[{"E", "^", 3749 RowBox[{"(", 3750 RowBox[{ 3751 RowBox[{"a", "*", "I"}], "+", 3752 RowBox[{"b", "*", "I", "*", 3753 RowBox[{"x", "^", "n"}]}]}], ")"}]}], ",", "x"}], "]"}]}], 3754 "]"}]}], " ", "/;", "\n", 3755 RowBox[{ 3756 RowBox[{"FreeQ", "[", 3757 RowBox[{ 3758 RowBox[{"{", 3759 RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", 3760 " ", 3761 RowBox[{"Not", "[", 3762 RowBox[{"FractionOrNegativeQ", "[", "n", "]"}], "]"}]}]}]}]], "Code", 3763 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 3764 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 3765 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 3766 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9}, 3767 Background->GrayLevel[0.85]], 3768 3769Cell[TextData[{ 3770 "Basis: ", 3771 Cell[BoxData[ 3772 RowBox[{ 3773 RowBox[{"Cos", "[", "z", "]"}], "=", 3774 RowBox[{ 3775 RowBox[{ 3776 FractionBox["1", "2"], 3777 SuperscriptBox["\[ExponentialE]", 3778 RowBox[{ 3779 RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "+", 3780 RowBox[{ 3781 FractionBox["1", "2"], 3782 SuperscriptBox["\[ExponentialE]", 3783 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]] 3784}], "Subsubsection", 3785 CellChangeTimes->{ 3786 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3787 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 3788 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, { 3789 3.4979216300802097`*^9, 3.4979216300802097`*^9}, {3.4979826071450357`*^9, 3790 3.4979826365198874`*^9}}], 3791 3792Cell[BoxData[ 3793 RowBox[{ 3794 RowBox[{"Int", "[", 3795 RowBox[{ 3796 RowBox[{"Cos", "[", 3797 RowBox[{"a_.", "+", 3798 RowBox[{"b_.", "*", 3799 RowBox[{"x_", "^", "n_"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3800 "\n", " ", 3801 RowBox[{ 3802 RowBox[{ 3803 RowBox[{"Dist", "[", 3804 RowBox[{ 3805 RowBox[{"1", "/", "2"}], ",", 3806 RowBox[{"Int", "[", 3807 RowBox[{ 3808 RowBox[{"E", "^", 3809 RowBox[{"(", 3810 RowBox[{ 3811 RowBox[{ 3812 RowBox[{"-", "a"}], "*", "I"}], "-", 3813 RowBox[{"b", "*", "I", "*", 3814 RowBox[{"x", "^", "n"}]}]}], ")"}]}], ",", "x"}], "]"}]}], "]"}], 3815 " ", "+", " ", "\n", " ", 3816 RowBox[{"Dist", "[", 3817 RowBox[{ 3818 RowBox[{"1", "/", "2"}], ",", 3819 RowBox[{"Int", "[", 3820 RowBox[{ 3821 RowBox[{"E", "^", 3822 RowBox[{"(", 3823 RowBox[{ 3824 RowBox[{"a", "*", "I"}], "+", 3825 RowBox[{"b", "*", "I", "*", 3826 RowBox[{"x", "^", "n"}]}]}], ")"}]}], ",", "x"}], "]"}]}], 3827 "]"}]}], " ", "/;", "\n", 3828 RowBox[{ 3829 RowBox[{"FreeQ", "[", 3830 RowBox[{ 3831 RowBox[{"{", 3832 RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", 3833 " ", 3834 RowBox[{"Not", "[", 3835 RowBox[{"FractionOrNegativeQ", "[", "n", "]"}], "]"}]}]}]}]], "Code", 3836 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 3837 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 3838 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 3839 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 3840 3.49792163009581*^9, 3.4979825117976685`*^9}, 3841 Background->GrayLevel[0.85]], 3842 3843Cell["", "Subsubsection", 3844 CellDingbat->None, 3845 CellChangeTimes->{3.4796643211106243`*^9}], 3846 3847Cell["Derivation: Integration by parts", "Subsubsection", 3848 CellChangeTimes->{ 3849 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3850 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 3851 3.497810452426095*^9}], 3852 3853Cell["\<\ 3854Note: Although resulting integrand looks more complicated than the original, \ 3855rules for improper binomials rectify it.\ 3856\>", "Subsubsection", 3857 CellChangeTimes->{ 3858 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 3859 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 3860 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, { 3861 3.497810459466105*^9, 3.497810511846178*^9}}], 3862 3863Cell[TextData[{ 3864 "Rule: If ", 3865 Cell[BoxData[ 3866 RowBox[{ 3867 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[Or]", " ", 3868 RowBox[{"n", "<", "0"}]}]]], 3869 ", then" 3870}], "Subsubsection", 3871 CellDingbat->"\[FilledSmallSquare]", 3872 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3873 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3874 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3875 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3876 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3877 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3878 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3879 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 3880 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 3881 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 3882 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978105556962395`*^9, 3883 3.4978105670162554`*^9}}], 3884 3885Cell[BoxData[ 3886 RowBox[{ 3887 RowBox[{"\[Integral]", 3888 RowBox[{ 3889 RowBox[{"Sin", "[", 3890 RowBox[{"a", "+", 3891 RowBox[{"b", " ", 3892 SuperscriptBox["x", "n"]}]}], "]"}], 3893 RowBox[{"\[DifferentialD]", 3894 RowBox[{"x", " ", "\[LongRightArrow]", " ", "x"}]}], " ", 3895 RowBox[{"Sin", "[", 3896 RowBox[{"a", "+", 3897 RowBox[{"b", " ", 3898 SuperscriptBox["x", "n"]}]}], "]"}]}]}], "-", 3899 RowBox[{"b", " ", "n", 3900 RowBox[{"\[Integral]", 3901 RowBox[{ 3902 SuperscriptBox["x", "n"], " ", 3903 RowBox[{"Cos", "[", 3904 RowBox[{"a", "+", 3905 RowBox[{"b", " ", 3906 SuperscriptBox["x", "n"]}]}], "]"}], 3907 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 3908 CellDingbat->None, 3909 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 3910 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 3911 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 3912 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 3913 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 3914 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 3915 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 3916 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 3917 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 3918 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 3919 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 3920 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 3921 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 3922 3.497810535736212*^9}, 3923 TextAlignment->Center, 3924 FontSize->12, 3925 FontWeight->"Bold"], 3926 3927Cell["Program code:", "Subsubsection", 3928 CellDingbat->"\[FilledSmallSquare]", 3929 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 3930 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 3931 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 3932 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 3933 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 3934 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 3935 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 3936 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 3937 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 3938 3.492805165713872*^9}}], 3939 3940Cell[BoxData[ 3941 RowBox[{ 3942 RowBox[{"Int", "[", 3943 RowBox[{ 3944 RowBox[{"Sin", "[", 3945 RowBox[{"a_.", "+", 3946 RowBox[{"b_.", "*", 3947 RowBox[{"x_", "^", "n_"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3948 "\n", " ", 3949 RowBox[{ 3950 RowBox[{ 3951 RowBox[{"x", "*", 3952 RowBox[{"Sin", "[", 3953 RowBox[{"a", "+", 3954 RowBox[{"b", "*", 3955 RowBox[{"x", "^", "n"}]}]}], "]"}]}], " ", "-", "\n", " ", 3956 RowBox[{"Dist", "[", 3957 RowBox[{ 3958 RowBox[{"b", "*", "n"}], ",", 3959 RowBox[{"Int", "[", 3960 RowBox[{ 3961 RowBox[{ 3962 RowBox[{"x", "^", "n"}], "*", 3963 RowBox[{"Cos", "[", 3964 RowBox[{"a", "+", 3965 RowBox[{"b", "*", 3966 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 3967 "]"}]}], " ", "/;", "\n", 3968 RowBox[{ 3969 RowBox[{"FreeQ", "[", 3970 RowBox[{ 3971 RowBox[{"{", 3972 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 3973 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 3974 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 3975 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 3976 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 3977 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 3978 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 3979 3.497810442686082*^9}, 3980 Background->GrayLevel[0.85]], 3981 3982Cell[BoxData[ 3983 RowBox[{ 3984 RowBox[{"Int", "[", 3985 RowBox[{ 3986 RowBox[{"Cos", "[", 3987 RowBox[{"a_.", "+", 3988 RowBox[{"b_.", "*", 3989 RowBox[{"x_", "^", "n_"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 3990 "\n", " ", 3991 RowBox[{ 3992 RowBox[{ 3993 RowBox[{"x", "*", 3994 RowBox[{"Cos", "[", 3995 RowBox[{"a", "+", 3996 RowBox[{"b", "*", 3997 RowBox[{"x", "^", "n"}]}]}], "]"}]}], " ", "+", " ", "\n", " ", 3998 RowBox[{"Dist", "[", 3999 RowBox[{ 4000 RowBox[{"b", "*", "n"}], ",", 4001 RowBox[{"Int", "[", 4002 RowBox[{ 4003 RowBox[{ 4004 RowBox[{"x", "^", "n"}], "*", 4005 RowBox[{"Sin", "[", 4006 RowBox[{"a", "+", 4007 RowBox[{"b", "*", 4008 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 4009 "]"}]}], " ", "/;", "\n", 4010 RowBox[{ 4011 RowBox[{"FreeQ", "[", 4012 RowBox[{ 4013 RowBox[{"{", 4014 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 4015 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 4016 RowBox[{"n", "<", "0"}]}]}]}]], "Code", 4017 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4018 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4019 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4020 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 4021 3.497810442686082*^9, {3.4979216146985826`*^9, 3.497921644884636*^9}, 4022 3.4979825181780796`*^9}, 4023 Background->GrayLevel[0.85]], 4024 4025Cell["", "PageBreak", 4026 PageBreakBelow->True] 4027}, Closed]], 4028 4029Cell[CellGroupData[{ 4030 4031Cell[BoxData[ 4032 RowBox[{"\[Integral]", 4033 RowBox[{ 4034 SuperscriptBox["x", "m"], " ", 4035 RowBox[{"Sin", "[", 4036 RowBox[{"a", "+", 4037 RowBox[{"b", " ", 4038 SuperscriptBox["x", "n"]}]}], "]"}], 4039 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 4040 CellDingbat->None, 4041 CellChangeTimes->{ 4042 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 4043 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 4044 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 4045 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 4046 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 4047 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 4048 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 4049 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 4050 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 4051 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 4052 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 4053 3.49781110611701*^9}, 4054 TextAlignment->Center, 4055 FontSize->20, 4056 FontWeight->"Bold"], 4057 4058Cell["Derivation: Primitive rule", "Subsubsection", 4059 CellChangeTimes->{ 4060 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4061 3.496528894323882*^9, 3.497575979956957*^9}], 4062 4063Cell[TextData[{ 4064 "Basis: ", 4065 Cell[BoxData[ 4066 RowBox[{ 4067 RowBox[{ 4068 SuperscriptBox["SinIntegral", "\[Prime]", 4069 MultilineFunction->None], "[", "z", "]"}], "=", 4070 FractionBox[ 4071 RowBox[{"Sin", "[", "z", "]"}], "z"]}]]] 4072}], "Subsubsection", 4073 CellChangeTimes->{ 4074 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4075 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 4076 3.497809962345409*^9, 3.497811178197111*^9}], 4077 4078Cell["Rule:", "Subsubsection", 4079 CellDingbat->"\[FilledSmallSquare]", 4080 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4081 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4082 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4083 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4084 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4085 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4086 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4087 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 4088 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 4089 3.496528833243797*^9}], 4090 4091Cell[BoxData[ 4092 RowBox[{"\[Integral]", 4093 RowBox[{ 4094 FractionBox[ 4095 RowBox[{"Sin", "[", 4096 RowBox[{"b", " ", 4097 SuperscriptBox["x", "n"]}], "]"}], "x"], 4098 RowBox[{"\[DifferentialD]", 4099 RowBox[{"x", " ", "\[LongRightArrow]", " ", 4100 FractionBox[ 4101 RowBox[{"SinIntegral", "[", 4102 RowBox[{"b", " ", 4103 SuperscriptBox["x", "n"]}], "]"}], "n"]}]}]}]}]], "Subsubtitle", 4104 CellDingbat->None, 4105 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 4106 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 4107 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 4108 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 4109 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 4110 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 4111 3.497810026705499*^9}, {3.497811202387145*^9, 3.497811226367179*^9}, { 4112 3.4978114144974422`*^9, 3.4978114162574444`*^9}}, 4113 TextAlignment->Center, 4114 FontSize->12, 4115 FontWeight->"Bold"], 4116 4117Cell["Program code:", "Subsubsection", 4118 CellDingbat->"\[FilledSmallSquare]", 4119 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4120 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4121 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4122 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4123 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4124 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4125 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4126 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 4127 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 4128 3.492805165713872*^9}}], 4129 4130Cell[BoxData[ 4131 RowBox[{ 4132 RowBox[{"Int", "[", 4133 RowBox[{ 4134 RowBox[{ 4135 RowBox[{"Sin", "[", 4136 RowBox[{"b_.", "*", 4137 RowBox[{"x_", "^", "n_."}]}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 4138 "]"}], " ", ":=", "\n", " ", 4139 RowBox[{ 4140 RowBox[{ 4141 RowBox[{"SinIntegral", "[", 4142 RowBox[{"b", "*", 4143 RowBox[{"x", "^", "n"}]}], "]"}], "/", "n"}], " ", "/;", "\n", 4144 RowBox[{"FreeQ", "[", 4145 RowBox[{ 4146 RowBox[{"{", 4147 RowBox[{"b", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 4148 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 4149 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 4150 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 4151 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}}, 4152 Background->GrayLevel[0.85]], 4153 4154Cell[BoxData[ 4155 RowBox[{ 4156 RowBox[{"Int", "[", 4157 RowBox[{ 4158 RowBox[{ 4159 RowBox[{"Cos", "[", 4160 RowBox[{"b_.", "*", 4161 RowBox[{"x_", "^", "n_."}]}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 4162 "]"}], " ", ":=", "\n", " ", 4163 RowBox[{ 4164 RowBox[{ 4165 RowBox[{"CosIntegral", "[", 4166 RowBox[{"b", "*", 4167 RowBox[{"x", "^", "n"}]}], "]"}], "/", "n"}], " ", "/;", "\n", 4168 RowBox[{"FreeQ", "[", 4169 RowBox[{ 4170 RowBox[{"{", 4171 RowBox[{"b", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 4172 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 4173 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 4174 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 4175 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, { 4176 3.4979216301270094`*^9, 3.4979216301270094`*^9}, 3.4979829847748995`*^9, { 4177 3.497983175906435*^9, 3.497983177825238*^9}}, 4178 Background->GrayLevel[0.85]], 4179 4180Cell["", "Subsubsection", 4181 CellDingbat->None, 4182 CellChangeTimes->{3.4796643211106243`*^9}], 4183 4184Cell["Derivation: Algebraic expansion", "Subsubsection", 4185 CellChangeTimes->{ 4186 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4187 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}], 4188 4189Cell[TextData[{ 4190 "Basis: ", 4191 Cell[BoxData[ 4192 RowBox[{ 4193 RowBox[{"Sin", "[", 4194 RowBox[{"w", "+", "z"}], "]"}], "=", 4195 RowBox[{ 4196 RowBox[{ 4197 RowBox[{"Sin", "[", "w", "]"}], " ", 4198 RowBox[{"Cos", "[", "z", "]"}]}], "+", 4199 RowBox[{ 4200 RowBox[{"Cos", "[", "w", "]"}], " ", 4201 RowBox[{"Sin", "[", "z", "]"}]}]}]}]]] 4202}], "Subsubsection", 4203 CellChangeTimes->{ 4204 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4205 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 4206 3.497809962345409*^9, 3.4978100933655925`*^9}], 4207 4208Cell["Rule:", "Subsubsection", 4209 CellDingbat->"\[FilledSmallSquare]", 4210 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4211 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4212 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4213 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4214 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4215 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4216 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4217 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 4218 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 4219 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9}], 4220 4221Cell[BoxData[ 4222 RowBox[{ 4223 RowBox[{"\[Integral]", 4224 RowBox[{ 4225 FractionBox[ 4226 RowBox[{"Sin", "[", 4227 RowBox[{"a", "+", 4228 RowBox[{"b", " ", 4229 SuperscriptBox["x", "n"]}]}], "]"}], "x"], 4230 RowBox[{"\[DifferentialD]", 4231 RowBox[{"x", " ", "\[LongRightArrow]", " ", 4232 RowBox[{"Sin", "[", "a", "]"}]}]}], 4233 RowBox[{"\[Integral]", 4234 RowBox[{ 4235 FractionBox[ 4236 RowBox[{"Cos", "[", 4237 RowBox[{"b", " ", 4238 SuperscriptBox["x", "n"]}], "]"}], "x"], 4239 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 4240 RowBox[{ 4241 RowBox[{"Cos", "[", "a", "]"}], 4242 RowBox[{"\[Integral]", 4243 RowBox[{ 4244 FractionBox[ 4245 RowBox[{"Sin", "[", 4246 RowBox[{"b", " ", 4247 SuperscriptBox["x", "n"]}], "]"}], "x"], 4248 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 4249 CellDingbat->None, 4250 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 4251 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 4252 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 4253 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 4254 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 4255 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 4256 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 4257 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 4258 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 4259 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 4260 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 4261 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 4262 3.4978101470356674`*^9}, 3.497811321977312*^9, {3.4978113726473837`*^9, 4263 3.4978113760773883`*^9}}, 4264 TextAlignment->Center, 4265 FontSize->12, 4266 FontWeight->"Bold"], 4267 4268Cell["Program code:", "Subsubsection", 4269 CellDingbat->"\[FilledSmallSquare]", 4270 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4271 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4272 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4273 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4274 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4275 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4276 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4277 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 4278 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 4279 3.492805165713872*^9}}], 4280 4281Cell[BoxData[ 4282 RowBox[{ 4283 RowBox[{"Int", "[", 4284 RowBox[{ 4285 RowBox[{ 4286 RowBox[{"Sin", "[", 4287 RowBox[{"a_", "+", 4288 RowBox[{"b_.", "*", 4289 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 4290 "]"}], " ", ":=", "\n", " ", 4291 RowBox[{ 4292 RowBox[{ 4293 RowBox[{"Dist", "[", 4294 RowBox[{ 4295 RowBox[{"Sin", "[", "a", "]"}], ",", 4296 RowBox[{"Int", "[", 4297 RowBox[{ 4298 RowBox[{ 4299 RowBox[{"Cos", "[", 4300 RowBox[{"b", "*", 4301 RowBox[{"x", "^", "n"}]}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], 4302 "]"}], " ", "+", " ", "\n", " ", 4303 RowBox[{"Dist", "[", 4304 RowBox[{ 4305 RowBox[{"Cos", "[", "a", "]"}], ",", 4306 RowBox[{"Int", "[", 4307 RowBox[{ 4308 RowBox[{ 4309 RowBox[{"Sin", "[", 4310 RowBox[{"b", "*", 4311 RowBox[{"x", "^", "n"}]}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], 4312 "]"}]}], " ", "/;", "\n", 4313 RowBox[{"FreeQ", "[", 4314 RowBox[{ 4315 RowBox[{"{", 4316 RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 4317 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4318 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4319 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4320 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 4321 3.4978112789772525`*^9}, 4322 Background->GrayLevel[0.85]], 4323 4324Cell[BoxData[ 4325 RowBox[{ 4326 RowBox[{"Int", "[", 4327 RowBox[{ 4328 RowBox[{ 4329 RowBox[{"Cos", "[", 4330 RowBox[{"a_", "+", 4331 RowBox[{"b_.", "*", 4332 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 4333 "]"}], " ", ":=", "\n", " ", 4334 RowBox[{ 4335 RowBox[{ 4336 RowBox[{"Dist", "[", 4337 RowBox[{ 4338 RowBox[{"Cos", "[", "a", "]"}], ",", 4339 RowBox[{"Int", "[", 4340 RowBox[{ 4341 RowBox[{ 4342 RowBox[{"Cos", "[", 4343 RowBox[{"b", "*", 4344 RowBox[{"x", "^", "n"}]}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], 4345 "]"}], " ", "-", " ", "\n", " ", 4346 RowBox[{"Dist", "[", 4347 RowBox[{ 4348 RowBox[{"Sin", "[", "a", "]"}], ",", 4349 RowBox[{"Int", "[", 4350 RowBox[{ 4351 RowBox[{ 4352 RowBox[{"Sin", "[", 4353 RowBox[{"b", "*", 4354 RowBox[{"x", "^", "n"}]}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], 4355 "]"}]}], " ", "/;", "\n", 4356 RowBox[{"FreeQ", "[", 4357 RowBox[{ 4358 RowBox[{"{", 4359 RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code", 4360 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4361 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4362 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4363 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 4364 3.4978112789772525`*^9, {3.4979216146985826`*^9, 3.4979216449002357`*^9}, 4365 3.497982995180117*^9}, 4366 Background->GrayLevel[0.85]], 4367 4368Cell["", "Subsubsection", 4369 CellDingbat->None, 4370 CellChangeTimes->{3.4796643211106243`*^9}], 4371 4372Cell["Reference: CRC 392, A&S 4.3.119", "Subsubsection", 4373 CellChangeTimes->{ 4374 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4375 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4376 3.497811532897608*^9}], 4377 4378Cell["Derivation: Integration by parts", "Subsubsection", 4379 CellChangeTimes->{ 4380 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4381 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4382 3.497810452426095*^9}], 4383 4384Cell[TextData[{ 4385 "Basis: ", 4386 Cell[BoxData[ 4387 RowBox[{ 4388 RowBox[{ 4389 SuperscriptBox["x", "m"], " ", 4390 RowBox[{"Sin", "[", 4391 RowBox[{"a", "+", 4392 RowBox[{"b", " ", 4393 SuperscriptBox["x", "n"]}]}], "]"}]}], "=", 4394 RowBox[{"-", 4395 FractionBox[ 4396 RowBox[{ 4397 SuperscriptBox["x", 4398 RowBox[{"m", "-", "n", "+", "1"}]], " ", 4399 RowBox[{ 4400 SubscriptBox["\[PartialD]", "x"], 4401 RowBox[{"Cos", "[", 4402 RowBox[{"a", "+", 4403 RowBox[{"b", " ", 4404 SuperscriptBox["x", "n"]}]}], "]"}]}]}], 4405 RowBox[{"b", " ", "n"}]]}]}]]] 4406}], "Subsubsection", 4407 CellChangeTimes->{ 4408 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4409 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 4410 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 4411 3.497811560037646*^9, 3.497811810187996*^9}], 4412 4413Cell[TextData[{ 4414 "Rule: If ", 4415 Cell[BoxData[ 4416 RowBox[{ 4417 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 4418 RowBox[{"0", "<", "n", "\[LessEqual]", "m"}]}]]], 4419 ", then" 4420}], "Subsubsection", 4421 CellDingbat->"\[FilledSmallSquare]", 4422 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4423 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4424 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4425 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4426 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4427 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4428 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4429 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 4430 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 4431 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 4432 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 4433 3.4978119879026484`*^9}}], 4434 4435Cell[BoxData[ 4436 RowBox[{ 4437 RowBox[{"\[Integral]", 4438 RowBox[{ 4439 SuperscriptBox["x", "m"], 4440 RowBox[{"Sin", "[", 4441 RowBox[{"a", "+", 4442 RowBox[{"b", " ", 4443 SuperscriptBox["x", "n"]}]}], "]"}], 4444 RowBox[{"\[DifferentialD]", 4445 RowBox[{"x", " ", "\[LongRightArrow]", " ", 4446 RowBox[{"-", 4447 FractionBox[ 4448 RowBox[{ 4449 SuperscriptBox["x", 4450 RowBox[{"m", "-", "n", "+", "1"}]], " ", 4451 RowBox[{"Cos", "[", 4452 RowBox[{"a", "+", 4453 RowBox[{"b", " ", 4454 SuperscriptBox["x", "n"]}]}], "]"}]}], 4455 RowBox[{"b", " ", "n"}]]}]}]}]}]}], "+", 4456 RowBox[{ 4457 FractionBox[ 4458 RowBox[{"m", "-", "n", "+", "1"}], 4459 RowBox[{"b", " ", "n"}]], 4460 RowBox[{"\[Integral]", 4461 RowBox[{ 4462 SuperscriptBox["x", 4463 RowBox[{"m", "-", "n"}]], " ", 4464 RowBox[{"Cos", "[", 4465 RowBox[{"a", "+", 4466 RowBox[{"b", " ", 4467 SuperscriptBox["x", "n"]}]}], "]"}], 4468 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 4469 CellDingbat->None, 4470 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 4471 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 4472 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 4473 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 4474 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 4475 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 4476 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 4477 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 4478 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 4479 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 4480 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 4481 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 4482 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, { 4483 3.4978114755275273`*^9, 3.4978114885575457`*^9}}, 4484 TextAlignment->Center, 4485 FontSize->12, 4486 FontWeight->"Bold"], 4487 4488Cell["Program code:", "Subsubsection", 4489 CellDingbat->"\[FilledSmallSquare]", 4490 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4491 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4492 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4493 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4494 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4495 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4496 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4497 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 4498 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 4499 3.492805165713872*^9}}], 4500 4501Cell[BoxData[ 4502 RowBox[{ 4503 RowBox[{"Int", "[", 4504 RowBox[{ 4505 RowBox[{ 4506 RowBox[{"x_", "^", "m_."}], "*", 4507 RowBox[{"Sin", "[", 4508 RowBox[{"a_.", "+", 4509 RowBox[{"b_.", "*", 4510 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 4511 " ", ":=", "\n", " ", 4512 RowBox[{ 4513 RowBox[{ 4514 RowBox[{ 4515 RowBox[{"-", 4516 RowBox[{"x", "^", 4517 RowBox[{"(", 4518 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 4519 RowBox[{ 4520 RowBox[{"Cos", "[", 4521 RowBox[{"a", "+", 4522 RowBox[{"b", "*", 4523 RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 4524 RowBox[{"(", 4525 RowBox[{"b", "*", "n"}], ")"}]}]}], " ", "+", "\n", " ", 4526 RowBox[{"Dist", "[", 4527 RowBox[{ 4528 RowBox[{ 4529 RowBox[{"(", 4530 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 4531 RowBox[{"(", 4532 RowBox[{"b", "*", "n"}], ")"}]}], ",", 4533 RowBox[{"Int", "[", 4534 RowBox[{ 4535 RowBox[{ 4536 RowBox[{"x", "^", 4537 RowBox[{"(", 4538 RowBox[{"m", "-", "n"}], ")"}]}], "*", 4539 RowBox[{"Cos", "[", 4540 RowBox[{"a", "+", 4541 RowBox[{"b", "*", 4542 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 4543 "]"}]}], " ", "/;", "\n", 4544 RowBox[{ 4545 RowBox[{"FreeQ", "[", 4546 RowBox[{ 4547 RowBox[{"{", 4548 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 4549 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 4550 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 4551 RowBox[{"0", "<", "n", "<=", "m"}]}]}]}]], "Code", 4552 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4553 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4554 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4555 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 4556 3.497811129647043*^9, 3.497811455437499*^9}, 4557 Background->GrayLevel[0.85]], 4558 4559Cell["Reference: CRC 396, A&S 4.3.123", "Subsubsection", 4560 CellChangeTimes->{ 4561 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4562 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4563 3.497811532897608*^9, 3.4979832743894076`*^9}], 4564 4565Cell[BoxData[ 4566 RowBox[{ 4567 RowBox[{"Int", "[", 4568 RowBox[{ 4569 RowBox[{ 4570 RowBox[{"x_", "^", "m_."}], "*", 4571 RowBox[{"Cos", "[", 4572 RowBox[{"a_.", "+", 4573 RowBox[{"b_.", "*", 4574 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 4575 " ", ":=", "\n", " ", 4576 RowBox[{ 4577 RowBox[{ 4578 RowBox[{ 4579 RowBox[{"x", "^", 4580 RowBox[{"(", 4581 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 4582 RowBox[{ 4583 RowBox[{"Sin", "[", 4584 RowBox[{"a", "+", 4585 RowBox[{"b", "*", 4586 RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 4587 RowBox[{"(", 4588 RowBox[{"b", "*", "n"}], ")"}]}]}], " ", "-", "\n", " ", 4589 RowBox[{"Dist", "[", 4590 RowBox[{ 4591 RowBox[{ 4592 RowBox[{"(", 4593 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 4594 RowBox[{"(", 4595 RowBox[{"b", "*", "n"}], ")"}]}], ",", 4596 RowBox[{"Int", "[", 4597 RowBox[{ 4598 RowBox[{ 4599 RowBox[{"x", "^", 4600 RowBox[{"(", 4601 RowBox[{"m", "-", "n"}], ")"}]}], "*", 4602 RowBox[{"Sin", "[", 4603 RowBox[{"a", "+", 4604 RowBox[{"b", "*", 4605 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 4606 "]"}]}], " ", "/;", "\n", 4607 RowBox[{ 4608 RowBox[{"FreeQ", "[", 4609 RowBox[{ 4610 RowBox[{"{", 4611 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 4612 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 4613 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 4614 RowBox[{"0", "<", "n", "<=", "m"}]}]}]}]], "Code", 4615 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4616 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4617 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4618 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 4619 3.497811129647043*^9, 3.497811455437499*^9, {3.497921614714183*^9, 4620 3.4979216449158354`*^9}, 3.49798300226253*^9}, 4621 Background->GrayLevel[0.85]], 4622 4623Cell["", "Subsubsection", 4624 CellDingbat->None, 4625 CellChangeTimes->{3.4796643211106243`*^9}], 4626 4627Cell["Reference: CRC 405, A&S 4.3.120", "Subsubsection", 4628 CellChangeTimes->{ 4629 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4630 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4631 3.497810452426095*^9, 3.4978120457827296`*^9}], 4632 4633Cell["Derivation: Integration by parts", "Subsubsection", 4634 CellChangeTimes->{ 4635 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4636 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 4637 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, { 4638 3.497810459466105*^9, 3.497810511846178*^9}, 3.4978120506627364`*^9}], 4639 4640Cell[TextData[{ 4641 "Rule: If ", 4642 Cell[BoxData[ 4643 RowBox[{ 4644 RowBox[{"m", "+", "n", "+", "1"}], "=", 4645 RowBox[{"0", " ", "\[Or]", " ", 4646 RowBox[{"(", 4647 RowBox[{ 4648 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 4649 " ", 4650 RowBox[{"(", 4651 RowBox[{ 4652 RowBox[{"(", 4653 RowBox[{ 4654 RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 4655 RowBox[{"m", "<", 4656 RowBox[{"-", "1"}]}]}], ")"}], " ", "\[Or]", " ", 4657 RowBox[{"0", "<", 4658 RowBox[{"-", "n"}], "<", 4659 RowBox[{"m", "+", "1"}]}]}], ")"}]}]}]}]}]]], 4660 ", then" 4661}], "Subsubsection", 4662 CellDingbat->"\[FilledSmallSquare]", 4663 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4664 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4665 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4666 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4667 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4668 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4669 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4670 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 4671 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 4672 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 4673 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978105556962395`*^9, 4674 3.4978105670162554`*^9}, {3.4978121595028887`*^9, 4675 3.4978121713129053`*^9}, {3.497812202812949*^9, 3.497812241873004*^9}}], 4676 4677Cell[BoxData[ 4678 RowBox[{ 4679 RowBox[{"\[Integral]", 4680 RowBox[{ 4681 SuperscriptBox["x", "m"], 4682 RowBox[{"Sin", "[", 4683 RowBox[{"a", "+", 4684 RowBox[{"b", " ", 4685 SuperscriptBox["x", "n"]}]}], "]"}], 4686 RowBox[{"\[DifferentialD]", 4687 RowBox[{"x", " ", "\[LongRightArrow]", " ", 4688 FractionBox[ 4689 RowBox[{ 4690 SuperscriptBox["x", 4691 RowBox[{"m", "+", "1"}]], " ", 4692 RowBox[{"Sin", "[", 4693 RowBox[{"a", "+", 4694 RowBox[{"b", " ", 4695 SuperscriptBox["x", "n"]}]}], "]"}]}], 4696 RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 4697 RowBox[{ 4698 FractionBox[ 4699 RowBox[{"b", " ", "n"}], 4700 RowBox[{"m", "+", "1"}]], 4701 RowBox[{"\[Integral]", 4702 RowBox[{ 4703 SuperscriptBox["x", 4704 RowBox[{"m", "+", "n"}]], " ", 4705 RowBox[{"Cos", "[", 4706 RowBox[{"a", "+", 4707 RowBox[{"b", " ", 4708 SuperscriptBox["x", "n"]}]}], "]"}], 4709 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 4710 CellDingbat->None, 4711 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 4712 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 4713 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 4714 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 4715 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 4716 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 4717 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 4718 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 4719 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 4720 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 4721 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 4722 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 4723 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 4724 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}}, 4725 TextAlignment->Center, 4726 FontSize->12, 4727 FontWeight->"Bold"], 4728 4729Cell["Program code:", "Subsubsection", 4730 CellDingbat->"\[FilledSmallSquare]", 4731 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4732 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4733 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4734 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4735 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4736 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4737 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4738 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 4739 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 4740 3.492805165713872*^9}}], 4741 4742Cell[BoxData[ 4743 RowBox[{ 4744 RowBox[{"Int", "[", 4745 RowBox[{ 4746 RowBox[{ 4747 RowBox[{"x_", "^", "m_."}], "*", 4748 RowBox[{"Sin", "[", 4749 RowBox[{"a_.", "+", 4750 RowBox[{"b_.", "*", 4751 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 4752 " ", ":=", "\n", " ", 4753 RowBox[{ 4754 RowBox[{ 4755 RowBox[{ 4756 RowBox[{"x", "^", 4757 RowBox[{"(", 4758 RowBox[{"m", "+", "1"}], ")"}]}], "*", 4759 RowBox[{ 4760 RowBox[{"Sin", "[", 4761 RowBox[{"a", "+", 4762 RowBox[{"b", "*", 4763 RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 4764 RowBox[{"(", 4765 RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", " ", 4766 RowBox[{"Dist", "[", 4767 RowBox[{ 4768 RowBox[{"b", "*", 4769 RowBox[{"n", "/", 4770 RowBox[{"(", 4771 RowBox[{"m", "+", "1"}], ")"}]}]}], ",", 4772 RowBox[{"Int", "[", 4773 RowBox[{ 4774 RowBox[{ 4775 RowBox[{"x", "^", 4776 RowBox[{"(", 4777 RowBox[{"m", "+", "n"}], ")"}]}], "*", 4778 RowBox[{"Cos", "[", 4779 RowBox[{"a", "+", 4780 RowBox[{"b", "*", 4781 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 4782 "]"}]}], " ", "/;", "\n", 4783 RowBox[{ 4784 RowBox[{"FreeQ", "[", 4785 RowBox[{ 4786 RowBox[{"{", 4787 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 4788 " ", "&&", " ", 4789 RowBox[{"(", 4790 RowBox[{ 4791 RowBox[{"ZeroQ", "[", 4792 RowBox[{"m", "+", "n", "+", "1"}], "]"}], " ", "||", " ", 4793 RowBox[{ 4794 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 4795 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 4796 RowBox[{"(", 4797 RowBox[{ 4798 RowBox[{ 4799 RowBox[{"n", ">", "0"}], " ", "&&", " ", 4800 RowBox[{"m", "<", 4801 RowBox[{"-", "1"}]}]}], " ", "||", " ", 4802 RowBox[{"0", "<", 4803 RowBox[{"-", "n"}], "<", 4804 RowBox[{"m", "+", "1"}]}]}], ")"}]}]}], ")"}]}]}]}]], "Code", 4805 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4806 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4807 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4808 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 4809 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9}, 4810 Background->GrayLevel[0.85]], 4811 4812Cell["Reference: CRC 406, A&S 4.3.124", "Subsubsection", 4813 CellChangeTimes->{ 4814 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4815 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4816 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497983283827424*^9}], 4817 4818Cell[BoxData[ 4819 RowBox[{ 4820 RowBox[{"Int", "[", 4821 RowBox[{ 4822 RowBox[{ 4823 RowBox[{"x_", "^", "m_."}], "*", 4824 RowBox[{"Cos", "[", 4825 RowBox[{"a_.", "+", 4826 RowBox[{"b_.", "*", 4827 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 4828 " ", ":=", "\n", " ", 4829 RowBox[{ 4830 RowBox[{ 4831 RowBox[{ 4832 RowBox[{"x", "^", 4833 RowBox[{"(", 4834 RowBox[{"m", "+", "1"}], ")"}]}], "*", 4835 RowBox[{ 4836 RowBox[{"Cos", "[", 4837 RowBox[{"a", "+", 4838 RowBox[{"b", "*", 4839 RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 4840 RowBox[{"(", 4841 RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "+", "\n", " ", 4842 RowBox[{"Dist", "[", 4843 RowBox[{ 4844 RowBox[{"b", "*", 4845 RowBox[{"n", "/", 4846 RowBox[{"(", 4847 RowBox[{"m", "+", "1"}], ")"}]}]}], ",", 4848 RowBox[{"Int", "[", 4849 RowBox[{ 4850 RowBox[{ 4851 RowBox[{"x", "^", 4852 RowBox[{"(", 4853 RowBox[{"m", "+", "n"}], ")"}]}], "*", 4854 RowBox[{"Sin", "[", 4855 RowBox[{"a", "+", 4856 RowBox[{"b", "*", 4857 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 4858 "]"}]}], " ", "/;", "\n", 4859 RowBox[{ 4860 RowBox[{"FreeQ", "[", 4861 RowBox[{ 4862 RowBox[{"{", 4863 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 4864 " ", "&&", " ", 4865 RowBox[{"(", 4866 RowBox[{ 4867 RowBox[{"ZeroQ", "[", 4868 RowBox[{"m", "+", "n", "+", "1"}], "]"}], " ", "||", " ", 4869 RowBox[{ 4870 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 4871 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 4872 RowBox[{"(", 4873 RowBox[{ 4874 RowBox[{ 4875 RowBox[{"n", ">", "0"}], " ", "&&", " ", 4876 RowBox[{"m", "<", 4877 RowBox[{"-", "1"}]}]}], " ", "||", " ", 4878 RowBox[{"0", "<", 4879 RowBox[{"-", "n"}], "<", 4880 RowBox[{"m", "+", "1"}]}]}], ")"}]}]}], ")"}]}]}]}]], "Code", 4881 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 4882 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 4883 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 4884 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 4885 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, { 4886 3.497921614714183*^9, 3.4979216449158354`*^9}, 3.497983126719548*^9}, 4887 Background->GrayLevel[0.85]], 4888 4889Cell["", "Subsubsection", 4890 CellDingbat->None, 4891 CellChangeTimes->{3.4796643211106243`*^9}], 4892 4893Cell["Derivation: Algebraic expansion", "Subsubsection", 4894 CellChangeTimes->{ 4895 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4896 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 4897 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497812291653074*^9}], 4898 4899Cell[TextData[{ 4900 "Basis: ", 4901 Cell[BoxData[ 4902 RowBox[{ 4903 RowBox[{"Sin", "[", "z", "]"}], "=", 4904 RowBox[{ 4905 RowBox[{ 4906 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 4907 SuperscriptBox["\[ExponentialE]", 4908 RowBox[{ 4909 RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "-", 4910 RowBox[{ 4911 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 4912 SuperscriptBox["\[ExponentialE]", 4913 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]] 4914}], "Subsubsection", 4915 CellChangeTimes->{ 4916 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 4917 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 4918 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 4919 3.497811560037646*^9, 3.497811810187996*^9, 3.4978123204031143`*^9}], 4920 4921Cell[TextData[{ 4922 "Rule: If ", 4923 Cell[BoxData[ 4924 RowBox[{ 4925 RowBox[{ 4926 RowBox[{"m", "+", "1"}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 4927 RowBox[{ 4928 RowBox[{"m", "-", "n", "+", "1"}], "\[NotEqual]", "0"}], " ", "\[And]", 4929 " ", 4930 RowBox[{"\[Not]", 4931 RowBox[{"(", 4932 RowBox[{ 4933 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalF]"}], " ", "\[Or]", 4934 " ", 4935 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}], " ", "\[Or]", 4936 " ", 4937 RowBox[{"n", "<", "0"}]}], ")"}]}]}]]], 4938 ", then" 4939}], "Subsubsection", 4940 CellDingbat->"\[FilledSmallSquare]", 4941 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 4942 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 4943 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 4944 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 4945 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 4946 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 4947 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 4948 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 4949 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 4950 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 4951 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978105556962395`*^9, 4952 3.4978105670162554`*^9}, {3.4978121595028887`*^9, 4953 3.4978121713129053`*^9}, {3.497812202812949*^9, 3.497812241873004*^9}, { 4954 3.4978123720231867`*^9, 3.4978124858333454`*^9}}], 4955 4956Cell[BoxData[ 4957 RowBox[{ 4958 RowBox[{"\[Integral]", 4959 RowBox[{ 4960 SuperscriptBox["x", "m"], 4961 RowBox[{"Sin", "[", 4962 RowBox[{"a", "+", 4963 RowBox[{"b", " ", 4964 SuperscriptBox["x", "n"]}]}], "]"}], 4965 RowBox[{"\[DifferentialD]", 4966 RowBox[{"x", " ", "\[LongRightArrow]", " ", 4967 FractionBox["\[ImaginaryI]", "2"]}]}], 4968 RowBox[{"\[Integral]", 4969 RowBox[{ 4970 SuperscriptBox["x", "m"], " ", 4971 SuperscriptBox["\[ExponentialE]", 4972 RowBox[{ 4973 RowBox[{ 4974 RowBox[{"-", "a"}], " ", "\[ImaginaryI]"}], "-", 4975 RowBox[{"b", " ", "\[ImaginaryI]", " ", 4976 SuperscriptBox["x", "n"]}]}]], 4977 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 4978 RowBox[{ 4979 FractionBox["\[ImaginaryI]", "2"], 4980 RowBox[{"\[Integral]", 4981 RowBox[{ 4982 SuperscriptBox["x", "m"], " ", 4983 SuperscriptBox["\[ExponentialE]", 4984 RowBox[{ 4985 RowBox[{"a", " ", "\[ImaginaryI]"}], "+", 4986 RowBox[{"b", " ", "\[ImaginaryI]", " ", 4987 SuperscriptBox["x", "n"]}]}]], 4988 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 4989 CellDingbat->None, 4990 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 4991 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 4992 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 4993 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 4994 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 4995 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 4996 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 4997 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 4998 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 4999 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 5000 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 5001 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 5002 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 5003 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 5004 3.4978123593031683`*^9}, 5005 TextAlignment->Center, 5006 FontSize->12, 5007 FontWeight->"Bold"], 5008 5009Cell["Program code:", "Subsubsection", 5010 CellDingbat->"\[FilledSmallSquare]", 5011 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5012 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5013 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5014 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5015 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5016 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5017 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5018 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 5019 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 5020 3.492805165713872*^9}}], 5021 5022Cell[BoxData[ 5023 RowBox[{ 5024 RowBox[{"Int", "[", 5025 RowBox[{ 5026 RowBox[{ 5027 RowBox[{"x_", "^", "m_."}], "*", 5028 RowBox[{"Sin", "[", 5029 RowBox[{"a_.", "+", 5030 RowBox[{"b_.", "*", 5031 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 5032 " ", ":=", "\n", " ", 5033 RowBox[{ 5034 RowBox[{ 5035 RowBox[{"Dist", "[", 5036 RowBox[{ 5037 RowBox[{"I", "/", "2"}], ",", 5038 RowBox[{"Int", "[", 5039 RowBox[{ 5040 RowBox[{ 5041 RowBox[{"x", "^", "m"}], "*", 5042 RowBox[{"E", "^", 5043 RowBox[{"(", 5044 RowBox[{ 5045 RowBox[{ 5046 RowBox[{"-", "a"}], "*", "I"}], "-", 5047 RowBox[{"b", "*", "I", "*", 5048 RowBox[{"x", "^", "n"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], 5049 "]"}], " ", "-", " ", "\n", " ", 5050 RowBox[{"Dist", "[", 5051 RowBox[{ 5052 RowBox[{"I", "/", "2"}], ",", 5053 RowBox[{"Int", "[", 5054 RowBox[{ 5055 RowBox[{ 5056 RowBox[{"x", "^", "m"}], "*", 5057 RowBox[{"E", "^", 5058 RowBox[{"(", 5059 RowBox[{ 5060 RowBox[{"a", "*", "I"}], "+", 5061 RowBox[{"b", "*", "I", "*", 5062 RowBox[{"x", "^", "n"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], 5063 "]"}]}], " ", "/;", "\n", 5064 RowBox[{ 5065 RowBox[{"FreeQ", "[", 5066 RowBox[{ 5067 RowBox[{"{", 5068 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 5069 " ", "&&", " ", 5070 RowBox[{"NonzeroQ", "[", 5071 RowBox[{"m", "+", "1"}], "]"}], " ", "&&", " ", 5072 RowBox[{"NonzeroQ", "[", 5073 RowBox[{"m", "-", "n", "+", "1"}], "]"}], " ", "&&", " ", "\n", 5074 RowBox[{"Not", "[", 5075 RowBox[{ 5076 RowBox[{"FractionQ", "[", "m", "]"}], " ", "||", " ", 5077 RowBox[{"FractionOrNegativeQ", "[", "n", "]"}]}], "]"}]}]}]}]], "Code", 5078 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 5079 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 5080 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 5081 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 5082 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 5083 3.4978123314331293`*^9, 3.4978449628776217`*^9}, 5084 Background->GrayLevel[0.85]], 5085 5086Cell[TextData[{ 5087 "Basis: ", 5088 Cell[BoxData[ 5089 RowBox[{ 5090 RowBox[{"Cos", "[", "z", "]"}], "=", 5091 RowBox[{ 5092 RowBox[{ 5093 FractionBox["1", "2"], 5094 SuperscriptBox["\[ExponentialE]", 5095 RowBox[{ 5096 RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "+", 5097 RowBox[{ 5098 FractionBox["1", "2"], 5099 SuperscriptBox["\[ExponentialE]", 5100 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]] 5101}], "Subsubsection", 5102 CellChangeTimes->{ 5103 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 5104 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 5105 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 5106 3.497811560037646*^9, 3.497811810187996*^9, 3.4978123204031143`*^9, { 5107 3.49792163015821*^9, 3.49792163015821*^9}, {3.4979835810547466`*^9, 5108 3.4979835810547466`*^9}}], 5109 5110Cell[BoxData[ 5111 RowBox[{ 5112 RowBox[{"Int", "[", 5113 RowBox[{ 5114 RowBox[{ 5115 RowBox[{"x_", "^", "m_."}], "*", 5116 RowBox[{"Cos", "[", 5117 RowBox[{"a_.", "+", 5118 RowBox[{"b_.", "*", 5119 RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 5120 " ", ":=", "\n", " ", 5121 RowBox[{ 5122 RowBox[{ 5123 RowBox[{"Dist", "[", 5124 RowBox[{ 5125 RowBox[{"1", "/", "2"}], ",", 5126 RowBox[{"Int", "[", 5127 RowBox[{ 5128 RowBox[{ 5129 RowBox[{"x", "^", "m"}], "*", 5130 RowBox[{"E", "^", 5131 RowBox[{"(", 5132 RowBox[{ 5133 RowBox[{ 5134 RowBox[{"-", "a"}], "*", "I"}], "-", 5135 RowBox[{"b", "*", "I", "*", 5136 RowBox[{"x", "^", "n"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], 5137 "]"}], " ", "+", " ", "\n", " ", 5138 RowBox[{"Dist", "[", 5139 RowBox[{ 5140 RowBox[{"1", "/", "2"}], ",", 5141 RowBox[{"Int", "[", 5142 RowBox[{ 5143 RowBox[{ 5144 RowBox[{"x", "^", "m"}], "*", 5145 RowBox[{"E", "^", 5146 RowBox[{"(", 5147 RowBox[{ 5148 RowBox[{"a", "*", "I"}], "+", 5149 RowBox[{"b", "*", "I", "*", 5150 RowBox[{"x", "^", "n"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], 5151 "]"}]}], " ", "/;", "\n", 5152 RowBox[{ 5153 RowBox[{"FreeQ", "[", 5154 RowBox[{ 5155 RowBox[{"{", 5156 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 5157 " ", "&&", " ", 5158 RowBox[{"NonzeroQ", "[", 5159 RowBox[{"m", "+", "1"}], "]"}], " ", "&&", " ", 5160 RowBox[{"NonzeroQ", "[", 5161 RowBox[{"m", "-", "n", "+", "1"}], "]"}], " ", "&&", " ", "\n", 5162 RowBox[{"Not", "[", 5163 RowBox[{ 5164 RowBox[{"FractionQ", "[", "m", "]"}], " ", "||", " ", 5165 RowBox[{"FractionOrNegativeQ", "[", "n", "]"}]}], "]"}]}]}]}]], "Code", 5166 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 5167 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 5168 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 5169 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 5170 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 5171 3.4978123314331293`*^9, 3.4978449628776217`*^9, 3.49792163015821*^9, 5172 3.497983137748768*^9, 3.497983659538484*^9}, 5173 Background->GrayLevel[0.85]], 5174 5175Cell["", "PageBreak", 5176 PageBreakBelow->True] 5177}, Closed]], 5178 5179Cell[CellGroupData[{ 5180 5181Cell[BoxData[ 5182 RowBox[{"\[Integral]", 5183 RowBox[{ 5184 SuperscriptBox["x", "m"], " ", 5185 SuperscriptBox[ 5186 RowBox[{"Sin", "[", 5187 RowBox[{"a", "+", 5188 RowBox[{"b", " ", 5189 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5190 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 5191 CellDingbat->None, 5192 CellChangeTimes->{ 5193 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 5194 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 5195 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 5196 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 5197 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 5198 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 5199 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 5200 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 5201 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 5202 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 5203 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 5204 3.49781110611701*^9, 3.497812987564048*^9}, 5205 TextAlignment->Center, 5206 FontSize->20, 5207 FontWeight->"Bold"], 5208 5209Cell["Derivation: Integration by parts", "Subsubsection", 5210 CellChangeTimes->{ 5211 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 5212 3.496528894323882*^9, 3.497575979956957*^9, 3.4978130316141095`*^9}], 5213 5214Cell[TextData[{ 5215 "Rule: If ", 5216 Cell[BoxData[ 5217 RowBox[{"n", ",", 5218 RowBox[{ 5219 RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 5220 " ", 5221 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 5222 RowBox[{ 5223 RowBox[{"n", "-", "1"}], "\[NotEqual]", "0"}]}]}]]], 5224 ", then" 5225}], "Subsubsection", 5226 CellDingbat->"\[FilledSmallSquare]", 5227 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5228 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5229 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5230 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5231 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5232 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5233 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5234 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 5235 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 5236 3.496528833243797*^9, {3.4978130900441914`*^9, 3.4978131572642856`*^9}, { 5237 3.497813348754554*^9, 3.49781336751458*^9}, {3.497814099895605*^9, 5238 3.497814106035614*^9}}], 5239 5240Cell[BoxData[ 5241 RowBox[{ 5242 RowBox[{"\[Integral]", 5243 RowBox[{ 5244 FractionBox[ 5245 SuperscriptBox[ 5246 RowBox[{"Sin", "[", 5247 RowBox[{"a", "+", 5248 RowBox[{"b", " ", 5249 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5250 SuperscriptBox["x", "n"]], 5251 RowBox[{"\[DifferentialD]", 5252 RowBox[{"x", " ", "\[LongRightArrow]", " ", 5253 RowBox[{"-", 5254 FractionBox[ 5255 SuperscriptBox[ 5256 RowBox[{"Sin", "[", 5257 RowBox[{"a", "+", 5258 RowBox[{"b", " ", 5259 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5260 RowBox[{ 5261 RowBox[{"(", 5262 RowBox[{"n", "-", "1"}], ")"}], 5263 SuperscriptBox["x", 5264 RowBox[{"n", "-", "1"}]]}]]}]}]}]}]}], "+", 5265 RowBox[{ 5266 FractionBox[ 5267 RowBox[{"b", " ", "n", " ", "p"}], 5268 RowBox[{"n", "-", "1"}]], 5269 RowBox[{"\[Integral]", 5270 RowBox[{ 5271 SuperscriptBox[ 5272 RowBox[{"Sin", "[", 5273 RowBox[{"a", "+", 5274 RowBox[{"b", " ", 5275 SuperscriptBox["x", "n"]}]}], "]"}], 5276 RowBox[{"p", "-", "1"}]], " ", 5277 RowBox[{"Cos", "[", 5278 RowBox[{"a", "+", 5279 RowBox[{"b", " ", 5280 SuperscriptBox["x", "n"]}]}], "]"}], 5281 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 5282 CellDingbat->None, 5283 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 5284 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 5285 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 5286 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 5287 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 5288 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 5289 3.497810026705499*^9}, {3.497811202387145*^9, 3.497811226367179*^9}, { 5290 3.4978114144974422`*^9, 3.4978114162574444`*^9}, {3.497813065384157*^9, 5291 3.4978130749041705`*^9}, {3.4978133280245247`*^9, 5292 3.4978133437345467`*^9}, {3.497813396744621*^9, 3.4978134492246943`*^9}}, 5293 TextAlignment->Center, 5294 FontSize->12, 5295 FontWeight->"Bold"], 5296 5297Cell["Program code:", "Subsubsection", 5298 CellDingbat->"\[FilledSmallSquare]", 5299 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5300 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5301 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5302 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5303 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5304 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5305 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5306 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 5307 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 5308 3.492805165713872*^9}}], 5309 5310Cell[BoxData[ 5311 RowBox[{ 5312 RowBox[{"Int", "[", 5313 RowBox[{ 5314 RowBox[{ 5315 RowBox[{"x_", "^", "m_."}], "*", 5316 RowBox[{ 5317 RowBox[{"Sin", "[", 5318 RowBox[{"a_.", "+", 5319 RowBox[{"b_.", "*", 5320 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 5321 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 5322 RowBox[{ 5323 RowBox[{ 5324 RowBox[{ 5325 RowBox[{"-", 5326 RowBox[{ 5327 RowBox[{"Sin", "[", 5328 RowBox[{"a", "+", 5329 RowBox[{"b", "*", 5330 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], "/", 5331 RowBox[{"(", 5332 RowBox[{ 5333 RowBox[{"(", 5334 RowBox[{"n", "-", "1"}], ")"}], "*", 5335 RowBox[{"x", "^", 5336 RowBox[{"(", 5337 RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], " ", "+", "\n", " ", 5338 RowBox[{"Dist", "[", 5339 RowBox[{ 5340 RowBox[{"b", "*", "n", "*", 5341 RowBox[{"p", "/", 5342 RowBox[{"(", 5343 RowBox[{"n", "-", "1"}], ")"}]}]}], ",", 5344 RowBox[{"Int", "[", 5345 RowBox[{ 5346 RowBox[{ 5347 RowBox[{ 5348 RowBox[{"Sin", "[", 5349 RowBox[{"a", "+", 5350 RowBox[{"b", "*", 5351 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5352 RowBox[{"(", 5353 RowBox[{"p", "-", "1"}], ")"}]}], "*", 5354 RowBox[{"Cos", "[", 5355 RowBox[{"a", "+", 5356 RowBox[{"b", "*", 5357 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 5358 "]"}]}], " ", "/;", "\n", 5359 RowBox[{ 5360 RowBox[{"FreeQ", "[", 5361 RowBox[{ 5362 RowBox[{"{", 5363 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 5364 RowBox[{"IntegersQ", "[", 5365 RowBox[{"n", ",", "p"}], "]"}], " ", "&&", " ", 5366 RowBox[{"ZeroQ", "[", 5367 RowBox[{"m", "+", "n"}], "]"}], " ", "&&", " ", 5368 RowBox[{"p", ">", "1"}], " ", "&&", " ", 5369 RowBox[{"NonzeroQ", "[", 5370 RowBox[{"n", "-", "1"}], "]"}]}]}]}]], "Code", 5371 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 5372 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 5373 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 5374 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, 5375 3.4978130235240984`*^9, {3.4978134985547633`*^9, 3.497813609294918*^9}, 5376 3.5171907120579324`*^9}, 5377 Background->GrayLevel[0.85]], 5378 5379Cell[BoxData[ 5380 RowBox[{ 5381 RowBox[{"Int", "[", 5382 RowBox[{ 5383 RowBox[{ 5384 RowBox[{"x_", "^", "m_."}], "*", 5385 RowBox[{ 5386 RowBox[{"Cos", "[", 5387 RowBox[{"a_.", "+", 5388 RowBox[{"b_.", "*", 5389 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 5390 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 5391 RowBox[{ 5392 RowBox[{ 5393 RowBox[{ 5394 RowBox[{"-", 5395 RowBox[{ 5396 RowBox[{"Cos", "[", 5397 RowBox[{"a", "+", 5398 RowBox[{"b", "*", 5399 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], "/", 5400 RowBox[{"(", 5401 RowBox[{ 5402 RowBox[{"(", 5403 RowBox[{"n", "-", "1"}], ")"}], "*", 5404 RowBox[{"x", "^", 5405 RowBox[{"(", 5406 RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], " ", "-", "\n", " ", 5407 RowBox[{"Dist", "[", 5408 RowBox[{ 5409 RowBox[{"b", "*", "n", "*", 5410 RowBox[{"p", "/", 5411 RowBox[{"(", 5412 RowBox[{"n", "-", "1"}], ")"}]}]}], ",", 5413 RowBox[{"Int", "[", 5414 RowBox[{ 5415 RowBox[{ 5416 RowBox[{ 5417 RowBox[{"Cos", "[", 5418 RowBox[{"a", "+", 5419 RowBox[{"b", "*", 5420 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5421 RowBox[{"(", 5422 RowBox[{"p", "-", "1"}], ")"}]}], "*", 5423 RowBox[{"Sin", "[", 5424 RowBox[{"a", "+", 5425 RowBox[{"b", "*", 5426 RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 5427 "]"}]}], " ", "/;", "\n", 5428 RowBox[{ 5429 RowBox[{"FreeQ", "[", 5430 RowBox[{ 5431 RowBox[{"{", 5432 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 5433 RowBox[{"IntegersQ", "[", 5434 RowBox[{"n", ",", "p"}], "]"}], " ", "&&", " ", 5435 RowBox[{"ZeroQ", "[", 5436 RowBox[{"m", "+", "n"}], "]"}], " ", "&&", " ", 5437 RowBox[{"p", ">", "1"}], " ", "&&", " ", 5438 RowBox[{"NonzeroQ", "[", 5439 RowBox[{"n", "-", "1"}], "]"}]}]}]}]], "Code", 5440 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 5441 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 5442 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 5443 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, 5444 3.4978130235240984`*^9, {3.4978134985547633`*^9, 3.497813609294918*^9}, { 5445 3.497921614729783*^9, 3.4979216449314356`*^9}, 3.497984037433548*^9, 5446 3.5171907120579324`*^9}, 5447 Background->GrayLevel[0.85]], 5448 5449Cell["", "Subsubsection", 5450 CellDingbat->None, 5451 CellChangeTimes->{3.4796643211106243`*^9}], 5452 5453Cell[TextData[{ 5454 "Reference: G&R 2.631.2' special case ", 5455 "when", 5456 " ", 5457 Cell[BoxData[ 5458 RowBox[{ 5459 RowBox[{"m", "-", 5460 RowBox[{"2", "n"}], "+", "1"}], "=", "0"}]]] 5461}], "Subsubsection", 5462 CellChangeTimes->{ 5463 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 5464 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, { 5465 3.497813680335018*^9, 3.497813696825041*^9}, 3.497814297695882*^9, { 5466 3.4978143293659267`*^9, 3.4978143308159285`*^9}, 3.498239516771779*^9, { 5467 3.4990388058462014`*^9, 3.4990388139270153`*^9}}], 5468 5469Cell[TextData[{ 5470 "Rule: If ", 5471 Cell[BoxData[ 5472 RowBox[{ 5473 RowBox[{ 5474 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 5475 RowBox[{"m", "-", 5476 RowBox[{"2", "n"}], "+", "1"}]}], "=", "0"}]]], 5477 ", then" 5478}], "Subsubsection", 5479 CellDingbat->"\[FilledSmallSquare]", 5480 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5481 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5482 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5483 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5484 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5485 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5486 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5487 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 5488 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 5489 3.496528833243797*^9, {3.4978130900441914`*^9, 3.4978131572642856`*^9}, { 5490 3.497813348754554*^9, 3.49781336751458*^9}, {3.4978140642655554`*^9, 5491 3.4978140956655993`*^9}, {3.4978144116260414`*^9, 5492 3.4978144242060595`*^9}, {3.4990388217738295`*^9, 3.4990388217738295`*^9}}], 5493 5494Cell[BoxData[ 5495 RowBox[{ 5496 RowBox[{"\[Integral]", 5497 RowBox[{ 5498 SuperscriptBox["x", "m"], 5499 SuperscriptBox[ 5500 RowBox[{"Sin", "[", 5501 RowBox[{"a", "+", 5502 RowBox[{"b", " ", 5503 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5504 RowBox[{"\[DifferentialD]", 5505 RowBox[{"x", " ", "\[LongRightArrow]", " ", 5506 FractionBox[ 5507 RowBox[{"n", " ", 5508 SuperscriptBox[ 5509 RowBox[{"Sin", "[", 5510 RowBox[{"a", "+", 5511 RowBox[{"b", " ", 5512 SuperscriptBox["x", "n"]}]}], "]"}], "p"]}], 5513 RowBox[{ 5514 SuperscriptBox["b", "2"], " ", 5515 SuperscriptBox["n", "2"], " ", 5516 SuperscriptBox["p", "2"]}]]}]}]}]}], "-", 5517 FractionBox[ 5518 RowBox[{ 5519 SuperscriptBox["x", "n"], " ", 5520 RowBox[{"Cos", "[", 5521 RowBox[{"a", "+", 5522 RowBox[{"b", " ", 5523 SuperscriptBox["x", "n"]}]}], "]"}], " ", 5524 SuperscriptBox[ 5525 RowBox[{"Sin", "[", 5526 RowBox[{"a", "+", 5527 RowBox[{"b", " ", 5528 SuperscriptBox["x", "n"]}]}], "]"}], 5529 RowBox[{"p", "-", "1"}]]}], 5530 RowBox[{"b", " ", "n", " ", "p"}]], "+", 5531 RowBox[{ 5532 FractionBox[ 5533 RowBox[{"p", "-", "1"}], "p"], 5534 RowBox[{"\[Integral]", 5535 RowBox[{ 5536 SuperscriptBox["x", "m"], 5537 SuperscriptBox[ 5538 RowBox[{"Sin", "[", 5539 RowBox[{"a", "+", 5540 RowBox[{"b", " ", 5541 SuperscriptBox["x", "n"]}]}], "]"}], 5542 RowBox[{"p", "-", "2"}]], 5543 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 5544 CellDingbat->None, 5545 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 5546 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 5547 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 5548 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 5549 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 5550 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 5551 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 5552 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 5553 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 5554 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 5555 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 5556 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 5557 3.4978101470356674`*^9}, 3.497811321977312*^9, {3.4978113726473837`*^9, 5558 3.4978113760773883`*^9}, 3.497813732595091*^9, {3.4978138007251863`*^9, 5559 3.4978138363652363`*^9}, {3.4978143913860135`*^9, 3.4978144039060307`*^9}}, 5560 TextAlignment->Center, 5561 FontSize->12, 5562 FontWeight->"Bold"], 5563 5564Cell["Program code:", "Subsubsection", 5565 CellDingbat->"\[FilledSmallSquare]", 5566 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5567 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5568 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5569 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5570 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5571 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5572 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5573 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 5574 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 5575 3.492805165713872*^9}}], 5576 5577Cell[BoxData[ 5578 RowBox[{ 5579 RowBox[{"Int", "[", 5580 RowBox[{ 5581 RowBox[{ 5582 RowBox[{"x_", "^", "m_."}], "*", 5583 RowBox[{ 5584 RowBox[{"Sin", "[", 5585 RowBox[{"a_.", "+", 5586 RowBox[{"b_.", "*", 5587 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 5588 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 5589 RowBox[{ 5590 RowBox[{ 5591 RowBox[{"n", "*", 5592 RowBox[{ 5593 RowBox[{ 5594 RowBox[{"Sin", "[", 5595 RowBox[{"a", "+", 5596 RowBox[{"b", "*", 5597 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 5598 RowBox[{"(", 5599 RowBox[{ 5600 RowBox[{"b", "^", "2"}], "*", 5601 RowBox[{"n", "^", "2"}], "*", 5602 RowBox[{"p", "^", "2"}]}], ")"}]}]}], " ", "-", "\n", " ", 5603 RowBox[{ 5604 RowBox[{"x", "^", "n"}], "*", 5605 RowBox[{"Cos", "[", 5606 RowBox[{"a", "+", 5607 RowBox[{"b", "*", 5608 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 5609 RowBox[{ 5610 RowBox[{ 5611 RowBox[{"Sin", "[", 5612 RowBox[{"a", "+", 5613 RowBox[{"b", "*", 5614 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5615 RowBox[{"(", 5616 RowBox[{"p", "-", "1"}], ")"}]}], "/", 5617 RowBox[{"(", 5618 RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "+", "\n", " ", 5619 RowBox[{"Dist", "[", 5620 RowBox[{ 5621 RowBox[{ 5622 RowBox[{"(", 5623 RowBox[{"p", "-", "1"}], ")"}], "/", "p"}], ",", 5624 RowBox[{"Int", "[", 5625 RowBox[{ 5626 RowBox[{ 5627 RowBox[{"x", "^", "m"}], "*", 5628 RowBox[{ 5629 RowBox[{"Sin", "[", 5630 RowBox[{"a", "+", 5631 RowBox[{"b", "*", 5632 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5633 RowBox[{"(", 5634 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 5635 " ", "/;", "\n", 5636 RowBox[{ 5637 RowBox[{"FreeQ", "[", 5638 RowBox[{ 5639 RowBox[{"{", 5640 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 5641 " ", "&&", " ", 5642 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 5643 RowBox[{"p", ">", "1"}], " ", "&&", " ", 5644 RowBox[{"ZeroQ", "[", 5645 RowBox[{"m", "-", 5646 RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}]}]}]], "Code", 5647 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 5648 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 5649 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 5650 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 5651 3.4978112789772525`*^9, 3.497812999004064*^9, 3.4978136658049974`*^9, { 5652 3.4978138617452717`*^9, 3.4978138643252754`*^9}}, 5653 Background->GrayLevel[0.85]], 5654 5655Cell[TextData[{ 5656 "Reference: G&R 2.631.3' special case with ", 5657 Cell[BoxData[ 5658 RowBox[{ 5659 RowBox[{"m", "-", 5660 RowBox[{"2", "n"}], "+", "1"}], "=", "0"}]]] 5661}], "Subsubsection", 5662 CellChangeTimes->{ 5663 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 5664 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, { 5665 3.497813680335018*^9, 3.497813696825041*^9}, 3.497814297695882*^9, { 5666 3.4978143293659267`*^9, 3.4978143308159285`*^9}, {3.4979841931998215`*^9, 5667 3.4979841936366224`*^9}, {3.4990389647480803`*^9, 3.4990389647480803`*^9}}], 5668 5669Cell[BoxData[ 5670 RowBox[{ 5671 RowBox[{"Int", "[", 5672 RowBox[{ 5673 RowBox[{ 5674 RowBox[{"x_", "^", "m_."}], "*", 5675 RowBox[{ 5676 RowBox[{"Cos", "[", 5677 RowBox[{"a_.", "+", 5678 RowBox[{"b_.", "*", 5679 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 5680 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 5681 RowBox[{ 5682 RowBox[{ 5683 RowBox[{"n", "*", 5684 RowBox[{ 5685 RowBox[{ 5686 RowBox[{"Cos", "[", 5687 RowBox[{"a", "+", 5688 RowBox[{"b", "*", 5689 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 5690 RowBox[{"(", 5691 RowBox[{ 5692 RowBox[{"b", "^", "2"}], "*", 5693 RowBox[{"n", "^", "2"}], "*", 5694 RowBox[{"p", "^", "2"}]}], ")"}]}]}], " ", "+", "\n", " ", 5695 RowBox[{ 5696 RowBox[{"x", "^", "n"}], "*", 5697 RowBox[{"Sin", "[", 5698 RowBox[{"a", "+", 5699 RowBox[{"b", "*", 5700 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 5701 RowBox[{ 5702 RowBox[{ 5703 RowBox[{"Cos", "[", 5704 RowBox[{"a", "+", 5705 RowBox[{"b", "*", 5706 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5707 RowBox[{"(", 5708 RowBox[{"p", "-", "1"}], ")"}]}], "/", 5709 RowBox[{"(", 5710 RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "+", "\n", " ", 5711 RowBox[{"Dist", "[", 5712 RowBox[{ 5713 RowBox[{ 5714 RowBox[{"(", 5715 RowBox[{"p", "-", "1"}], ")"}], "/", "p"}], ",", 5716 RowBox[{"Int", "[", 5717 RowBox[{ 5718 RowBox[{ 5719 RowBox[{"x", "^", "m"}], "*", 5720 RowBox[{ 5721 RowBox[{"Cos", "[", 5722 RowBox[{"a", "+", 5723 RowBox[{"b", "*", 5724 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5725 RowBox[{"(", 5726 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 5727 " ", "/;", "\n", 5728 RowBox[{ 5729 RowBox[{"FreeQ", "[", 5730 RowBox[{ 5731 RowBox[{"{", 5732 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 5733 " ", "&&", " ", 5734 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 5735 RowBox[{"p", ">", "1"}], " ", "&&", " ", 5736 RowBox[{"ZeroQ", "[", 5737 RowBox[{"m", "-", 5738 RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}]}]}]], "Code", 5739 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 5740 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 5741 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 5742 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 5743 3.4978112789772525`*^9, 3.497812999004064*^9, 3.4978136658049974`*^9, { 5744 3.4978138617452717`*^9, 3.4978138643252754`*^9}, {3.497921614745383*^9, 5745 3.497921644947036*^9}, 3.497984114263683*^9}, 5746 Background->GrayLevel[0.85]], 5747 5748Cell["", "Subsubsection", 5749 CellDingbat->None, 5750 CellChangeTimes->{3.4796643211106243`*^9}], 5751 5752Cell["Reference: G&R 2.631.2'", "Subsubsection", 5753 CellChangeTimes->{ 5754 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 5755 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 5756 3.497811532897608*^9, 3.49781393901538*^9}], 5757 5758Cell[TextData[{ 5759 "Rule: If ", 5760 Cell[BoxData[ 5761 RowBox[{"m", ",", 5762 RowBox[{ 5763 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 5764 " ", 5765 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 5766 RowBox[{"0", "<", 5767 RowBox[{"2", "n"}], "<", 5768 RowBox[{"m", "+", "1"}]}]}]}]]], 5769 ", then" 5770}], "Subsubsection", 5771 CellDingbat->"\[FilledSmallSquare]", 5772 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5773 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5774 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5775 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5776 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5777 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5778 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5779 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 5780 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 5781 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 5782 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 5783 3.4978119879026484`*^9}, {3.4978142081057568`*^9, 5784 3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}}], 5785 5786Cell[BoxData[ 5787 RowBox[{ 5788 RowBox[{"\[Integral]", 5789 RowBox[{ 5790 SuperscriptBox["x", "m"], 5791 SuperscriptBox[ 5792 RowBox[{"Sin", "[", 5793 RowBox[{"a", "+", 5794 RowBox[{"b", " ", 5795 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5796 RowBox[{"\[DifferentialD]", 5797 RowBox[{"x", " ", "\[LongRightArrow]", " ", 5798 FractionBox[ 5799 RowBox[{ 5800 RowBox[{"(", 5801 RowBox[{"m", "-", "n", "+", "1"}], ")"}], " ", 5802 SuperscriptBox["x", 5803 RowBox[{"m", "-", 5804 RowBox[{"2", " ", "n"}], "+", "1"}]], " ", 5805 SuperscriptBox[ 5806 RowBox[{"Sin", "[", 5807 RowBox[{"a", "+", 5808 RowBox[{"b", " ", 5809 SuperscriptBox["x", "n"]}]}], "]"}], "p"]}], 5810 RowBox[{ 5811 SuperscriptBox["b", "2"], " ", 5812 SuperscriptBox["n", "2"], " ", 5813 SuperscriptBox["p", "2"]}]]}]}]}]}], "-", 5814 FractionBox[ 5815 RowBox[{ 5816 SuperscriptBox["x", 5817 RowBox[{"m", "-", "n", "+", "1"}]], " ", 5818 RowBox[{"Cos", "[", 5819 RowBox[{"a", "+", 5820 RowBox[{"b", " ", 5821 SuperscriptBox["x", "n"]}]}], "]"}], " ", 5822 SuperscriptBox[ 5823 RowBox[{"Sin", "[", 5824 RowBox[{"a", "+", 5825 RowBox[{"b", " ", 5826 SuperscriptBox["x", "n"]}]}], "]"}], 5827 RowBox[{"p", "-", "1"}]]}], 5828 RowBox[{"b", " ", "n", " ", "p"}]], "+", " ", "\[IndentingNewLine]", 5829 " ", 5830 RowBox[{ 5831 FractionBox[ 5832 RowBox[{"p", "-", "1"}], "p"], 5833 RowBox[{"\[Integral]", 5834 RowBox[{ 5835 SuperscriptBox["x", "m"], " ", 5836 SuperscriptBox[ 5837 RowBox[{"Sin", "[", 5838 RowBox[{"a", "+", 5839 RowBox[{"b", " ", 5840 SuperscriptBox["x", "n"]}]}], "]"}], 5841 RowBox[{"p", "-", "2"}]], 5842 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 5843 RowBox[{ 5844 FractionBox[ 5845 RowBox[{ 5846 RowBox[{"(", 5847 RowBox[{"m", "-", "n", "+", "1"}], ")"}], " ", 5848 RowBox[{"(", 5849 RowBox[{"m", "-", 5850 RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}], 5851 RowBox[{ 5852 SuperscriptBox["b", "2"], " ", 5853 SuperscriptBox["n", "2"], " ", 5854 SuperscriptBox["p", "2"]}]], 5855 RowBox[{"\[Integral]", 5856 RowBox[{ 5857 SuperscriptBox["x", 5858 RowBox[{"m", "-", 5859 RowBox[{"2", " ", "n"}]}]], " ", 5860 SuperscriptBox[ 5861 RowBox[{"Sin", "[", 5862 RowBox[{"a", "+", 5863 RowBox[{"b", " ", 5864 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 5865 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 5866 CellDingbat->None, 5867 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 5868 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 5869 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 5870 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 5871 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 5872 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 5873 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 5874 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 5875 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 5876 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 5877 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 5878 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 5879 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, { 5880 3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 5881 3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 5882 3.497845040857731*^9}}, 5883 TextAlignment->Center, 5884 FontSize->12, 5885 FontWeight->"Bold"], 5886 5887Cell["Program code:", "Subsubsection", 5888 CellDingbat->"\[FilledSmallSquare]", 5889 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 5890 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 5891 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 5892 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 5893 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 5894 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 5895 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 5896 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 5897 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 5898 3.492805165713872*^9}}], 5899 5900Cell[BoxData[ 5901 RowBox[{ 5902 RowBox[{"Int", "[", 5903 RowBox[{ 5904 RowBox[{ 5905 RowBox[{"x_", "^", "m_."}], "*", 5906 RowBox[{ 5907 RowBox[{"Sin", "[", 5908 RowBox[{"a_.", "+", 5909 RowBox[{"b_.", "*", 5910 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 5911 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 5912 RowBox[{ 5913 RowBox[{ 5914 RowBox[{ 5915 RowBox[{"(", 5916 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 5917 RowBox[{"x", "^", 5918 RowBox[{"(", 5919 RowBox[{"m", "-", 5920 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], "*", 5921 RowBox[{ 5922 RowBox[{ 5923 RowBox[{"Sin", "[", 5924 RowBox[{"a", "+", 5925 RowBox[{"b", "*", 5926 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 5927 RowBox[{"(", 5928 RowBox[{ 5929 RowBox[{"b", "^", "2"}], "*", 5930 RowBox[{"n", "^", "2"}], "*", 5931 RowBox[{"p", "^", "2"}]}], ")"}]}]}], " ", "-", "\n", " ", 5932 RowBox[{ 5933 RowBox[{"x", "^", 5934 RowBox[{"(", 5935 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 5936 RowBox[{"Cos", "[", 5937 RowBox[{"a", "+", 5938 RowBox[{"b", "*", 5939 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 5940 RowBox[{ 5941 RowBox[{ 5942 RowBox[{"Sin", "[", 5943 RowBox[{"a", "+", 5944 RowBox[{"b", "*", 5945 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5946 RowBox[{"(", 5947 RowBox[{"p", "-", "1"}], ")"}]}], "/", 5948 RowBox[{"(", 5949 RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "+", "\n", " ", 5950 RowBox[{"Dist", "[", 5951 RowBox[{ 5952 RowBox[{ 5953 RowBox[{"(", 5954 RowBox[{"p", "-", "1"}], ")"}], "/", "p"}], ",", 5955 RowBox[{"Int", "[", 5956 RowBox[{ 5957 RowBox[{ 5958 RowBox[{"x", "^", "m"}], "*", 5959 RowBox[{ 5960 RowBox[{"Sin", "[", 5961 RowBox[{"a", "+", 5962 RowBox[{"b", "*", 5963 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 5964 RowBox[{"(", 5965 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 5966 " ", "-", "\n", " ", 5967 RowBox[{"Dist", "[", 5968 RowBox[{ 5969 RowBox[{ 5970 RowBox[{"(", 5971 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 5972 RowBox[{ 5973 RowBox[{"(", 5974 RowBox[{"m", "-", 5975 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "/", 5976 RowBox[{"(", 5977 RowBox[{ 5978 RowBox[{"b", "^", "2"}], "*", 5979 RowBox[{"n", "^", "2"}], "*", 5980 RowBox[{"p", "^", "2"}]}], ")"}]}]}], ",", 5981 RowBox[{"Int", "[", 5982 RowBox[{ 5983 RowBox[{ 5984 RowBox[{"x", "^", 5985 RowBox[{"(", 5986 RowBox[{"m", "-", 5987 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 5988 RowBox[{ 5989 RowBox[{"Sin", "[", 5990 RowBox[{"a", "+", 5991 RowBox[{"b", "*", 5992 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 5993 "]"}]}], "]"}]}], " ", "/;", "\n", 5994 RowBox[{ 5995 RowBox[{"FreeQ", "[", 5996 RowBox[{ 5997 RowBox[{"{", 5998 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 5999 RowBox[{"IntegersQ", "[", 6000 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 6001 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6002 RowBox[{"p", ">", "1"}], " ", "&&", " ", 6003 RowBox[{"0", "<", 6004 RowBox[{"2", "*", "n"}], "<", 6005 RowBox[{"m", "+", "1"}]}]}]}]}]], "Code", 6006 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6007 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6008 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6009 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6010 3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 6011 3.4978139290053663`*^9, 3.5171906797970753`*^9}, 6012 Background->GrayLevel[0.85]], 6013 6014Cell["Reference: G&R 2.631.3'", "Subsubsection", 6015 CellChangeTimes->{ 6016 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6017 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6018 3.497811532897608*^9, 3.49781393901538*^9, {3.49798426068554*^9, 6019 3.497984261184741*^9}}], 6020 6021Cell[BoxData[ 6022 RowBox[{ 6023 RowBox[{"Int", "[", 6024 RowBox[{ 6025 RowBox[{ 6026 RowBox[{"x_", "^", "m_."}], "*", 6027 RowBox[{ 6028 RowBox[{"Cos", "[", 6029 RowBox[{"a_.", "+", 6030 RowBox[{"b_.", "*", 6031 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 6032 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 6033 RowBox[{ 6034 RowBox[{ 6035 RowBox[{ 6036 RowBox[{"(", 6037 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6038 RowBox[{"x", "^", 6039 RowBox[{"(", 6040 RowBox[{"m", "-", 6041 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], "*", 6042 RowBox[{ 6043 RowBox[{ 6044 RowBox[{"Cos", "[", 6045 RowBox[{"a", "+", 6046 RowBox[{"b", "*", 6047 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 6048 RowBox[{"(", 6049 RowBox[{ 6050 RowBox[{"b", "^", "2"}], "*", 6051 RowBox[{"n", "^", "2"}], "*", 6052 RowBox[{"p", "^", "2"}]}], ")"}]}]}], " ", "+", "\n", " ", 6053 RowBox[{ 6054 RowBox[{"x", "^", 6055 RowBox[{"(", 6056 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 6057 RowBox[{"Sin", "[", 6058 RowBox[{"a", "+", 6059 RowBox[{"b", "*", 6060 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 6061 RowBox[{ 6062 RowBox[{ 6063 RowBox[{"Cos", "[", 6064 RowBox[{"a", "+", 6065 RowBox[{"b", "*", 6066 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6067 RowBox[{"(", 6068 RowBox[{"p", "-", "1"}], ")"}]}], "/", 6069 RowBox[{"(", 6070 RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "+", "\n", " ", 6071 RowBox[{"Dist", "[", 6072 RowBox[{ 6073 RowBox[{ 6074 RowBox[{"(", 6075 RowBox[{"p", "-", "1"}], ")"}], "/", "p"}], ",", 6076 RowBox[{"Int", "[", 6077 RowBox[{ 6078 RowBox[{ 6079 RowBox[{"x", "^", "m"}], "*", 6080 RowBox[{ 6081 RowBox[{"Cos", "[", 6082 RowBox[{"a", "+", 6083 RowBox[{"b", "*", 6084 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6085 RowBox[{"(", 6086 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 6087 " ", "-", "\n", " ", 6088 RowBox[{"Dist", "[", 6089 RowBox[{ 6090 RowBox[{ 6091 RowBox[{"(", 6092 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6093 RowBox[{ 6094 RowBox[{"(", 6095 RowBox[{"m", "-", 6096 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "/", 6097 RowBox[{"(", 6098 RowBox[{ 6099 RowBox[{"b", "^", "2"}], "*", 6100 RowBox[{"n", "^", "2"}], "*", 6101 RowBox[{"p", "^", "2"}]}], ")"}]}]}], ",", 6102 RowBox[{"Int", "[", 6103 RowBox[{ 6104 RowBox[{ 6105 RowBox[{"x", "^", 6106 RowBox[{"(", 6107 RowBox[{"m", "-", 6108 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 6109 RowBox[{ 6110 RowBox[{"Cos", "[", 6111 RowBox[{"a", "+", 6112 RowBox[{"b", "*", 6113 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 6114 "]"}]}], "]"}]}], " ", "/;", "\n", 6115 RowBox[{ 6116 RowBox[{"FreeQ", "[", 6117 RowBox[{ 6118 RowBox[{"{", 6119 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 6120 RowBox[{"IntegersQ", "[", 6121 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 6122 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6123 RowBox[{"p", ">", "1"}], " ", "&&", " ", 6124 RowBox[{"0", "<", 6125 RowBox[{"2", "*", "n"}], "<", 6126 RowBox[{"m", "+", "1"}]}]}]}]}]], "Code", 6127 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6128 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6129 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6130 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6131 3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 6132 3.4978139290053663`*^9, {3.4979216147765827`*^9, 3.497921644962636*^9}, 6133 3.4979841249029016`*^9, 3.5171906798126755`*^9}, 6134 Background->GrayLevel[0.85]], 6135 6136Cell["", "Subsubsection", 6137 CellDingbat->None, 6138 CellChangeTimes->{3.4796643211106243`*^9}], 6139 6140Cell[TextData[{ 6141 "Reference: G&R 2.643.1' special case ", 6142 "when", 6143 " ", 6144 Cell[BoxData[ 6145 RowBox[{ 6146 RowBox[{"m", "-", 6147 RowBox[{"2", "n"}], "+", "1"}], "=", "0"}]]] 6148}], "Subsubsection", 6149 CellChangeTimes->{ 6150 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6151 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6152 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 6153 3.4978151296270466`*^9, {3.4978151984471436`*^9, 3.497815198947144*^9}, { 6154 3.497815245177209*^9, 3.4978152639572353`*^9}, 3.498239518301781*^9, { 6155 3.4990388321634474`*^9, 3.4990388321634474`*^9}}], 6156 6157Cell[TextData[{ 6158 "Rule: If ", 6159 Cell[BoxData[ 6160 RowBox[{ 6161 RowBox[{ 6162 RowBox[{"p", "<", 6163 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 6164 RowBox[{"p", "\[NotEqual]", 6165 RowBox[{"-", "2"}]}], " ", "\[And]", " ", 6166 RowBox[{"m", "-", 6167 RowBox[{"2", "n"}], "+", "1"}]}], "=", "0"}]]], 6168 ", then" 6169}], "Subsubsection", 6170 CellDingbat->"\[FilledSmallSquare]", 6171 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 6172 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 6173 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 6174 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 6175 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 6176 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 6177 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 6178 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 6179 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 6180 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 6181 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 6182 3.4978119879026484`*^9}, {3.4978142081057568`*^9, 6183 3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, { 6184 3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.4990388354706535`*^9, 6185 3.4990388354706535`*^9}}], 6186 6187Cell[BoxData[ 6188 RowBox[{ 6189 RowBox[{"\[Integral]", 6190 RowBox[{ 6191 SuperscriptBox["x", "m"], 6192 SuperscriptBox[ 6193 RowBox[{"Sin", "[", 6194 RowBox[{"a", "+", 6195 RowBox[{"b", " ", 6196 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 6197 RowBox[{"\[DifferentialD]", 6198 RowBox[{ 6199 "x", " ", "\[LongRightArrow]", 6200 " \ 6201 ", "\[IndentingNewLine]", 6202 " ", 6203 FractionBox[ 6204 RowBox[{ 6205 SuperscriptBox["x", "n"], " ", 6206 RowBox[{"Cos", "[", 6207 RowBox[{"a", "+", 6208 RowBox[{"b", " ", 6209 SuperscriptBox["x", "n"]}]}], "]"}], " ", 6210 SuperscriptBox[ 6211 RowBox[{"Sin", "[", 6212 RowBox[{"a", "+", 6213 RowBox[{"b", " ", 6214 SuperscriptBox["x", "n"]}]}], "]"}], 6215 RowBox[{"p", "+", "1"}]]}], 6216 RowBox[{"b", " ", "n", " ", 6217 RowBox[{"(", 6218 RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 6219 FractionBox[ 6220 RowBox[{"n", " ", 6221 SuperscriptBox[ 6222 RowBox[{"Sin", "[", 6223 RowBox[{"a", "+", 6224 RowBox[{"b", " ", 6225 SuperscriptBox["x", "n"]}]}], "]"}], 6226 RowBox[{"p", "+", "2"}]]}], 6227 RowBox[{ 6228 SuperscriptBox["b", "2"], " ", 6229 SuperscriptBox["n", "2"], " ", 6230 RowBox[{"(", 6231 RowBox[{"p", "+", "1"}], ")"}], " ", 6232 RowBox[{"(", 6233 RowBox[{"p", "+", "2"}], ")"}]}]], "+", 6234 RowBox[{ 6235 FractionBox[ 6236 RowBox[{"p", "+", "2"}], 6237 RowBox[{"p", "+", "1"}]], 6238 RowBox[{"\[Integral]", 6239 RowBox[{ 6240 SuperscriptBox["x", "m"], " ", 6241 SuperscriptBox[ 6242 RowBox[{"Sin", "[", 6243 RowBox[{"a", "+", 6244 RowBox[{"b", " ", 6245 SuperscriptBox["x", "n"]}]}], "]"}], 6246 RowBox[{"p", "+", "2"}]], 6247 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 6248 CellDingbat->None, 6249 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 6250 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 6251 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 6252 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 6253 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 6254 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 6255 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 6256 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 6257 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 6258 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 6259 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 6260 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 6261 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 6262 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 6263 3.497814621316335*^9, 3.497814652296379*^9, {3.4978450924378033`*^9, 6264 3.4978451139778337`*^9}}, 6265 TextAlignment->Center, 6266 FontSize->12, 6267 FontWeight->"Bold"], 6268 6269Cell["Program code:", "Subsubsection", 6270 CellDingbat->"\[FilledSmallSquare]", 6271 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 6272 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 6273 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 6274 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 6275 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 6276 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 6277 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 6278 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 6279 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 6280 3.492805165713872*^9}}], 6281 6282Cell[BoxData[ 6283 RowBox[{ 6284 RowBox[{"Int", "[", 6285 RowBox[{ 6286 RowBox[{ 6287 RowBox[{"x_", "^", "m_."}], "*", 6288 RowBox[{ 6289 RowBox[{"Sin", "[", 6290 RowBox[{"a_.", "+", 6291 RowBox[{"b_.", "*", 6292 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 6293 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 6294 RowBox[{ 6295 RowBox[{ 6296 RowBox[{ 6297 RowBox[{"x", "^", "n"}], "*", 6298 RowBox[{"Cos", "[", 6299 RowBox[{"a", "+", 6300 RowBox[{"b", "*", 6301 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 6302 RowBox[{ 6303 RowBox[{ 6304 RowBox[{"Sin", "[", 6305 RowBox[{"a", "+", 6306 RowBox[{"b", "*", 6307 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6308 RowBox[{"(", 6309 RowBox[{"p", "+", "1"}], ")"}]}], "/", 6310 RowBox[{"(", 6311 RowBox[{"b", "*", "n", "*", 6312 RowBox[{"(", 6313 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 6314 " ", 6315 RowBox[{"n", "*", 6316 RowBox[{ 6317 RowBox[{ 6318 RowBox[{"Sin", "[", 6319 RowBox[{"a", "+", 6320 RowBox[{"b", "*", 6321 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6322 RowBox[{"(", 6323 RowBox[{"p", "+", "2"}], ")"}]}], "/", 6324 RowBox[{"(", 6325 RowBox[{ 6326 RowBox[{"b", "^", "2"}], "*", 6327 RowBox[{"n", "^", "2"}], "*", 6328 RowBox[{"(", 6329 RowBox[{"p", "+", "1"}], ")"}], "*", 6330 RowBox[{"(", 6331 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 6332 " ", 6333 RowBox[{"Dist", "[", 6334 RowBox[{ 6335 RowBox[{ 6336 RowBox[{"(", 6337 RowBox[{"p", "+", "2"}], ")"}], "/", 6338 RowBox[{"(", 6339 RowBox[{"p", "+", "1"}], ")"}]}], ",", 6340 RowBox[{"Int", "[", 6341 RowBox[{ 6342 RowBox[{ 6343 RowBox[{"x", "^", "m"}], "*", 6344 RowBox[{ 6345 RowBox[{"Sin", "[", 6346 RowBox[{"a", "+", 6347 RowBox[{"b", "*", 6348 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6349 RowBox[{"(", 6350 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 6351 " ", "/;", "\n", 6352 RowBox[{ 6353 RowBox[{"FreeQ", "[", 6354 RowBox[{ 6355 RowBox[{"{", 6356 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 6357 " ", "&&", " ", 6358 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6359 RowBox[{"p", "<", 6360 RowBox[{"-", "1"}]}], " ", "&&", " ", 6361 RowBox[{"p", "\[NotEqual]", 6362 RowBox[{"-", "2"}]}], " ", "&&", " ", 6363 RowBox[{"ZeroQ", "[", 6364 RowBox[{"m", "-", 6365 RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}]}]}]], "Code", 6366 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6367 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6368 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6369 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6370 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 6371 3.497813004784072*^9, 3.4978145150861864`*^9, {3.4990387195000496`*^9, 6372 3.499038720732452*^9}}, 6373 Background->GrayLevel[0.85]], 6374 6375Cell[TextData[{ 6376 "Reference: G&R 2.643.2' special case with ", 6377 Cell[BoxData[ 6378 RowBox[{ 6379 RowBox[{"m", "-", 6380 RowBox[{"2", "n"}], "+", "1"}], "=", "0"}]]] 6381}], "Subsubsection", 6382 CellChangeTimes->{ 6383 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6384 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6385 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 6386 3.4978151296270466`*^9, {3.4978151984471436`*^9, 3.497815198947144*^9}, { 6387 3.497815245177209*^9, 3.4978152639572353`*^9}, {3.4979843469224916`*^9, 6388 3.4979843472656918`*^9}, {3.4990389749348984`*^9, 3.4990389749348984`*^9}}], 6389 6390Cell[BoxData[ 6391 RowBox[{ 6392 RowBox[{"Int", "[", 6393 RowBox[{ 6394 RowBox[{ 6395 RowBox[{"x_", "^", "m_."}], "*", 6396 RowBox[{ 6397 RowBox[{"Cos", "[", 6398 RowBox[{"a_.", "+", 6399 RowBox[{"b_.", "*", 6400 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 6401 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 6402 RowBox[{ 6403 RowBox[{ 6404 RowBox[{ 6405 RowBox[{"-", 6406 RowBox[{"x", "^", "n"}]}], "*", 6407 RowBox[{"Sin", "[", 6408 RowBox[{"a", "+", 6409 RowBox[{"b", "*", 6410 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 6411 RowBox[{ 6412 RowBox[{ 6413 RowBox[{"Cos", "[", 6414 RowBox[{"a", "+", 6415 RowBox[{"b", "*", 6416 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6417 RowBox[{"(", 6418 RowBox[{"p", "+", "1"}], ")"}]}], "/", 6419 RowBox[{"(", 6420 RowBox[{"b", "*", "n", "*", 6421 RowBox[{"(", 6422 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 6423 " ", 6424 RowBox[{"n", "*", 6425 RowBox[{ 6426 RowBox[{ 6427 RowBox[{"Cos", "[", 6428 RowBox[{"a", "+", 6429 RowBox[{"b", "*", 6430 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6431 RowBox[{"(", 6432 RowBox[{"p", "+", "2"}], ")"}]}], "/", 6433 RowBox[{"(", 6434 RowBox[{ 6435 RowBox[{"b", "^", "2"}], "*", 6436 RowBox[{"n", "^", "2"}], "*", 6437 RowBox[{"(", 6438 RowBox[{"p", "+", "1"}], ")"}], "*", 6439 RowBox[{"(", 6440 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 6441 " ", 6442 RowBox[{"Dist", "[", 6443 RowBox[{ 6444 RowBox[{ 6445 RowBox[{"(", 6446 RowBox[{"p", "+", "2"}], ")"}], "/", 6447 RowBox[{"(", 6448 RowBox[{"p", "+", "1"}], ")"}]}], ",", 6449 RowBox[{"Int", "[", 6450 RowBox[{ 6451 RowBox[{ 6452 RowBox[{"x", "^", "m"}], "*", 6453 RowBox[{ 6454 RowBox[{"Cos", "[", 6455 RowBox[{"a", "+", 6456 RowBox[{"b", "*", 6457 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6458 RowBox[{"(", 6459 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 6460 " ", "/;", "\n", 6461 RowBox[{ 6462 RowBox[{"FreeQ", "[", 6463 RowBox[{ 6464 RowBox[{"{", 6465 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 6466 " ", "&&", " ", 6467 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6468 RowBox[{"p", "<", 6469 RowBox[{"-", "1"}]}], " ", "&&", " ", 6470 RowBox[{"p", "\[NotEqual]", 6471 RowBox[{"-", "2"}]}], " ", "&&", " ", 6472 RowBox[{"ZeroQ", "[", 6473 RowBox[{"m", "-", 6474 RowBox[{"2", "*", "n"}], "+", "1"}], "]"}]}]}]}]], "Code", 6475 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6476 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6477 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6478 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6479 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 6480 3.497813004784072*^9, 3.4978145150861864`*^9, {3.497921614792183*^9, 6481 3.4979216449782357`*^9}, 3.497984133248916*^9, {3.499038912690789*^9, 6482 3.4990389136735907`*^9}}, 6483 Background->GrayLevel[0.85]], 6484 6485Cell["", "Subsubsection", 6486 CellDingbat->None, 6487 CellChangeTimes->{3.4796643211106243`*^9}], 6488 6489Cell["Reference: G&R 2.643.1'", "Subsubsection", 6490 CellChangeTimes->{ 6491 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6492 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6493 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 6494 3.4978147490865145`*^9, 3.497815269747243*^9}], 6495 6496Cell[TextData[{ 6497 "Rule: If ", 6498 Cell[BoxData[ 6499 RowBox[{"m", ",", 6500 RowBox[{ 6501 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 6502 " ", 6503 RowBox[{"p", "<", 6504 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 6505 RowBox[{"p", "\[NotEqual]", 6506 RowBox[{"-", "2"}]}], " ", "\[And]", " ", 6507 RowBox[{"0", "<", 6508 RowBox[{"2", "n"}], "<", 6509 RowBox[{"m", "+", "1"}]}]}]}]]], 6510 ", then" 6511}], "Subsubsection", 6512 CellDingbat->"\[FilledSmallSquare]", 6513 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 6514 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 6515 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 6516 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 6517 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 6518 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 6519 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 6520 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 6521 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 6522 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 6523 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 6524 3.4978119879026484`*^9}, {3.4978142081057568`*^9, 6525 3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, { 6526 3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 6527 3.4978148883467093`*^9}}], 6528 6529Cell[BoxData[ 6530 RowBox[{ 6531 RowBox[{"\[Integral]", 6532 RowBox[{ 6533 SuperscriptBox["x", "m"], 6534 SuperscriptBox[ 6535 RowBox[{"Sin", "[", 6536 RowBox[{"a", "+", 6537 RowBox[{"b", " ", 6538 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 6539 RowBox[{"\[DifferentialD]", 6540 RowBox[{"x", " ", "\[LongRightArrow]", " ", 6541 FractionBox[ 6542 RowBox[{ 6543 SuperscriptBox["x", 6544 RowBox[{"m", "-", "n", "+", "1"}]], " ", 6545 RowBox[{"Cos", "[", 6546 RowBox[{"a", "+", 6547 RowBox[{"b", " ", 6548 SuperscriptBox["x", "n"]}]}], "]"}], " ", 6549 SuperscriptBox[ 6550 RowBox[{"Sin", "[", 6551 RowBox[{"a", "+", 6552 RowBox[{"b", " ", 6553 SuperscriptBox["x", "n"]}]}], "]"}], 6554 RowBox[{"p", "+", "1"}]]}], 6555 RowBox[{"b", " ", "n", " ", 6556 RowBox[{"(", 6557 RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 6558 FractionBox[ 6559 RowBox[{ 6560 RowBox[{"(", 6561 RowBox[{"m", "-", "n", "+", "1"}], ")"}], " ", 6562 SuperscriptBox["x", 6563 RowBox[{"m", "-", 6564 RowBox[{"2", " ", "n"}], "+", "1"}]], " ", 6565 SuperscriptBox[ 6566 RowBox[{"Sin", "[", 6567 RowBox[{"a", "+", 6568 RowBox[{"b", " ", 6569 SuperscriptBox["x", "n"]}]}], "]"}], 6570 RowBox[{"p", "+", "2"}]]}], 6571 RowBox[{ 6572 SuperscriptBox["b", "2"], " ", 6573 SuperscriptBox["n", "2"], " ", 6574 RowBox[{"(", 6575 RowBox[{"p", "+", "1"}], ")"}], " ", 6576 RowBox[{"(", 6577 RowBox[{"p", "+", "2"}], ")"}]}]], "+", " ", "\[IndentingNewLine]", 6578 " ", 6579 RowBox[{ 6580 FractionBox[ 6581 RowBox[{"p", "+", "2"}], 6582 RowBox[{"p", "+", "1"}]], 6583 RowBox[{"\[Integral]", 6584 RowBox[{ 6585 SuperscriptBox["x", "m"], " ", 6586 SuperscriptBox[ 6587 RowBox[{"Sin", "[", 6588 RowBox[{"a", "+", 6589 RowBox[{"b", " ", 6590 SuperscriptBox["x", "n"]}]}], "]"}], 6591 RowBox[{"p", "+", "2"}]], 6592 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 6593 RowBox[{ 6594 FractionBox[ 6595 RowBox[{ 6596 RowBox[{"(", 6597 RowBox[{"m", "-", "n", "+", "1"}], ")"}], " ", 6598 RowBox[{"(", 6599 RowBox[{"m", "-", 6600 RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}], 6601 RowBox[{ 6602 SuperscriptBox["b", "2"], " ", 6603 SuperscriptBox["n", "2"], " ", 6604 RowBox[{"(", 6605 RowBox[{"p", "+", "1"}], ")"}], " ", 6606 RowBox[{"(", 6607 RowBox[{"p", "+", "2"}], ")"}]}]], 6608 RowBox[{"\[Integral]", 6609 RowBox[{ 6610 SuperscriptBox["x", 6611 RowBox[{"m", "-", 6612 RowBox[{"2", " ", "n"}]}]], " ", 6613 SuperscriptBox[ 6614 RowBox[{"Sin", "[", 6615 RowBox[{"a", "+", 6616 RowBox[{"b", " ", 6617 SuperscriptBox["x", "n"]}]}], "]"}], 6618 RowBox[{"p", "+", "2"}]], 6619 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 6620 CellDingbat->None, 6621 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 6622 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 6623 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 6624 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 6625 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 6626 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 6627 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 6628 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 6629 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 6630 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 6631 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 6632 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 6633 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 6634 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 6635 3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 6636 3.4978148214266157`*^9}}, 6637 TextAlignment->Center, 6638 FontSize->12, 6639 FontWeight->"Bold"], 6640 6641Cell["Program code:", "Subsubsection", 6642 CellDingbat->"\[FilledSmallSquare]", 6643 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 6644 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 6645 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 6646 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 6647 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 6648 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 6649 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 6650 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 6651 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 6652 3.492805165713872*^9}}], 6653 6654Cell[BoxData[ 6655 RowBox[{ 6656 RowBox[{"Int", "[", 6657 RowBox[{ 6658 RowBox[{ 6659 RowBox[{"x_", "^", "m_."}], "*", 6660 RowBox[{ 6661 RowBox[{"Sin", "[", 6662 RowBox[{"a_.", "+", 6663 RowBox[{"b_.", "*", 6664 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 6665 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 6666 RowBox[{ 6667 RowBox[{ 6668 RowBox[{ 6669 RowBox[{"x", "^", 6670 RowBox[{"(", 6671 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 6672 RowBox[{"Cos", "[", 6673 RowBox[{"a", "+", 6674 RowBox[{"b", "*", 6675 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 6676 RowBox[{ 6677 RowBox[{ 6678 RowBox[{"Sin", "[", 6679 RowBox[{"a", "+", 6680 RowBox[{"b", "*", 6681 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6682 RowBox[{"(", 6683 RowBox[{"p", "+", "1"}], ")"}]}], "/", 6684 RowBox[{"(", 6685 RowBox[{"b", "*", "n", "*", 6686 RowBox[{"(", 6687 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 6688 RowBox[{ 6689 RowBox[{"(", 6690 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6691 RowBox[{"x", "^", 6692 RowBox[{"(", 6693 RowBox[{"m", "-", 6694 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], "*", 6695 RowBox[{ 6696 RowBox[{ 6697 RowBox[{"Sin", "[", 6698 RowBox[{"a", "+", 6699 RowBox[{"b", "*", 6700 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6701 RowBox[{"(", 6702 RowBox[{"p", "+", "2"}], ")"}]}], "/", 6703 RowBox[{"(", 6704 RowBox[{ 6705 RowBox[{"b", "^", "2"}], "*", 6706 RowBox[{"n", "^", "2"}], "*", 6707 RowBox[{"(", 6708 RowBox[{"p", "+", "1"}], ")"}], "*", 6709 RowBox[{"(", 6710 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 6711 RowBox[{"Dist", "[", 6712 RowBox[{ 6713 RowBox[{ 6714 RowBox[{"(", 6715 RowBox[{"p", "+", "2"}], ")"}], "/", 6716 RowBox[{"(", 6717 RowBox[{"p", "+", "1"}], ")"}]}], ",", 6718 RowBox[{"Int", "[", 6719 RowBox[{ 6720 RowBox[{ 6721 RowBox[{"x", "^", "m"}], "*", 6722 RowBox[{ 6723 RowBox[{"Sin", "[", 6724 RowBox[{"a", "+", 6725 RowBox[{"b", "*", 6726 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6727 RowBox[{"(", 6728 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 6729 " ", "+", "\n", " ", 6730 RowBox[{"Dist", "[", 6731 RowBox[{ 6732 RowBox[{ 6733 RowBox[{"(", 6734 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6735 RowBox[{ 6736 RowBox[{"(", 6737 RowBox[{"m", "-", 6738 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "/", 6739 RowBox[{"(", 6740 RowBox[{ 6741 RowBox[{"b", "^", "2"}], "*", 6742 RowBox[{"n", "^", "2"}], "*", 6743 RowBox[{"(", 6744 RowBox[{"p", "+", "1"}], ")"}], "*", 6745 RowBox[{"(", 6746 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], ",", 6747 RowBox[{"Int", "[", 6748 RowBox[{ 6749 RowBox[{ 6750 RowBox[{"x", "^", 6751 RowBox[{"(", 6752 RowBox[{"m", "-", 6753 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 6754 RowBox[{ 6755 RowBox[{"Sin", "[", 6756 RowBox[{"a", "+", 6757 RowBox[{"b", "*", 6758 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6759 RowBox[{"(", 6760 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 6761 " ", "/;", "\n", 6762 RowBox[{ 6763 RowBox[{"FreeQ", "[", 6764 RowBox[{ 6765 RowBox[{"{", 6766 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 6767 RowBox[{"IntegersQ", "[", 6768 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 6769 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6770 RowBox[{"p", "<", 6771 RowBox[{"-", "1"}]}], " ", "&&", " ", 6772 RowBox[{"p", "\[NotEqual]", 6773 RowBox[{"-", "2"}]}], " ", "&&", " ", 6774 RowBox[{"0", "<", 6775 RowBox[{"2", "*", "n"}], "<", 6776 RowBox[{"m", "+", "1", " "}]}]}]}]}]], "Code", 6777 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6778 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6779 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6780 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6781 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 6782 3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, { 6783 3.4990387261924615`*^9, 3.499038727643264*^9}, 3.5171906798126755`*^9}, 6784 Background->GrayLevel[0.85]], 6785 6786Cell["Reference: G&R 2.643.2", "Subsubsection", 6787 CellChangeTimes->{ 6788 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6789 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6790 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 6791 3.4978147490865145`*^9, 3.497815269747243*^9, {3.4979844049389935`*^9, 6792 3.4979844059685955`*^9}}], 6793 6794Cell[BoxData[ 6795 RowBox[{ 6796 RowBox[{"Int", "[", 6797 RowBox[{ 6798 RowBox[{ 6799 RowBox[{"x_", "^", "m_."}], "*", 6800 RowBox[{ 6801 RowBox[{"Cos", "[", 6802 RowBox[{"a_.", "+", 6803 RowBox[{"b_.", "*", 6804 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 6805 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 6806 RowBox[{ 6807 RowBox[{ 6808 RowBox[{ 6809 RowBox[{"-", 6810 RowBox[{"x", "^", 6811 RowBox[{"(", 6812 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 6813 RowBox[{"Sin", "[", 6814 RowBox[{"a", "+", 6815 RowBox[{"b", "*", 6816 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 6817 RowBox[{ 6818 RowBox[{ 6819 RowBox[{"Cos", "[", 6820 RowBox[{"a", "+", 6821 RowBox[{"b", "*", 6822 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6823 RowBox[{"(", 6824 RowBox[{"p", "+", "1"}], ")"}]}], "/", 6825 RowBox[{"(", 6826 RowBox[{"b", "*", "n", "*", 6827 RowBox[{"(", 6828 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 6829 RowBox[{ 6830 RowBox[{"(", 6831 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6832 RowBox[{"x", "^", 6833 RowBox[{"(", 6834 RowBox[{"m", "-", 6835 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}]}], "*", 6836 RowBox[{ 6837 RowBox[{ 6838 RowBox[{"Cos", "[", 6839 RowBox[{"a", "+", 6840 RowBox[{"b", "*", 6841 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6842 RowBox[{"(", 6843 RowBox[{"p", "+", "2"}], ")"}]}], "/", 6844 RowBox[{"(", 6845 RowBox[{ 6846 RowBox[{"b", "^", "2"}], "*", 6847 RowBox[{"n", "^", "2"}], "*", 6848 RowBox[{"(", 6849 RowBox[{"p", "+", "1"}], ")"}], "*", 6850 RowBox[{"(", 6851 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 6852 RowBox[{"Dist", "[", 6853 RowBox[{ 6854 RowBox[{ 6855 RowBox[{"(", 6856 RowBox[{"p", "+", "2"}], ")"}], "/", 6857 RowBox[{"(", 6858 RowBox[{"p", "+", "1"}], ")"}]}], ",", 6859 RowBox[{"Int", "[", 6860 RowBox[{ 6861 RowBox[{ 6862 RowBox[{"x", "^", "m"}], "*", 6863 RowBox[{ 6864 RowBox[{"Cos", "[", 6865 RowBox[{"a", "+", 6866 RowBox[{"b", "*", 6867 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6868 RowBox[{"(", 6869 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 6870 " ", "+", "\n", " ", 6871 RowBox[{"Dist", "[", 6872 RowBox[{ 6873 RowBox[{ 6874 RowBox[{"(", 6875 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "*", 6876 RowBox[{ 6877 RowBox[{"(", 6878 RowBox[{"m", "-", 6879 RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "/", 6880 RowBox[{"(", 6881 RowBox[{ 6882 RowBox[{"b", "^", "2"}], "*", 6883 RowBox[{"n", "^", "2"}], "*", 6884 RowBox[{"(", 6885 RowBox[{"p", "+", "1"}], ")"}], "*", 6886 RowBox[{"(", 6887 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], ",", 6888 RowBox[{"Int", "[", 6889 RowBox[{ 6890 RowBox[{ 6891 RowBox[{"x", "^", 6892 RowBox[{"(", 6893 RowBox[{"m", "-", 6894 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 6895 RowBox[{ 6896 RowBox[{"Cos", "[", 6897 RowBox[{"a", "+", 6898 RowBox[{"b", "*", 6899 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 6900 RowBox[{"(", 6901 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 6902 " ", "/;", "\n", 6903 RowBox[{ 6904 RowBox[{"FreeQ", "[", 6905 RowBox[{ 6906 RowBox[{"{", 6907 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 6908 RowBox[{"IntegersQ", "[", 6909 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 6910 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 6911 RowBox[{"p", "<", 6912 RowBox[{"-", "1"}]}], " ", "&&", " ", 6913 RowBox[{"p", "\[NotEqual]", 6914 RowBox[{"-", "2"}]}], " ", "&&", " ", 6915 RowBox[{"0", "<", 6916 RowBox[{"2", "*", "n"}], "<", 6917 RowBox[{"m", "+", "1", " "}]}]}]}]}]], "Code", 6918 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 6919 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 6920 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 6921 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 6922 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 6923 3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, { 6924 3.497921614823383*^9, 3.4979216450094357`*^9}, 3.4979841440597353`*^9, { 6925 3.4990389176671977`*^9, 3.4990389197420015`*^9}, 3.5171906798126755`*^9}, 6926 Background->GrayLevel[0.85]], 6927 6928Cell["", "Subsubsection", 6929 CellDingbat->None, 6930 CellChangeTimes->{3.4796643211106243`*^9}], 6931 6932Cell["Reference: G&R 2.638.1'", "Subsubsection", 6933 CellChangeTimes->{ 6934 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 6935 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 6936 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 6937 3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9}], 6938 6939Cell[TextData[{ 6940 "Rule: If ", 6941 Cell[BoxData[ 6942 RowBox[{"m", ",", 6943 RowBox[{ 6944 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 6945 " ", 6946 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 6947 RowBox[{"0", "<", 6948 RowBox[{"2", "n"}], "<", 6949 RowBox[{"1", "-", "m"}]}], " ", "\[And]", " ", 6950 RowBox[{ 6951 RowBox[{"m", "+", "n", "+", "1"}], "\[NotEqual]", "0"}]}]}]]], 6952 ", then" 6953}], "Subsubsection", 6954 CellDingbat->"\[FilledSmallSquare]", 6955 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 6956 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 6957 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 6958 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 6959 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 6960 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 6961 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 6962 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 6963 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 6964 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 6965 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 6966 3.4978119879026484`*^9}, {3.4978142081057568`*^9, 6967 3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, { 6968 3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 6969 3.4978148883467093`*^9}, {3.4978154312274694`*^9, 3.4978154608075104`*^9}}], 6970 6971Cell[BoxData[ 6972 RowBox[{ 6973 RowBox[{"\[Integral]", 6974 RowBox[{ 6975 SuperscriptBox["x", "m"], 6976 SuperscriptBox[ 6977 RowBox[{"Sin", "[", 6978 RowBox[{"a", "+", 6979 RowBox[{"b", " ", 6980 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 6981 RowBox[{"\[DifferentialD]", 6982 RowBox[{"x", " ", "\[LongRightArrow]", " ", 6983 FractionBox[ 6984 RowBox[{ 6985 SuperscriptBox["x", 6986 RowBox[{"m", "+", "1"}]], " ", 6987 SuperscriptBox[ 6988 RowBox[{"Sin", "[", 6989 RowBox[{"a", "+", 6990 RowBox[{"b", " ", 6991 SuperscriptBox["x", "n"]}]}], "]"}], "p"]}], 6992 RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 6993 FractionBox[ 6994 RowBox[{"b", " ", "n", " ", "p", " ", 6995 SuperscriptBox["x", 6996 RowBox[{"m", "+", "n", "+", "1"}]], " ", 6997 RowBox[{"Cos", "[", 6998 RowBox[{"a", "+", 6999 RowBox[{"b", " ", 7000 SuperscriptBox["x", "n"]}]}], "]"}], " ", 7001 SuperscriptBox[ 7002 RowBox[{"Sin", "[", 7003 RowBox[{"a", "+", 7004 RowBox[{"b", " ", 7005 SuperscriptBox["x", "n"]}]}], "]"}], 7006 RowBox[{"p", "-", "1"}]]}], 7007 RowBox[{ 7008 RowBox[{"(", 7009 RowBox[{"m", "+", "1"}], ")"}], " ", 7010 RowBox[{"(", 7011 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}]], "-", " ", 7012 "\[IndentingNewLine]", " ", 7013 RowBox[{ 7014 FractionBox[ 7015 RowBox[{ 7016 SuperscriptBox["b", "2"], " ", 7017 SuperscriptBox["n", "2"], " ", 7018 SuperscriptBox["p", "2"]}], 7019 RowBox[{ 7020 RowBox[{"(", 7021 RowBox[{"m", "+", "1"}], ")"}], " ", 7022 RowBox[{"(", 7023 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}]], 7024 RowBox[{"\[Integral]", 7025 RowBox[{ 7026 SuperscriptBox["x", 7027 RowBox[{"m", "+", 7028 RowBox[{"2", " ", "n"}]}]], " ", 7029 SuperscriptBox[ 7030 RowBox[{"Sin", "[", 7031 RowBox[{"a", "+", 7032 RowBox[{"b", " ", 7033 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 7034 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 7035 RowBox[{ 7036 FractionBox[ 7037 RowBox[{ 7038 SuperscriptBox["b", "2"], " ", 7039 SuperscriptBox["n", "2"], " ", "p", " ", 7040 RowBox[{"(", 7041 RowBox[{"p", "-", "1"}], ")"}]}], 7042 RowBox[{ 7043 RowBox[{"(", 7044 RowBox[{"m", "+", "1"}], ")"}], " ", 7045 RowBox[{"(", 7046 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}]], 7047 RowBox[{"\[Integral]", 7048 RowBox[{ 7049 SuperscriptBox["x", 7050 RowBox[{"m", "+", 7051 RowBox[{"2", " ", "n"}]}]], " ", 7052 SuperscriptBox[ 7053 RowBox[{"Sin", "[", 7054 RowBox[{"a", "+", 7055 RowBox[{"b", " ", 7056 SuperscriptBox["x", "n"]}]}], "]"}], 7057 RowBox[{"p", "-", "2"}]], 7058 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 7059 CellDingbat->None, 7060 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 7061 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 7062 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 7063 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 7064 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 7065 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 7066 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 7067 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 7068 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 7069 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 7070 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 7071 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 7072 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 7073 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 7074 3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 7075 3.4978148214266157`*^9}, {3.497815400257426*^9, 3.4978154119374423`*^9}, { 7076 3.497845142277873*^9, 3.4978451542978897`*^9}}, 7077 TextAlignment->Center, 7078 FontSize->12, 7079 FontWeight->"Bold"], 7080 7081Cell["Program code:", "Subsubsection", 7082 CellDingbat->"\[FilledSmallSquare]", 7083 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7084 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7085 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7086 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7087 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7088 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7089 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7090 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 7091 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 7092 3.492805165713872*^9}}], 7093 7094Cell[BoxData[ 7095 RowBox[{ 7096 RowBox[{"Int", "[", 7097 RowBox[{ 7098 RowBox[{ 7099 RowBox[{"x_", "^", "m_."}], "*", 7100 RowBox[{ 7101 RowBox[{"Sin", "[", 7102 RowBox[{"a_.", "+", 7103 RowBox[{"b_.", "*", 7104 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 7105 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 7106 RowBox[{ 7107 RowBox[{ 7108 RowBox[{ 7109 RowBox[{"x", "^", 7110 RowBox[{"(", 7111 RowBox[{"m", "+", "1"}], ")"}]}], "*", 7112 RowBox[{ 7113 RowBox[{ 7114 RowBox[{"Sin", "[", 7115 RowBox[{"a", "+", 7116 RowBox[{"b", "*", 7117 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 7118 RowBox[{"(", 7119 RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", " ", "\n", " ", 7120 RowBox[{"b", "*", "n", "*", "p", "*", 7121 RowBox[{"x", "^", 7122 RowBox[{"(", 7123 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], "*", 7124 RowBox[{"Cos", "[", 7125 RowBox[{"a", "+", 7126 RowBox[{"b", "*", 7127 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 7128 RowBox[{ 7129 RowBox[{ 7130 RowBox[{"Sin", "[", 7131 RowBox[{"a", "+", 7132 RowBox[{"b", "*", 7133 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 7134 RowBox[{"(", 7135 RowBox[{"p", "-", "1"}], ")"}]}], "/", 7136 RowBox[{"(", 7137 RowBox[{ 7138 RowBox[{"(", 7139 RowBox[{"m", "+", "1"}], ")"}], "*", 7140 RowBox[{"(", 7141 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 7142 "\n", " ", 7143 RowBox[{"Dist", "[", 7144 RowBox[{ 7145 RowBox[{ 7146 RowBox[{"b", "^", "2"}], "*", 7147 RowBox[{"n", "^", "2"}], "*", 7148 RowBox[{ 7149 RowBox[{"p", "^", "2"}], "/", 7150 RowBox[{"(", 7151 RowBox[{ 7152 RowBox[{"(", 7153 RowBox[{"m", "+", "1"}], ")"}], "*", 7154 RowBox[{"(", 7155 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], ",", 7156 RowBox[{"Int", "[", 7157 RowBox[{ 7158 RowBox[{ 7159 RowBox[{"x", "^", 7160 RowBox[{"(", 7161 RowBox[{"m", "+", 7162 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 7163 RowBox[{ 7164 RowBox[{"Sin", "[", 7165 RowBox[{"a", "+", 7166 RowBox[{"b", "*", 7167 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 7168 "]"}]}], "]"}], " ", "+", " ", "\n", " ", 7169 RowBox[{"Dist", "[", 7170 RowBox[{ 7171 RowBox[{ 7172 RowBox[{"b", "^", "2"}], "*", 7173 RowBox[{"n", "^", "2"}], "*", "p", "*", 7174 RowBox[{ 7175 RowBox[{"(", 7176 RowBox[{"p", "-", "1"}], ")"}], "/", 7177 RowBox[{"(", 7178 RowBox[{ 7179 RowBox[{"(", 7180 RowBox[{"m", "+", "1"}], ")"}], "*", 7181 RowBox[{"(", 7182 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], ",", 7183 RowBox[{"Int", "[", 7184 RowBox[{ 7185 RowBox[{ 7186 RowBox[{"x", "^", 7187 RowBox[{"(", 7188 RowBox[{"m", "+", 7189 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 7190 RowBox[{ 7191 RowBox[{"Sin", "[", 7192 RowBox[{"a", "+", 7193 RowBox[{"b", "*", 7194 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 7195 RowBox[{"(", 7196 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 7197 " ", "/;", "\n", 7198 RowBox[{ 7199 RowBox[{"FreeQ", "[", 7200 RowBox[{ 7201 RowBox[{"{", 7202 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 7203 RowBox[{"IntegersQ", "[", 7204 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 7205 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 7206 RowBox[{"p", ">", "1"}], " ", "&&", " ", 7207 RowBox[{"0", "<", 7208 RowBox[{"2", "*", "n"}], "<", 7209 RowBox[{"1", "-", "m"}]}], " ", "&&", " ", 7210 RowBox[{"NonzeroQ", "[", 7211 RowBox[{"m", "+", "n", "+", "1"}], "]"}]}]}]}]], "Code", 7212 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 7213 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 7214 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 7215 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 7216 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 7217 3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, 7218 3.4978153515773573`*^9, 3.5171906798282757`*^9}, 7219 Background->GrayLevel[0.85]], 7220 7221Cell["Reference: G&R 2.638.2'", "Subsubsection", 7222 CellChangeTimes->{ 7223 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7224 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 7225 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 7226 3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9, { 7227 3.4979844118186054`*^9, 3.497984412083806*^9}}], 7228 7229Cell[BoxData[ 7230 RowBox[{ 7231 RowBox[{"Int", "[", 7232 RowBox[{ 7233 RowBox[{ 7234 RowBox[{"x_", "^", "m_."}], "*", 7235 RowBox[{ 7236 RowBox[{"Cos", "[", 7237 RowBox[{"a_.", "+", 7238 RowBox[{"b_.", "*", 7239 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 7240 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 7241 RowBox[{ 7242 RowBox[{ 7243 RowBox[{ 7244 RowBox[{"x", "^", 7245 RowBox[{"(", 7246 RowBox[{"m", "+", "1"}], ")"}]}], "*", 7247 RowBox[{ 7248 RowBox[{ 7249 RowBox[{"Cos", "[", 7250 RowBox[{"a", "+", 7251 RowBox[{"b", "*", 7252 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 7253 RowBox[{"(", 7254 RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "+", " ", "\n", " ", 7255 RowBox[{"b", "*", "n", "*", "p", "*", 7256 RowBox[{"x", "^", 7257 RowBox[{"(", 7258 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], "*", 7259 RowBox[{"Sin", "[", 7260 RowBox[{"a", "+", 7261 RowBox[{"b", "*", 7262 RowBox[{"x", "^", "n"}]}]}], "]"}], "*", 7263 RowBox[{ 7264 RowBox[{ 7265 RowBox[{"Cos", "[", 7266 RowBox[{"a", "+", 7267 RowBox[{"b", "*", 7268 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 7269 RowBox[{"(", 7270 RowBox[{"p", "-", "1"}], ")"}]}], "/", 7271 RowBox[{"(", 7272 RowBox[{ 7273 RowBox[{"(", 7274 RowBox[{"m", "+", "1"}], ")"}], "*", 7275 RowBox[{"(", 7276 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 7277 "\n", " ", 7278 RowBox[{"Dist", "[", 7279 RowBox[{ 7280 RowBox[{ 7281 RowBox[{"b", "^", "2"}], "*", 7282 RowBox[{"n", "^", "2"}], "*", 7283 RowBox[{ 7284 RowBox[{"p", "^", "2"}], "/", 7285 RowBox[{"(", 7286 RowBox[{ 7287 RowBox[{"(", 7288 RowBox[{"m", "+", "1"}], ")"}], "*", 7289 RowBox[{"(", 7290 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], ",", 7291 RowBox[{"Int", "[", 7292 RowBox[{ 7293 RowBox[{ 7294 RowBox[{"x", "^", 7295 RowBox[{"(", 7296 RowBox[{"m", "+", 7297 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 7298 RowBox[{ 7299 RowBox[{"Cos", "[", 7300 RowBox[{"a", "+", 7301 RowBox[{"b", "*", 7302 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 7303 "]"}]}], "]"}], " ", "+", " ", "\n", " ", 7304 RowBox[{"Dist", "[", 7305 RowBox[{ 7306 RowBox[{ 7307 RowBox[{"b", "^", "2"}], "*", 7308 RowBox[{"n", "^", "2"}], "*", "p", "*", 7309 RowBox[{ 7310 RowBox[{"(", 7311 RowBox[{"p", "-", "1"}], ")"}], "/", 7312 RowBox[{"(", 7313 RowBox[{ 7314 RowBox[{"(", 7315 RowBox[{"m", "+", "1"}], ")"}], "*", 7316 RowBox[{"(", 7317 RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], ",", 7318 RowBox[{"Int", "[", 7319 RowBox[{ 7320 RowBox[{ 7321 RowBox[{"x", "^", 7322 RowBox[{"(", 7323 RowBox[{"m", "+", 7324 RowBox[{"2", "*", "n"}]}], ")"}]}], "*", 7325 RowBox[{ 7326 RowBox[{"Cos", "[", 7327 RowBox[{"a", "+", 7328 RowBox[{"b", "*", 7329 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 7330 RowBox[{"(", 7331 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 7332 " ", "/;", "\n", 7333 RowBox[{ 7334 RowBox[{"FreeQ", "[", 7335 RowBox[{ 7336 RowBox[{"{", 7337 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 7338 RowBox[{"IntegersQ", "[", 7339 RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 7340 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 7341 RowBox[{"p", ">", "1"}], " ", "&&", " ", 7342 RowBox[{"0", "<", 7343 RowBox[{"2", "*", "n"}], "<", 7344 RowBox[{"1", "-", "m"}]}], " ", "&&", " ", 7345 RowBox[{"NonzeroQ", "[", 7346 RowBox[{"m", "+", "n", "+", "1"}], "]"}]}]}]}]], "Code", 7347 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 7348 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 7349 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 7350 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 7351 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 7352 3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, 7353 3.4978153515773573`*^9, {3.4979216148389826`*^9, 3.497921645025036*^9}, 7354 3.4979841554789553`*^9, 3.5171906798282757`*^9}, 7355 Background->GrayLevel[0.85]], 7356 7357Cell["", "Subsubsection", 7358 CellDingbat->None, 7359 CellChangeTimes->{3.4796643211106243`*^9}], 7360 7361Cell["Derivation: Algebraic expansion", "Subsubsection", 7362 CellChangeTimes->{ 7363 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7364 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 7365 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 7366 3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9, 7367 3.497815549677635*^9}], 7368 7369Cell[TextData[{ 7370 "Basis: ", 7371 Cell[BoxData[ 7372 RowBox[{ 7373 RowBox[{"Sin", "[", "z", "]"}], "=", 7374 RowBox[{ 7375 RowBox[{ 7376 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 7377 SuperscriptBox["\[ExponentialE]", 7378 RowBox[{ 7379 RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "-", 7380 RowBox[{ 7381 FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 7382 SuperscriptBox["\[ExponentialE]", 7383 RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]] 7384}], "Subsubsection", 7385 CellChangeTimes->{ 7386 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7387 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 7388 3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 7389 3.497811560037646*^9, 3.497811810187996*^9, 3.4978123204031143`*^9}], 7390 7391Cell["Note: Not sure if this is useful or necessary.", "Subsubsection", 7392 CellChangeTimes->{ 7393 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7394 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 7395 3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 7396 3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9, 7397 3.497815549677635*^9, {3.497815598457703*^9, 3.497815626807743*^9}}], 7398 7399Cell[TextData[{ 7400 "Rule: If ", 7401 Cell[BoxData[ 7402 RowBox[{ 7403 RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 7404 RowBox[{"p", ">", "0"}], " ", "\[And]", " ", 7405 RowBox[{ 7406 RowBox[{"m", "+", "1"}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 7407 RowBox[{ 7408 RowBox[{"m", "-", "n", "+", "1"}], "\[NotEqual]", "0"}]}]]], 7409 ", then" 7410}], "Subsubsection", 7411 CellDingbat->"\[FilledSmallSquare]", 7412 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7413 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7414 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7415 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7416 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7417 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7418 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7419 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 7420 3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 7421 3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, { 7422 3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 7423 3.4978119879026484`*^9}, {3.4978142081057568`*^9, 7424 3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, { 7425 3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 7426 3.4978148883467093`*^9}, {3.4978154312274694`*^9, 7427 3.4978154608075104`*^9}, {3.4978157279078846`*^9, 3.4978157608579307`*^9}}], 7428 7429Cell[BoxData[ 7430 RowBox[{"\[Integral]", 7431 RowBox[{ 7432 SuperscriptBox["x", "m"], 7433 SuperscriptBox[ 7434 RowBox[{"Sin", "[", 7435 RowBox[{"a", "+", 7436 RowBox[{"b", " ", 7437 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 7438 RowBox[{"\[DifferentialD]", 7439 RowBox[{"x", " ", "\[LongRightArrow]", " ", 7440 SuperscriptBox[ 7441 RowBox[{"(", 7442 FractionBox["\[ImaginaryI]", "2"], ")"}], "p"]}]}], 7443 RowBox[{"\[Integral]", 7444 RowBox[{ 7445 SuperscriptBox["x", "m"], " ", 7446 SuperscriptBox[ 7447 RowBox[{"(", 7448 RowBox[{ 7449 SuperscriptBox["\[ExponentialE]", 7450 RowBox[{ 7451 RowBox[{ 7452 RowBox[{"-", "a"}], " ", "\[ImaginaryI]"}], "-", 7453 RowBox[{"b", " ", "\[ImaginaryI]", " ", 7454 SuperscriptBox["x", "n"]}]}]], "-", 7455 SuperscriptBox["\[ExponentialE]", 7456 RowBox[{ 7457 RowBox[{"a", " ", "\[ImaginaryI]"}], "+", 7458 RowBox[{"b", " ", "\[ImaginaryI]", " ", 7459 SuperscriptBox["x", "n"]}]}]]}], ")"}], "p"], 7460 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 7461 CellDingbat->None, 7462 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 7463 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 7464 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 7465 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 7466 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 7467 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 7468 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 7469 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 7470 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 7471 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 7472 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 7473 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 7474 3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 7475 3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 7476 3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 7477 3.4978148214266157`*^9}, {3.497815400257426*^9, 3.4978154119374423`*^9}, 7478 3.4978156594677887`*^9}, 7479 TextAlignment->Center, 7480 FontSize->12, 7481 FontWeight->"Bold"], 7482 7483Cell["Program code:", "Subsubsection", 7484 CellDingbat->"\[FilledSmallSquare]", 7485 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7486 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7487 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7488 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7489 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7490 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7491 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7492 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 7493 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 7494 3.492805165713872*^9}}], 7495 7496Cell[BoxData[ 7497 RowBox[{"(*", " ", 7498 RowBox[{ 7499 RowBox[{"Int", "[", 7500 RowBox[{ 7501 RowBox[{ 7502 RowBox[{"x_", "^", "m_."}], "*", 7503 RowBox[{ 7504 RowBox[{"Sin", "[", 7505 RowBox[{"a_.", "+", 7506 RowBox[{"b_.", "*", 7507 RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}]}], ",", 7508 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 7509 RowBox[{ 7510 RowBox[{"Dist", "[", 7511 RowBox[{ 7512 RowBox[{ 7513 RowBox[{"(", 7514 RowBox[{"I", "/", "2"}], ")"}], "^", "p"}], ",", 7515 RowBox[{"Int", "[", 7516 RowBox[{ 7517 RowBox[{ 7518 RowBox[{"x", "^", "m"}], "*", 7519 RowBox[{ 7520 RowBox[{"(", 7521 RowBox[{ 7522 RowBox[{"E", "^", 7523 RowBox[{"(", 7524 RowBox[{ 7525 RowBox[{ 7526 RowBox[{"-", "a"}], "*", "I"}], "-", 7527 RowBox[{"b", "*", "I", "*", 7528 RowBox[{"x", "^", "n"}]}]}], ")"}]}], "-", 7529 RowBox[{"E", "^", 7530 RowBox[{"(", 7531 RowBox[{ 7532 RowBox[{"a", "*", "I"}], "+", 7533 RowBox[{"b", "*", "I", "*", 7534 RowBox[{"x", "^", "n"}]}]}], ")"}]}]}], ")"}], "^", "p"}]}], 7535 ",", "x"}], "]"}]}], "]"}], " ", "/;", "\n", 7536 RowBox[{ 7537 RowBox[{"FreeQ", "[", 7538 RowBox[{ 7539 RowBox[{"{", 7540 RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 7541 " ", "&&", " ", 7542 RowBox[{"IntegerQ", "[", "p", "]"}], " ", "&&", " ", 7543 RowBox[{"p", ">", "0"}], " ", "&&", " ", 7544 RowBox[{"NonzeroQ", "[", 7545 RowBox[{"m", "+", "1"}], "]"}], " ", "&&", " ", 7546 RowBox[{"NonzeroQ", "[", 7547 RowBox[{"m", "-", "n", "+", "1"}], "]"}], " ", "&&", " ", 7548 RowBox[{"Not", "[", 7549 RowBox[{ 7550 RowBox[{"FractionQ", "[", "m", "]"}], " ", "||", " ", 7551 RowBox[{"FractionOrNegativeQ", "[", "n", "]"}]}], "]"}]}]}]}], " ", 7552 "*)"}]], "Code", 7553 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 7554 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 7555 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 7556 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 7557 3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 7558 3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, 7559 3.4978153515773573`*^9, 3.4978155440176272`*^9}, 7560 Background->GrayLevel[0.85]], 7561 7562Cell["", "PageBreak", 7563 PageBreakBelow->True] 7564}, Closed]], 7565 7566Cell[CellGroupData[{ 7567 7568Cell[BoxData[ 7569 RowBox[{"\[Integral]", 7570 RowBox[{ 7571 SuperscriptBox["x", "m"], " ", 7572 SuperscriptBox[ 7573 RowBox[{"Sin", "[", 7574 RowBox[{"a", "+", 7575 RowBox[{"b", " ", 7576 SuperscriptBox[ 7577 RowBox[{"(", 7578 RowBox[{"c", "+", 7579 RowBox[{"d", " ", "x"}]}], ")"}], "n"]}]}], "]"}], "p"], 7580 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 7581 CellDingbat->None, 7582 CellChangeTimes->{ 7583 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 7584 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 7585 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 7586 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 7587 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 7588 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 7589 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 7590 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 7591 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 7592 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 7593 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 7594 3.49781110611701*^9, 3.497812987564048*^9, 3.4978161062384143`*^9}, 7595 TextAlignment->Center, 7596 FontSize->20, 7597 FontWeight->"Bold"], 7598 7599Cell["Derivation: Integration by linear substitution", "Subsubsection", 7600 CellChangeTimes->{ 7601 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7602 3.496528894323882*^9, 3.497575979956957*^9, 3.4978130316141095`*^9, 7603 3.497816126028442*^9, {3.497816232328591*^9, 3.4978162335785923`*^9}}], 7604 7605Cell[TextData[{ 7606 "Rule: If ", 7607 Cell[BoxData[ 7608 RowBox[{ 7609 RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 7610 RowBox[{"m", ">", "0"}], " ", "\[And]", " ", 7611 RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalQ]"}]}]]], 7612 ", then" 7613}], "Subsubsection", 7614 CellDingbat->"\[FilledSmallSquare]", 7615 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7616 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7617 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7618 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7619 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7620 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7621 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7622 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 7623 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 7624 3.496528833243797*^9, {3.4978130900441914`*^9, 3.4978131572642856`*^9}, { 7625 3.497813348754554*^9, 3.49781336751458*^9}, {3.497814099895605*^9, 7626 3.497814106035614*^9}, {3.497816281168659*^9, 3.49781629615868*^9}}], 7627 7628Cell[BoxData[ 7629 RowBox[{"\[Integral]", 7630 RowBox[{ 7631 SuperscriptBox["x", "m"], " ", 7632 SuperscriptBox[ 7633 RowBox[{"Sin", "[", 7634 RowBox[{"a", "+", 7635 RowBox[{"b", " ", 7636 SuperscriptBox[ 7637 RowBox[{"(", 7638 RowBox[{"c", "+", 7639 RowBox[{"d", " ", "x"}]}], ")"}], "n"]}]}], "]"}], "p"], 7640 RowBox[{"\[DifferentialD]", 7641 RowBox[{"x", " ", "\[LongRightArrow]", " ", 7642 FractionBox["1", "d"]}]}], 7643 RowBox[{"Subst", "[", 7644 RowBox[{ 7645 RowBox[{"\[Integral]", 7646 RowBox[{ 7647 SuperscriptBox[ 7648 RowBox[{"(", 7649 RowBox[{ 7650 RowBox[{"-", 7651 FractionBox["c", "d"]}], "+", 7652 FractionBox["x", "d"]}], ")"}], "m"], " ", 7653 SuperscriptBox[ 7654 RowBox[{"Sin", "[", 7655 RowBox[{"a", "+", 7656 RowBox[{"b", " ", 7657 SuperscriptBox["x", "n"]}]}], "]"}], "p"], 7658 RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 7659 RowBox[{"c", "+", 7660 RowBox[{"d", " ", "x"}]}]}], "]"}]}]}]], "Subsubtitle", 7661 CellDingbat->None, 7662 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 7663 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 7664 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 7665 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 7666 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 7667 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 7668 3.497810026705499*^9}, {3.497811202387145*^9, 3.497811226367179*^9}, { 7669 3.4978114144974422`*^9, 3.4978114162574444`*^9}, {3.497813065384157*^9, 7670 3.4978130749041705`*^9}, {3.4978133280245247`*^9, 7671 3.4978133437345467`*^9}, {3.497813396744621*^9, 3.4978134492246943`*^9}, { 7672 3.4978162571586256`*^9, 3.497816269458643*^9}}, 7673 TextAlignment->Center, 7674 FontSize->12, 7675 FontWeight->"Bold"], 7676 7677Cell["Program code:", "Subsubsection", 7678 CellDingbat->"\[FilledSmallSquare]", 7679 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7680 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7681 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7682 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7683 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7684 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7685 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7686 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 7687 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 7688 3.492805165713872*^9}}], 7689 7690Cell[BoxData[ 7691 RowBox[{ 7692 RowBox[{"Int", "[", 7693 RowBox[{ 7694 RowBox[{ 7695 RowBox[{"x_", "^", "m_."}], "*", 7696 RowBox[{ 7697 RowBox[{"Sin", "[", 7698 RowBox[{"a_.", "+", 7699 RowBox[{"b_.", "*", 7700 RowBox[{ 7701 RowBox[{"(", 7702 RowBox[{"c_", "+", 7703 RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "n_"}]}]}], "]"}], "^", 7704 "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 7705 RowBox[{ 7706 RowBox[{"Dist", "[", 7707 RowBox[{ 7708 RowBox[{"1", "/", "d"}], ",", 7709 RowBox[{"Subst", "[", 7710 RowBox[{ 7711 RowBox[{"Int", "[", 7712 RowBox[{ 7713 RowBox[{ 7714 RowBox[{ 7715 RowBox[{"(", 7716 RowBox[{ 7717 RowBox[{ 7718 RowBox[{"-", "c"}], "/", "d"}], "+", 7719 RowBox[{"x", "/", "d"}]}], ")"}], "^", "m"}], "*", 7720 RowBox[{ 7721 RowBox[{"Sin", "[", 7722 RowBox[{"a", "+", 7723 RowBox[{"b", "*", 7724 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 7725 "]"}], ",", "x", ",", 7726 RowBox[{"c", "+", 7727 RowBox[{"d", "*", "x"}]}]}], "]"}]}], "]"}], " ", "/;", "\n", 7728 RowBox[{ 7729 RowBox[{"FreeQ", "[", 7730 RowBox[{ 7731 RowBox[{"{", 7732 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 7733 "x"}], "]"}], " ", "&&", " ", 7734 RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 7735 RowBox[{"m", ">", "0"}], " ", "&&", " ", 7736 RowBox[{"RationalQ", "[", "p", "]"}]}]}]}]], "Code", 7737 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 7738 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 7739 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 7740 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, 7741 3.4978130235240984`*^9, {3.4978134985547633`*^9, 3.497813609294918*^9}, 7742 3.497816116228428*^9}, 7743 Background->GrayLevel[0.85]], 7744 7745Cell[BoxData[ 7746 RowBox[{ 7747 RowBox[{"Int", "[", 7748 RowBox[{ 7749 RowBox[{ 7750 RowBox[{"x_", "^", "m_."}], "*", 7751 RowBox[{ 7752 RowBox[{"Cos", "[", 7753 RowBox[{"a_.", "+", 7754 RowBox[{"b_.", "*", 7755 RowBox[{ 7756 RowBox[{"(", 7757 RowBox[{"c_", "+", 7758 RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "n_"}]}]}], "]"}], "^", 7759 "p_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 7760 RowBox[{ 7761 RowBox[{"Dist", "[", 7762 RowBox[{ 7763 RowBox[{"1", "/", "d"}], ",", 7764 RowBox[{"Subst", "[", 7765 RowBox[{ 7766 RowBox[{"Int", "[", 7767 RowBox[{ 7768 RowBox[{ 7769 RowBox[{ 7770 RowBox[{"(", 7771 RowBox[{ 7772 RowBox[{ 7773 RowBox[{"-", "c"}], "/", "d"}], "+", 7774 RowBox[{"x", "/", "d"}]}], ")"}], "^", "m"}], "*", 7775 RowBox[{ 7776 RowBox[{"Cos", "[", 7777 RowBox[{"a", "+", 7778 RowBox[{"b", "*", 7779 RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 7780 "]"}], ",", "x", ",", 7781 RowBox[{"c", "+", 7782 RowBox[{"d", "*", "x"}]}]}], "]"}]}], "]"}], " ", "/;", "\n", 7783 RowBox[{ 7784 RowBox[{"FreeQ", "[", 7785 RowBox[{ 7786 RowBox[{"{", 7787 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 7788 "x"}], "]"}], " ", "&&", " ", 7789 RowBox[{"IntegerQ", "[", "m", "]"}], " ", "&&", " ", 7790 RowBox[{"m", ">", "0"}], " ", "&&", " ", 7791 RowBox[{"RationalQ", "[", "p", "]"}]}]}]}]], "Code", 7792 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 7793 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 7794 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 7795 3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, 7796 3.4978130235240984`*^9, {3.4978134985547633`*^9, 3.497813609294918*^9}, 7797 3.497816116228428*^9, {3.4979216304390106`*^9, 3.4979216304390106`*^9}, 7798 3.4979845428120356`*^9}, 7799 Background->GrayLevel[0.85]], 7800 7801Cell["", "PageBreak", 7802 PageBreakBelow->True] 7803}, Closed]], 7804 7805Cell[CellGroupData[{ 7806 7807Cell[BoxData[ 7808 RowBox[{"\[Integral]", 7809 RowBox[{ 7810 RowBox[{"Sin", "[", 7811 RowBox[{"a", "+", 7812 RowBox[{"b", " ", "x"}], "+", 7813 RowBox[{"c", " ", 7814 SuperscriptBox["x", "2"]}]}], "]"}], 7815 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 7816 CellDingbat->None, 7817 CellChangeTimes->{ 7818 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 7819 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 7820 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 7821 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 7822 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 7823 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 7824 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 7825 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 7826 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 7827 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 7828 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 7829 3.497816868100286*^9}, 7830 TextAlignment->Center, 7831 FontSize->20, 7832 FontWeight->"Bold"], 7833 7834Cell["Derivation: Algebraic simplification", "Subsubsection", 7835 CellChangeTimes->{ 7836 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7837 3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 7838 3.497816948440398*^9}}], 7839 7840Cell[TextData[{ 7841 "Basis: ", 7842 "If ", 7843 Cell[BoxData[ 7844 RowBox[{ 7845 RowBox[{ 7846 SuperscriptBox["b", "2"], "-", 7847 RowBox[{"4", " ", "a", " ", "c"}]}], "=", "0"}]]], 7848 ", then ", 7849 Cell[BoxData[ 7850 RowBox[{ 7851 RowBox[{"a", "+", 7852 RowBox[{"b", " ", "x"}], "+", 7853 RowBox[{"c", " ", 7854 SuperscriptBox["x", "2"]}]}], "=", 7855 FractionBox[ 7856 SuperscriptBox[ 7857 RowBox[{"(", 7858 RowBox[{"b", "+", 7859 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}], "2"], 7860 RowBox[{"4", " ", "c"}]]}]]] 7861}], "Subsubsection", 7862 CellChangeTimes->{ 7863 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 7864 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 7865 3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}}], 7866 7867Cell[TextData[{ 7868 "Rule: If ", 7869 Cell[BoxData[ 7870 RowBox[{ 7871 RowBox[{ 7872 SuperscriptBox["b", "2"], "-", 7873 RowBox[{"4", " ", "a", " ", "c"}]}], "=", "0"}]]], 7874 ", then" 7875}], "Subsubsection", 7876 CellDingbat->"\[FilledSmallSquare]", 7877 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7878 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7879 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7880 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7881 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7882 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7883 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7884 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 7885 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 7886 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}}], 7887 7888Cell[BoxData[ 7889 RowBox[{"\[Integral]", 7890 RowBox[{ 7891 RowBox[{"Sin", "[", 7892 RowBox[{"a", "+", 7893 RowBox[{"b", " ", "x"}], "+", 7894 RowBox[{"c", " ", 7895 SuperscriptBox["x", "2"]}]}], "]"}], 7896 RowBox[{"\[DifferentialD]", 7897 RowBox[{"x", " ", "\[LongRightArrow]", " ", 7898 RowBox[{"\[Integral]", 7899 RowBox[{ 7900 RowBox[{"Sin", "[", 7901 FractionBox[ 7902 SuperscriptBox[ 7903 RowBox[{"(", 7904 RowBox[{"b", "+", 7905 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}], "2"], 7906 RowBox[{"4", " ", "c"}]], "]"}], 7907 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle", 7908 CellDingbat->None, 7909 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 7910 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 7911 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 7912 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 7913 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 7914 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 7915 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9}, 7916 TextAlignment->Center, 7917 FontSize->12, 7918 FontWeight->"Bold"], 7919 7920Cell["Program code:", "Subsubsection", 7921 CellDingbat->"\[FilledSmallSquare]", 7922 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 7923 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 7924 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 7925 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 7926 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 7927 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 7928 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 7929 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 7930 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 7931 3.492805165713872*^9}}], 7932 7933Cell[BoxData[ 7934 RowBox[{ 7935 RowBox[{"Int", "[", 7936 RowBox[{ 7937 RowBox[{"Sin", "[", 7938 RowBox[{"a_.", "+", 7939 RowBox[{"b_.", "*", "x_"}], "+", 7940 RowBox[{"c_.", "*", 7941 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 7942 "\n", " ", 7943 RowBox[{ 7944 RowBox[{"Int", "[", 7945 RowBox[{ 7946 RowBox[{"Sin", "[", 7947 RowBox[{ 7948 RowBox[{ 7949 RowBox[{"(", 7950 RowBox[{"b", "+", 7951 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 7952 RowBox[{"(", 7953 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}], " ", "/;", 7954 "\n", 7955 RowBox[{ 7956 RowBox[{"FreeQ", "[", 7957 RowBox[{ 7958 RowBox[{"{", 7959 RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&", 7960 " ", 7961 RowBox[{"ZeroQ", "[", 7962 RowBox[{ 7963 RowBox[{"b", "^", "2"}], "-", 7964 RowBox[{"4", "*", "a", "*", "c"}]}], "]"}]}]}]}]], "Code", 7965 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 7966 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 7967 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 7968 3.497816883330307*^9}, 7969 Background->GrayLevel[0.85]], 7970 7971Cell[BoxData[ 7972 RowBox[{ 7973 RowBox[{"Int", "[", 7974 RowBox[{ 7975 RowBox[{"Cos", "[", 7976 RowBox[{"a_.", "+", 7977 RowBox[{"b_.", "*", "x_"}], "+", 7978 RowBox[{"c_.", "*", 7979 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 7980 "\n", " ", 7981 RowBox[{ 7982 RowBox[{"Int", "[", 7983 RowBox[{ 7984 RowBox[{"Cos", "[", 7985 RowBox[{ 7986 RowBox[{ 7987 RowBox[{"(", 7988 RowBox[{"b", "+", 7989 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 7990 RowBox[{"(", 7991 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}], " ", "/;", 7992 "\n", 7993 RowBox[{ 7994 RowBox[{"FreeQ", "[", 7995 RowBox[{ 7996 RowBox[{"{", 7997 RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&", 7998 " ", 7999 RowBox[{"ZeroQ", "[", 8000 RowBox[{ 8001 RowBox[{"b", "^", "2"}], "-", 8002 RowBox[{"4", "*", "a", "*", "c"}]}], "]"}]}]}]}]], "Code", 8003 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 8004 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 8005 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 8006 3.497816883330307*^9, {3.49792163047021*^9, 3.49792163047021*^9}, 8007 3.497984621592174*^9}, 8008 Background->GrayLevel[0.85]], 8009 8010Cell["", "Subsubsection", 8011 CellDingbat->None, 8012 CellChangeTimes->{3.4796643211106243`*^9}], 8013 8014Cell["Derivation: Algebraic expansion", "Subsubsection", 8015 CellChangeTimes->{ 8016 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 8017 3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}], 8018 8019Cell[TextData[{ 8020 "Basis: ", 8021 Cell[BoxData[ 8022 RowBox[{ 8023 RowBox[{"a", "+", 8024 RowBox[{"b", " ", "x"}], "+", 8025 RowBox[{"c", " ", 8026 SuperscriptBox["x", "2"]}]}], "=", 8027 RowBox[{ 8028 FractionBox[ 8029 SuperscriptBox[ 8030 RowBox[{"(", 8031 RowBox[{"b", "+", 8032 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}], "2"], 8033 RowBox[{"4", " ", "c"}]], "-", 8034 FractionBox[ 8035 RowBox[{ 8036 SuperscriptBox["b", "2"], "-", 8037 RowBox[{"4", " ", "a", " ", "c"}]}], 8038 RowBox[{"4", " ", "c"}]]}]}]]] 8039}], "Subsubsection", 8040 CellChangeTimes->{ 8041 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 8042 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 8043 3.497809962345409*^9, 3.4978100933655925`*^9, {3.497817065230562*^9, 8044 3.4978170909905977`*^9}}], 8045 8046Cell[TextData[{ 8047 "Basis: ", 8048 Cell[BoxData[ 8049 RowBox[{ 8050 RowBox[{"Sin", "[", 8051 RowBox[{"z", "-", "w"}], "]"}], "=", 8052 RowBox[{ 8053 RowBox[{ 8054 RowBox[{"Cos", "[", "w", "]"}], " ", 8055 RowBox[{"Sin", "[", "z", "]"}]}], "-", 8056 RowBox[{ 8057 RowBox[{"Sin", "[", "w", "]"}], " ", 8058 RowBox[{"Cos", "[", "z", "]"}]}]}]}]]] 8059}], "Subsubsection", 8060 CellChangeTimes->{ 8061 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 8062 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 8063 3.497809962345409*^9, 3.4978100933655925`*^9, {3.497817065230562*^9, 8064 3.4978170672105646`*^9}}], 8065 8066Cell[TextData[{ 8067 "Rule: If ", 8068 Cell[BoxData[ 8069 RowBox[{ 8070 RowBox[{ 8071 SuperscriptBox["b", "2"], "-", 8072 RowBox[{"4", " ", "a", " ", "c"}]}], "\[NotEqual]", "0"}]]], 8073 ", then" 8074}], "Subsubsection", 8075 CellDingbat->"\[FilledSmallSquare]", 8076 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8077 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8078 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8079 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8080 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8081 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8082 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8083 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 8084 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 8085 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 8086 3.497817041950529*^9, 3.4978170441505327`*^9}}], 8087 8088Cell[BoxData[ 8089 RowBox[{ 8090 RowBox[{"\[Integral]", 8091 RowBox[{ 8092 RowBox[{"Sin", "[", 8093 RowBox[{"a", "+", 8094 RowBox[{"b", " ", "x"}], "+", 8095 RowBox[{"c", " ", 8096 SuperscriptBox["x", "2"]}]}], "]"}], 8097 RowBox[{"\[DifferentialD]", 8098 RowBox[{"x", " ", "\[LongRightArrow]", " ", 8099 RowBox[{"Cos", "[", 8100 FractionBox[ 8101 RowBox[{ 8102 SuperscriptBox["b", "2"], "-", 8103 RowBox[{"4", " ", "a", " ", "c"}]}], 8104 RowBox[{"4", " ", "c"}]], "]"}]}]}], " ", 8105 RowBox[{"\[Integral]", 8106 RowBox[{ 8107 RowBox[{"Sin", "[", 8108 FractionBox[ 8109 SuperscriptBox[ 8110 RowBox[{"(", 8111 RowBox[{"b", "+", 8112 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}], "2"], 8113 RowBox[{"4", " ", "c"}]], "]"}], 8114 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 8115 RowBox[{ 8116 RowBox[{"Sin", "[", 8117 FractionBox[ 8118 RowBox[{ 8119 SuperscriptBox["b", "2"], "-", 8120 RowBox[{"4", " ", "a", " ", "c"}]}], 8121 RowBox[{"4", " ", "c"}]], "]"}], " ", 8122 RowBox[{"\[Integral]", 8123 RowBox[{ 8124 RowBox[{"Cos", "[", 8125 FractionBox[ 8126 SuperscriptBox[ 8127 RowBox[{"(", 8128 RowBox[{"b", "+", 8129 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}], "2"], 8130 RowBox[{"4", " ", "c"}]], "]"}], 8131 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 8132 CellDingbat->None, 8133 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 8134 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 8135 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 8136 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 8137 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 8138 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 8139 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 8140 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 8141 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 8142 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 8143 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 8144 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 8145 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9}, 8146 TextAlignment->Center, 8147 FontSize->12, 8148 FontWeight->"Bold"], 8149 8150Cell["Program code:", "Subsubsection", 8151 CellDingbat->"\[FilledSmallSquare]", 8152 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8153 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8154 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8155 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8156 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8157 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8158 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8159 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 8160 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 8161 3.492805165713872*^9}}], 8162 8163Cell[BoxData[ 8164 RowBox[{ 8165 RowBox[{"Int", "[", 8166 RowBox[{ 8167 RowBox[{"Sin", "[", 8168 RowBox[{"a_.", "+", 8169 RowBox[{"b_.", "*", "x_"}], "+", 8170 RowBox[{"c_.", "*", 8171 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 8172 "\n", " ", 8173 RowBox[{ 8174 RowBox[{ 8175 RowBox[{ 8176 RowBox[{"Cos", "[", 8177 RowBox[{ 8178 RowBox[{"(", 8179 RowBox[{ 8180 RowBox[{"b", "^", "2"}], "-", 8181 RowBox[{"4", "*", "a", "*", "c"}]}], ")"}], "/", 8182 RowBox[{"(", 8183 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], "*", 8184 RowBox[{"Int", "[", 8185 RowBox[{ 8186 RowBox[{"Sin", "[", 8187 RowBox[{ 8188 RowBox[{ 8189 RowBox[{"(", 8190 RowBox[{"b", "+", 8191 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 8192 RowBox[{"(", 8193 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], " ", 8194 "-", " ", "\n", " ", 8195 RowBox[{ 8196 RowBox[{"Sin", "[", 8197 RowBox[{ 8198 RowBox[{"(", 8199 RowBox[{ 8200 RowBox[{"b", "^", "2"}], "-", 8201 RowBox[{"4", "*", "a", "*", "c"}]}], ")"}], "/", 8202 RowBox[{"(", 8203 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], "*", 8204 RowBox[{"Int", "[", 8205 RowBox[{ 8206 RowBox[{"Cos", "[", 8207 RowBox[{ 8208 RowBox[{ 8209 RowBox[{"(", 8210 RowBox[{"b", "+", 8211 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 8212 RowBox[{"(", 8213 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}]}]}], " ", 8214 "/;", "\n", 8215 RowBox[{ 8216 RowBox[{"FreeQ", "[", 8217 RowBox[{ 8218 RowBox[{"{", 8219 RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&", 8220 " ", 8221 RowBox[{"NonzeroQ", "[", 8222 RowBox[{ 8223 RowBox[{"b", "^", "2"}], "-", 8224 RowBox[{"4", "*", "a", "*", "c"}]}], "]"}]}]}]}]], "Code", 8225 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8226 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8227 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8228 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9}, 8229 Background->GrayLevel[0.85]], 8230 8231Cell[BoxData[ 8232 RowBox[{ 8233 RowBox[{"Int", "[", 8234 RowBox[{ 8235 RowBox[{"Cos", "[", 8236 RowBox[{"a_.", "+", 8237 RowBox[{"b_.", "*", "x_"}], "+", 8238 RowBox[{"c_.", "*", 8239 RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", 8240 "\n", " ", 8241 RowBox[{ 8242 RowBox[{ 8243 RowBox[{ 8244 RowBox[{"Cos", "[", 8245 RowBox[{ 8246 RowBox[{"(", 8247 RowBox[{ 8248 RowBox[{"b", "^", "2"}], "-", 8249 RowBox[{"4", "*", "a", "*", "c"}]}], ")"}], "/", 8250 RowBox[{"(", 8251 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], "*", 8252 RowBox[{"Int", "[", 8253 RowBox[{ 8254 RowBox[{"Cos", "[", 8255 RowBox[{ 8256 RowBox[{ 8257 RowBox[{"(", 8258 RowBox[{"b", "+", 8259 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 8260 RowBox[{"(", 8261 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], " ", 8262 "+", " ", "\n", " ", 8263 RowBox[{ 8264 RowBox[{"Sin", "[", 8265 RowBox[{ 8266 RowBox[{"(", 8267 RowBox[{ 8268 RowBox[{"b", "^", "2"}], "-", 8269 RowBox[{"4", "*", "a", "*", "c"}]}], ")"}], "/", 8270 RowBox[{"(", 8271 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], "*", 8272 RowBox[{"Int", "[", 8273 RowBox[{ 8274 RowBox[{"Sin", "[", 8275 RowBox[{ 8276 RowBox[{ 8277 RowBox[{"(", 8278 RowBox[{"b", "+", 8279 RowBox[{"2", "*", "c", "*", "x"}]}], ")"}], "^", "2"}], "/", 8280 RowBox[{"(", 8281 RowBox[{"4", "*", "c"}], ")"}]}], "]"}], ",", "x"}], "]"}]}]}], " ", 8282 "/;", "\n", 8283 RowBox[{ 8284 RowBox[{"FreeQ", "[", 8285 RowBox[{ 8286 RowBox[{"{", 8287 RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&", 8288 " ", 8289 RowBox[{"NonzeroQ", "[", 8290 RowBox[{ 8291 RowBox[{"b", "^", "2"}], "-", 8292 RowBox[{"4", "*", "a", "*", "c"}]}], "]"}]}]}]}]], "Code", 8293 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8294 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8295 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8296 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, { 8297 3.497921614870183*^9, 3.4979216450562363`*^9}, 3.4979846288461866`*^9}, 8298 Background->GrayLevel[0.85]], 8299 8300Cell["", "PageBreak", 8301 PageBreakBelow->True] 8302}, Closed]], 8303 8304Cell[CellGroupData[{ 8305 8306Cell[BoxData[ 8307 RowBox[{"\[Integral]", 8308 RowBox[{ 8309 SuperscriptBox[ 8310 RowBox[{"(", 8311 RowBox[{"d", "+", 8312 RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 8313 RowBox[{"Sin", "[", 8314 RowBox[{"a", "+", 8315 RowBox[{"b", " ", "x"}], "+", 8316 RowBox[{"c", " ", 8317 SuperscriptBox["x", "2"]}]}], "]"}], 8318 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 8319 CellDingbat->None, 8320 CellChangeTimes->{ 8321 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 8322 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 8323 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 8324 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 8325 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 8326 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 8327 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 8328 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 8329 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 8330 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 8331 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 8332 3.497816868100286*^9, 3.4978172180407763`*^9}, 8333 TextAlignment->Center, 8334 FontSize->20, 8335 FontWeight->"Bold"], 8336 8337Cell[TextData[{ 8338 "Rule: If ", 8339 Cell[BoxData[ 8340 RowBox[{ 8341 RowBox[{ 8342 RowBox[{"b", " ", "e"}], "-", 8343 RowBox[{"2", "c", " ", "d"}]}], "=", "0"}]]], 8344 ", then" 8345}], "Subsubsection", 8346 CellDingbat->"\[FilledSmallSquare]", 8347 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8348 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8349 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8350 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8351 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8352 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8353 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8354 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 8355 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 8356 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 8357 3.4978172319407954`*^9, 3.4978172425808105`*^9}}], 8358 8359Cell[BoxData[ 8360 RowBox[{"\[Integral]", 8361 RowBox[{ 8362 RowBox[{"(", 8363 RowBox[{"d", "+", 8364 RowBox[{"e", " ", "x"}]}], ")"}], 8365 RowBox[{"Sin", "[", 8366 RowBox[{"a", "+", 8367 RowBox[{"b", " ", "x"}], "+", 8368 RowBox[{"c", " ", 8369 SuperscriptBox["x", "2"]}]}], "]"}], 8370 RowBox[{"\[DifferentialD]", 8371 RowBox[{"x", " ", "\[LongRightArrow]", " ", 8372 RowBox[{"-", 8373 FractionBox[ 8374 RowBox[{"e", " ", 8375 RowBox[{"Cos", "[", 8376 RowBox[{"a", "+", 8377 RowBox[{"b", " ", "x"}], "+", 8378 RowBox[{"c", " ", 8379 SuperscriptBox["x", "2"]}]}], "]"}]}], 8380 RowBox[{"2", " ", "c"}]]}]}]}]}]}]], "Subsubtitle", 8381 CellDingbat->None, 8382 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 8383 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 8384 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 8385 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 8386 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 8387 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 8388 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 8389 3.4978172634508395`*^9, 3.4978172755208564`*^9}}, 8390 TextAlignment->Center, 8391 FontSize->12, 8392 FontWeight->"Bold"], 8393 8394Cell["Program code:", "Subsubsection", 8395 CellDingbat->"\[FilledSmallSquare]", 8396 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8397 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8398 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8399 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8400 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8401 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8402 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8403 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 8404 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 8405 3.492805165713872*^9}}], 8406 8407Cell[BoxData[ 8408 RowBox[{ 8409 RowBox[{"Int", "[", 8410 RowBox[{ 8411 RowBox[{ 8412 RowBox[{"(", 8413 RowBox[{"d_.", "+", 8414 RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 8415 RowBox[{"Sin", "[", 8416 RowBox[{"a_.", "+", 8417 RowBox[{"b_.", "*", "x_"}], "+", 8418 RowBox[{"c_.", "*", 8419 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8420 ":=", "\n", " ", 8421 RowBox[{ 8422 RowBox[{ 8423 RowBox[{"-", "e"}], "*", 8424 RowBox[{ 8425 RowBox[{"Cos", "[", 8426 RowBox[{"a", "+", 8427 RowBox[{"b", "*", "x"}], "+", 8428 RowBox[{"c", "*", 8429 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8430 RowBox[{"(", 8431 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 8432 RowBox[{ 8433 RowBox[{"FreeQ", "[", 8434 RowBox[{ 8435 RowBox[{"{", 8436 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8437 "x"}], "]"}], " ", "&&", " ", 8438 RowBox[{"ZeroQ", "[", 8439 RowBox[{ 8440 RowBox[{"b", "*", "e"}], "-", 8441 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8442 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 8443 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 8444 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 8445 3.497816883330307*^9, 3.497817209510764*^9}, 8446 Background->GrayLevel[0.85]], 8447 8448Cell[BoxData[ 8449 RowBox[{ 8450 RowBox[{"Int", "[", 8451 RowBox[{ 8452 RowBox[{ 8453 RowBox[{"(", 8454 RowBox[{"d_.", "+", 8455 RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 8456 RowBox[{"Cos", "[", 8457 RowBox[{"a_.", "+", 8458 RowBox[{"b_.", "*", "x_"}], "+", 8459 RowBox[{"c_.", "*", 8460 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8461 ":=", "\n", " ", 8462 RowBox[{ 8463 RowBox[{"e", "*", 8464 RowBox[{ 8465 RowBox[{"Sin", "[", 8466 RowBox[{"a", "+", 8467 RowBox[{"b", "*", "x"}], "+", 8468 RowBox[{"c", "*", 8469 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8470 RowBox[{"(", 8471 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 8472 RowBox[{ 8473 RowBox[{"FreeQ", "[", 8474 RowBox[{ 8475 RowBox[{"{", 8476 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8477 "x"}], "]"}], " ", "&&", " ", 8478 RowBox[{"ZeroQ", "[", 8479 RowBox[{ 8480 RowBox[{"b", "*", "e"}], "-", 8481 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8482 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 8483 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 8484 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 8485 3.497816883330307*^9, 3.497817209510764*^9, {3.497921614885783*^9, 8486 3.497921645071836*^9}, 3.4979847657676272`*^9}, 8487 Background->GrayLevel[0.85]], 8488 8489Cell["", "Subsubsection", 8490 CellDingbat->None, 8491 CellChangeTimes->{3.4796643211106243`*^9}], 8492 8493Cell[TextData[{ 8494 "Rule: If ", 8495 Cell[BoxData[ 8496 RowBox[{ 8497 RowBox[{ 8498 RowBox[{"b", " ", "e"}], "-", 8499 RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]]], 8500 ", then" 8501}], "Subsubsection", 8502 CellDingbat->"\[FilledSmallSquare]", 8503 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8504 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8505 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8506 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8507 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8508 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8509 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8510 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 8511 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 8512 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 8513 3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 8514 3.497817350040961*^9}}], 8515 8516Cell[BoxData[ 8517 RowBox[{ 8518 RowBox[{"\[Integral]", 8519 RowBox[{ 8520 RowBox[{"(", 8521 RowBox[{"d", "+", 8522 RowBox[{"e", " ", "x"}]}], ")"}], 8523 RowBox[{"Sin", "[", 8524 RowBox[{"a", "+", 8525 RowBox[{"b", " ", "x"}], "+", 8526 RowBox[{"c", " ", 8527 SuperscriptBox["x", "2"]}]}], "]"}], 8528 RowBox[{"\[DifferentialD]", 8529 RowBox[{"x", " ", "\[LongRightArrow]", " ", 8530 RowBox[{"-", 8531 FractionBox[ 8532 RowBox[{"e", " ", 8533 RowBox[{"Cos", "[", 8534 RowBox[{"a", "+", 8535 RowBox[{"b", " ", "x"}], "+", 8536 RowBox[{"c", " ", 8537 SuperscriptBox["x", "2"]}]}], "]"}]}], 8538 RowBox[{"2", " ", "c"}]]}]}]}]}]}], "-", 8539 RowBox[{ 8540 FractionBox[ 8541 RowBox[{ 8542 RowBox[{"b", " ", "e"}], "-", 8543 RowBox[{"2", " ", "c", " ", "d"}]}], 8544 RowBox[{"2", " ", "c"}]], 8545 RowBox[{"\[Integral]", 8546 RowBox[{ 8547 RowBox[{"Sin", "[", 8548 RowBox[{"a", "+", 8549 RowBox[{"b", " ", "x"}], "+", 8550 RowBox[{"c", " ", 8551 SuperscriptBox["x", "2"]}]}], "]"}], 8552 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 8553 CellDingbat->None, 8554 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 8555 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 8556 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 8557 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 8558 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 8559 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 8560 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 8561 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 8562 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 8563 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 8564 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 8565 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 8566 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 8567 3.49781732084092*^9, 3.4978173345809393`*^9}}, 8568 TextAlignment->Center, 8569 FontSize->12, 8570 FontWeight->"Bold"], 8571 8572Cell["Program code:", "Subsubsection", 8573 CellDingbat->"\[FilledSmallSquare]", 8574 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8575 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8576 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8577 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8578 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8579 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8580 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8581 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 8582 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 8583 3.492805165713872*^9}}], 8584 8585Cell[BoxData[ 8586 RowBox[{ 8587 RowBox[{"Int", "[", 8588 RowBox[{ 8589 RowBox[{ 8590 RowBox[{"(", 8591 RowBox[{"d_.", "+", 8592 RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 8593 RowBox[{"Sin", "[", 8594 RowBox[{"a_.", "+", 8595 RowBox[{"b_.", "*", "x_"}], "+", 8596 RowBox[{"c_.", "*", 8597 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8598 ":=", "\n", " ", 8599 RowBox[{ 8600 RowBox[{ 8601 RowBox[{ 8602 RowBox[{"-", "e"}], "*", 8603 RowBox[{ 8604 RowBox[{"Cos", "[", 8605 RowBox[{"a", "+", 8606 RowBox[{"b", "*", "x"}], "+", 8607 RowBox[{"c", "*", 8608 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8609 RowBox[{"(", 8610 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", " ", 8611 RowBox[{"Dist", "[", 8612 RowBox[{ 8613 RowBox[{ 8614 RowBox[{"(", 8615 RowBox[{ 8616 RowBox[{"b", "*", "e"}], "-", 8617 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 8618 RowBox[{"(", 8619 RowBox[{"2", "*", "c"}], ")"}]}], ",", 8620 RowBox[{"Int", "[", 8621 RowBox[{ 8622 RowBox[{"Sin", "[", 8623 RowBox[{"a", "+", 8624 RowBox[{"b", "*", "x"}], "+", 8625 RowBox[{"c", "*", 8626 RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}], "]"}]}], 8627 " ", "/;", "\n", 8628 RowBox[{ 8629 RowBox[{"FreeQ", "[", 8630 RowBox[{ 8631 RowBox[{"{", 8632 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8633 "x"}], "]"}], " ", "&&", " ", 8634 RowBox[{"NonzeroQ", "[", 8635 RowBox[{ 8636 RowBox[{"b", "*", "e"}], "-", 8637 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8638 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8639 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8640 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8641 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 8642 3.4978172025607543`*^9, 3.4978172990008893`*^9}, 8643 Background->GrayLevel[0.85]], 8644 8645Cell[BoxData[ 8646 RowBox[{ 8647 RowBox[{"Int", "[", 8648 RowBox[{ 8649 RowBox[{ 8650 RowBox[{"(", 8651 RowBox[{"d_.", "+", 8652 RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 8653 RowBox[{"Cos", "[", 8654 RowBox[{"a_.", "+", 8655 RowBox[{"b_.", "*", "x_"}], "+", 8656 RowBox[{"c_.", "*", 8657 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8658 ":=", "\n", " ", 8659 RowBox[{ 8660 RowBox[{ 8661 RowBox[{"e", "*", 8662 RowBox[{ 8663 RowBox[{"Sin", "[", 8664 RowBox[{"a", "+", 8665 RowBox[{"b", "*", "x"}], "+", 8666 RowBox[{"c", "*", 8667 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8668 RowBox[{"(", 8669 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", " ", 8670 RowBox[{"Dist", "[", 8671 RowBox[{ 8672 RowBox[{ 8673 RowBox[{"(", 8674 RowBox[{ 8675 RowBox[{"b", "*", "e"}], "-", 8676 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 8677 RowBox[{"(", 8678 RowBox[{"2", "*", "c"}], ")"}]}], ",", 8679 RowBox[{"Int", "[", 8680 RowBox[{ 8681 RowBox[{"Cos", "[", 8682 RowBox[{"a", "+", 8683 RowBox[{"b", "*", "x"}], "+", 8684 RowBox[{"c", "*", 8685 RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}], "]"}]}], 8686 " ", "/;", "\n", 8687 RowBox[{ 8688 RowBox[{"FreeQ", "[", 8689 RowBox[{ 8690 RowBox[{"{", 8691 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8692 "x"}], "]"}], " ", "&&", " ", 8693 RowBox[{"NonzeroQ", "[", 8694 RowBox[{ 8695 RowBox[{"b", "*", "e"}], "-", 8696 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8697 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8698 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8699 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8700 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 8701 3.4978172025607543`*^9, 3.4978172990008893`*^9, {3.497921614901383*^9, 8702 3.4979216450874357`*^9}, 3.497984772569239*^9}, 8703 Background->GrayLevel[0.85]], 8704 8705Cell["", "Subsubsection", 8706 CellDingbat->None, 8707 CellChangeTimes->{3.4796643211106243`*^9}], 8708 8709Cell[TextData[{ 8710 "Rule: If ", 8711 Cell[BoxData[ 8712 RowBox[{ 8713 RowBox[{ 8714 RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 8715 RowBox[{ 8716 RowBox[{"b", " ", "e"}], "-", 8717 RowBox[{"2", "c", " ", "d"}]}]}], "=", "0"}]]], 8718 ", then" 8719}], "Subsubsection", 8720 CellDingbat->"\[FilledSmallSquare]", 8721 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8722 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8723 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8724 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8725 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8726 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8727 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8728 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 8729 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 8730 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 8731 3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 8732 3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 8733 3.497817518021196*^9}}], 8734 8735Cell[BoxData[ 8736 RowBox[{ 8737 RowBox[{"\[Integral]", 8738 RowBox[{ 8739 SuperscriptBox[ 8740 RowBox[{"(", 8741 RowBox[{"d", "+", 8742 RowBox[{"e", " ", "x"}]}], ")"}], "m"], 8743 RowBox[{"Sin", "[", 8744 RowBox[{"a", "+", 8745 RowBox[{"b", " ", "x"}], "+", 8746 RowBox[{"c", " ", 8747 SuperscriptBox["x", "2"]}]}], "]"}], 8748 RowBox[{"\[DifferentialD]", 8749 RowBox[{ 8750 "x", " ", "\[LongRightArrow]", 8751 " \ 8752 ", "\[IndentingNewLine]", " ", 8753 RowBox[{"-", 8754 FractionBox[ 8755 RowBox[{"e", " ", 8756 SuperscriptBox[ 8757 RowBox[{"(", 8758 RowBox[{"d", "+", 8759 RowBox[{"e", " ", "x"}]}], ")"}], 8760 RowBox[{"m", "-", "1"}]], " ", 8761 RowBox[{"Cos", "[", 8762 RowBox[{"a", "+", 8763 RowBox[{"b", " ", "x"}], "+", 8764 RowBox[{"c", " ", 8765 SuperscriptBox["x", "2"]}]}], "]"}]}], 8766 RowBox[{"2", " ", "c"}]]}]}]}]}]}], "+", 8767 RowBox[{ 8768 FractionBox[ 8769 RowBox[{ 8770 SuperscriptBox["e", "2"], " ", 8771 RowBox[{"(", 8772 RowBox[{"m", "-", "1"}], ")"}]}], 8773 RowBox[{"2", " ", "c"}]], 8774 RowBox[{"\[Integral]", 8775 RowBox[{ 8776 SuperscriptBox[ 8777 RowBox[{"(", 8778 RowBox[{"d", "+", 8779 RowBox[{"e", " ", "x"}]}], ")"}], 8780 RowBox[{"m", "-", "2"}]], " ", 8781 RowBox[{"Cos", "[", 8782 RowBox[{"a", "+", 8783 RowBox[{"b", " ", "x"}], "+", 8784 RowBox[{"c", " ", 8785 SuperscriptBox["x", "2"]}]}], "]"}], 8786 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 8787 CellDingbat->None, 8788 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 8789 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 8790 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 8791 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 8792 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 8793 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 8794 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 8795 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 8796 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 8797 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 8798 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 8799 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 8800 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 8801 3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 8802 3.4978174870611525`*^9}, {3.4978452139579735`*^9, 3.497845227327992*^9}}, 8803 TextAlignment->Center, 8804 FontSize->12, 8805 FontWeight->"Bold"], 8806 8807Cell["Program code:", "Subsubsection", 8808 CellDingbat->"\[FilledSmallSquare]", 8809 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8810 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8811 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8812 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8813 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8814 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8815 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8816 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 8817 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 8818 3.492805165713872*^9}}], 8819 8820Cell[BoxData[ 8821 RowBox[{ 8822 RowBox[{"Int", "[", 8823 RowBox[{ 8824 RowBox[{ 8825 RowBox[{ 8826 RowBox[{"(", 8827 RowBox[{"d_.", "+", 8828 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 8829 RowBox[{"Sin", "[", 8830 RowBox[{"a_.", "+", 8831 RowBox[{"b_.", "*", "x_"}], "+", 8832 RowBox[{"c_.", "*", 8833 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8834 ":=", "\n", " ", 8835 RowBox[{ 8836 RowBox[{ 8837 RowBox[{ 8838 RowBox[{"-", "e"}], "*", 8839 RowBox[{ 8840 RowBox[{"(", 8841 RowBox[{"d", "+", 8842 RowBox[{"e", "*", "x"}]}], ")"}], "^", 8843 RowBox[{"(", 8844 RowBox[{"m", "-", "1"}], ")"}]}], "*", 8845 RowBox[{ 8846 RowBox[{"Cos", "[", 8847 RowBox[{"a", "+", 8848 RowBox[{"b", "*", "x"}], "+", 8849 RowBox[{"c", "*", 8850 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8851 RowBox[{"(", 8852 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "+", " ", "\n", " ", 8853 RowBox[{"Dist", "[", 8854 RowBox[{ 8855 RowBox[{ 8856 RowBox[{"e", "^", "2"}], "*", 8857 RowBox[{ 8858 RowBox[{"(", 8859 RowBox[{"m", "-", "1"}], ")"}], "/", 8860 RowBox[{"(", 8861 RowBox[{"2", "*", "c"}], ")"}]}]}], ",", 8862 RowBox[{"Int", "[", 8863 RowBox[{ 8864 RowBox[{ 8865 RowBox[{ 8866 RowBox[{"(", 8867 RowBox[{"d", "+", 8868 RowBox[{"e", "*", "x"}]}], ")"}], "^", 8869 RowBox[{"(", 8870 RowBox[{"m", "-", "2"}], ")"}]}], "*", 8871 RowBox[{"Cos", "[", 8872 RowBox[{"a", "+", 8873 RowBox[{"b", "*", "x"}], "+", 8874 RowBox[{"c", "*", 8875 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 8876 "]"}]}], " ", "/;", "\n", 8877 RowBox[{ 8878 RowBox[{"FreeQ", "[", 8879 RowBox[{ 8880 RowBox[{"{", 8881 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8882 "x"}], "]"}], " ", "&&", " ", 8883 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 8884 RowBox[{"m", ">", "1"}], " ", "&&", " ", 8885 RowBox[{"ZeroQ", "[", 8886 RowBox[{ 8887 RowBox[{"b", "*", "e"}], "-", 8888 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8889 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8890 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8891 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8892 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 8893 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9}, 8894 Background->GrayLevel[0.85]], 8895 8896Cell[BoxData[ 8897 RowBox[{ 8898 RowBox[{"Int", "[", 8899 RowBox[{ 8900 RowBox[{ 8901 RowBox[{ 8902 RowBox[{"(", 8903 RowBox[{"d_.", "+", 8904 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 8905 RowBox[{"Cos", "[", 8906 RowBox[{"a_.", "+", 8907 RowBox[{"b_.", "*", "x_"}], "+", 8908 RowBox[{"c_.", "*", 8909 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 8910 ":=", "\n", " ", 8911 RowBox[{ 8912 RowBox[{ 8913 RowBox[{"e", "*", 8914 RowBox[{ 8915 RowBox[{"(", 8916 RowBox[{"d", "+", 8917 RowBox[{"e", "*", "x"}]}], ")"}], "^", 8918 RowBox[{"(", 8919 RowBox[{"m", "-", "1"}], ")"}]}], "*", 8920 RowBox[{ 8921 RowBox[{"Sin", "[", 8922 RowBox[{"a", "+", 8923 RowBox[{"b", "*", "x"}], "+", 8924 RowBox[{"c", "*", 8925 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 8926 RowBox[{"(", 8927 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", " ", 8928 RowBox[{"Dist", "[", 8929 RowBox[{ 8930 RowBox[{ 8931 RowBox[{"e", "^", "2"}], "*", 8932 RowBox[{ 8933 RowBox[{"(", 8934 RowBox[{"m", "-", "1"}], ")"}], "/", 8935 RowBox[{"(", 8936 RowBox[{"2", "*", "c"}], ")"}]}]}], ",", 8937 RowBox[{"Int", "[", 8938 RowBox[{ 8939 RowBox[{ 8940 RowBox[{ 8941 RowBox[{"(", 8942 RowBox[{"d", "+", 8943 RowBox[{"e", "*", "x"}]}], ")"}], "^", 8944 RowBox[{"(", 8945 RowBox[{"m", "-", "2"}], ")"}]}], "*", 8946 RowBox[{"Sin", "[", 8947 RowBox[{"a", "+", 8948 RowBox[{"b", "*", "x"}], "+", 8949 RowBox[{"c", "*", 8950 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 8951 "]"}]}], " ", "/;", "\n", 8952 RowBox[{ 8953 RowBox[{"FreeQ", "[", 8954 RowBox[{ 8955 RowBox[{"{", 8956 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 8957 "x"}], "]"}], " ", "&&", " ", 8958 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 8959 RowBox[{"m", ">", "1"}], " ", "&&", " ", 8960 RowBox[{"ZeroQ", "[", 8961 RowBox[{ 8962 RowBox[{"b", "*", "e"}], "-", 8963 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 8964 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 8965 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 8966 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 8967 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 8968 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, { 8969 3.497921614932583*^9, 3.497921645118636*^9}, 3.497984780150852*^9}, 8970 Background->GrayLevel[0.85]], 8971 8972Cell["", "Subsubsection", 8973 CellDingbat->None, 8974 CellChangeTimes->{3.4796643211106243`*^9}], 8975 8976Cell[TextData[{ 8977 "Rule: If ", 8978 Cell[BoxData[ 8979 RowBox[{ 8980 RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 8981 RowBox[{ 8982 RowBox[{ 8983 RowBox[{"b", " ", "e"}], "-", 8984 RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]], 8985 ", then" 8986}], "Subsubsection", 8987 CellDingbat->"\[FilledSmallSquare]", 8988 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 8989 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 8990 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 8991 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 8992 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 8993 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 8994 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 8995 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 8996 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 8997 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 8998 3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 8999 3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 9000 3.497817518021196*^9}, {3.497817607271321*^9, 3.4978176097513247`*^9}}], 9001 9002Cell[BoxData[ 9003 RowBox[{ 9004 RowBox[{"\[Integral]", 9005 RowBox[{ 9006 SuperscriptBox[ 9007 RowBox[{"(", 9008 RowBox[{"d", "+", 9009 RowBox[{"e", " ", "x"}]}], ")"}], "m"], 9010 RowBox[{"Sin", "[", 9011 RowBox[{"a", "+", 9012 RowBox[{"b", " ", "x"}], "+", 9013 RowBox[{"c", " ", 9014 SuperscriptBox["x", "2"]}]}], "]"}], 9015 RowBox[{"\[DifferentialD]", 9016 RowBox[{"x", " ", "\[LongRightArrow]", " ", 9017 RowBox[{"-", 9018 FractionBox[ 9019 RowBox[{"e", " ", 9020 SuperscriptBox[ 9021 RowBox[{"(", 9022 RowBox[{"d", "+", 9023 RowBox[{"e", " ", "x"}]}], ")"}], 9024 RowBox[{"m", "-", "1"}]], " ", 9025 RowBox[{"Cos", "[", 9026 RowBox[{"a", "+", 9027 RowBox[{"b", " ", "x"}], "+", 9028 RowBox[{"c", " ", 9029 SuperscriptBox["x", "2"]}]}], "]"}]}], 9030 RowBox[{"2", " ", "c"}]]}]}]}]}]}], "-", 9031 " ", "\[IndentingNewLine]", 9032 " ", 9033 RowBox[{ 9034 FractionBox[ 9035 RowBox[{ 9036 RowBox[{"b", " ", "e"}], "-", 9037 RowBox[{"2", " ", "c", " ", "d"}]}], 9038 RowBox[{"2", " ", "c"}]], 9039 RowBox[{"\[Integral]", 9040 RowBox[{ 9041 SuperscriptBox[ 9042 RowBox[{"(", 9043 RowBox[{"d", "+", 9044 RowBox[{"e", " ", "x"}]}], ")"}], 9045 RowBox[{"m", "-", "1"}]], " ", 9046 RowBox[{"Sin", "[", 9047 RowBox[{"a", "+", 9048 RowBox[{"b", " ", "x"}], "+", 9049 RowBox[{"c", " ", 9050 SuperscriptBox["x", "2"]}]}], "]"}], 9051 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 9052 RowBox[{ 9053 FractionBox[ 9054 RowBox[{ 9055 SuperscriptBox["e", "2"], " ", 9056 RowBox[{"(", 9057 RowBox[{"m", "-", "1"}], ")"}]}], 9058 RowBox[{"2", " ", "c"}]], 9059 RowBox[{"\[Integral]", 9060 RowBox[{ 9061 SuperscriptBox[ 9062 RowBox[{"(", 9063 RowBox[{"d", "+", 9064 RowBox[{"e", " ", "x"}]}], ")"}], 9065 RowBox[{"m", "-", "2"}]], " ", 9066 RowBox[{"Cos", "[", 9067 RowBox[{"a", "+", 9068 RowBox[{"b", " ", "x"}], "+", 9069 RowBox[{"c", " ", 9070 SuperscriptBox["x", "2"]}]}], "]"}], 9071 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 9072 CellDingbat->None, 9073 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 9074 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 9075 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 9076 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 9077 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 9078 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 9079 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 9080 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 9081 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 9082 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 9083 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 9084 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 9085 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 9086 3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 9087 3.4978174870611525`*^9}, {3.497817584611289*^9, 3.497817597891308*^9}}, 9088 TextAlignment->Center, 9089 FontSize->12, 9090 FontWeight->"Bold"], 9091 9092Cell["Program code:", "Subsubsection", 9093 CellDingbat->"\[FilledSmallSquare]", 9094 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9095 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9096 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9097 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9098 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9099 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9100 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9101 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 9102 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 9103 3.492805165713872*^9}}], 9104 9105Cell[BoxData[ 9106 RowBox[{ 9107 RowBox[{"Int", "[", 9108 RowBox[{ 9109 RowBox[{ 9110 RowBox[{ 9111 RowBox[{"(", 9112 RowBox[{"d_.", "+", 9113 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9114 RowBox[{"Sin", "[", 9115 RowBox[{"a_.", "+", 9116 RowBox[{"b_.", "*", "x_"}], "+", 9117 RowBox[{"c_.", "*", 9118 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9119 ":=", "\n", " ", 9120 RowBox[{ 9121 RowBox[{ 9122 RowBox[{ 9123 RowBox[{"-", "e"}], "*", 9124 RowBox[{ 9125 RowBox[{"(", 9126 RowBox[{"d", "+", 9127 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9128 RowBox[{"(", 9129 RowBox[{"m", "-", "1"}], ")"}]}], "*", 9130 RowBox[{ 9131 RowBox[{"Cos", "[", 9132 RowBox[{"a", "+", 9133 RowBox[{"b", "*", "x"}], "+", 9134 RowBox[{"c", "*", 9135 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9136 RowBox[{"(", 9137 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", " ", 9138 RowBox[{"Dist", "[", 9139 RowBox[{ 9140 RowBox[{ 9141 RowBox[{"(", 9142 RowBox[{ 9143 RowBox[{"b", "*", "e"}], "-", 9144 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 9145 RowBox[{"(", 9146 RowBox[{"2", "*", "c"}], ")"}]}], ",", 9147 RowBox[{"Int", "[", 9148 RowBox[{ 9149 RowBox[{ 9150 RowBox[{ 9151 RowBox[{"(", 9152 RowBox[{"d", "+", 9153 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9154 RowBox[{"(", 9155 RowBox[{"m", "-", "1"}], ")"}]}], "*", 9156 RowBox[{"Sin", "[", 9157 RowBox[{"a", "+", 9158 RowBox[{"b", "*", "x"}], "+", 9159 RowBox[{"c", "*", 9160 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], "]"}], 9161 " ", "+", " ", "\n", " ", 9162 RowBox[{"Dist", "[", 9163 RowBox[{ 9164 RowBox[{ 9165 RowBox[{"e", "^", "2"}], "*", 9166 RowBox[{ 9167 RowBox[{"(", 9168 RowBox[{"m", "-", "1"}], ")"}], "/", 9169 RowBox[{"(", 9170 RowBox[{"2", "*", "c"}], ")"}]}]}], ",", 9171 RowBox[{"Int", "[", 9172 RowBox[{ 9173 RowBox[{ 9174 RowBox[{ 9175 RowBox[{"(", 9176 RowBox[{"d", "+", 9177 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9178 RowBox[{"(", 9179 RowBox[{"m", "-", "2"}], ")"}]}], "*", 9180 RowBox[{"Cos", "[", 9181 RowBox[{"a", "+", 9182 RowBox[{"b", "*", "x"}], "+", 9183 RowBox[{"c", "*", 9184 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9185 "]"}]}], " ", "/;", "\n", 9186 RowBox[{ 9187 RowBox[{"FreeQ", "[", 9188 RowBox[{ 9189 RowBox[{"{", 9190 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9191 "x"}], "]"}], " ", "&&", " ", 9192 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9193 RowBox[{"m", ">", "1"}], " ", "&&", " ", 9194 RowBox[{"NonzeroQ", "[", 9195 RowBox[{ 9196 RowBox[{"b", "*", "e"}], "-", 9197 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9198 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9199 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9200 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9201 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9202 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9203 3.497817548651239*^9}, 9204 Background->GrayLevel[0.85]], 9205 9206Cell[BoxData[ 9207 RowBox[{ 9208 RowBox[{"Int", "[", 9209 RowBox[{ 9210 RowBox[{ 9211 RowBox[{ 9212 RowBox[{"(", 9213 RowBox[{"d_.", "+", 9214 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9215 RowBox[{"Cos", "[", 9216 RowBox[{"a_.", "+", 9217 RowBox[{"b_.", "*", "x_"}], "+", 9218 RowBox[{"c_.", "*", 9219 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9220 ":=", "\n", " ", 9221 RowBox[{ 9222 RowBox[{ 9223 RowBox[{"e", "*", 9224 RowBox[{ 9225 RowBox[{"(", 9226 RowBox[{"d", "+", 9227 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9228 RowBox[{"(", 9229 RowBox[{"m", "-", "1"}], ")"}]}], "*", 9230 RowBox[{ 9231 RowBox[{"Sin", "[", 9232 RowBox[{"a", "+", 9233 RowBox[{"b", "*", "x"}], "+", 9234 RowBox[{"c", "*", 9235 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9236 RowBox[{"(", 9237 RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", " ", 9238 RowBox[{"Dist", "[", 9239 RowBox[{ 9240 RowBox[{ 9241 RowBox[{"(", 9242 RowBox[{ 9243 RowBox[{"b", "*", "e"}], "-", 9244 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 9245 RowBox[{"(", 9246 RowBox[{"2", "*", "c"}], ")"}]}], ",", 9247 RowBox[{"Int", "[", 9248 RowBox[{ 9249 RowBox[{ 9250 RowBox[{ 9251 RowBox[{"(", 9252 RowBox[{"d", "+", 9253 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9254 RowBox[{"(", 9255 RowBox[{"m", "-", "1"}], ")"}]}], "*", 9256 RowBox[{"Cos", "[", 9257 RowBox[{"a", "+", 9258 RowBox[{"b", "*", "x"}], "+", 9259 RowBox[{"c", "*", 9260 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], "]"}], 9261 " ", "-", " ", "\n", " ", 9262 RowBox[{"Dist", "[", 9263 RowBox[{ 9264 RowBox[{ 9265 RowBox[{"e", "^", "2"}], "*", 9266 RowBox[{ 9267 RowBox[{"(", 9268 RowBox[{"m", "-", "1"}], ")"}], "/", 9269 RowBox[{"(", 9270 RowBox[{"2", "*", "c"}], ")"}]}]}], ",", 9271 RowBox[{"Int", "[", 9272 RowBox[{ 9273 RowBox[{ 9274 RowBox[{ 9275 RowBox[{"(", 9276 RowBox[{"d", "+", 9277 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9278 RowBox[{"(", 9279 RowBox[{"m", "-", "2"}], ")"}]}], "*", 9280 RowBox[{"Sin", "[", 9281 RowBox[{"a", "+", 9282 RowBox[{"b", "*", "x"}], "+", 9283 RowBox[{"c", "*", 9284 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9285 "]"}]}], " ", "/;", "\n", 9286 RowBox[{ 9287 RowBox[{"FreeQ", "[", 9288 RowBox[{ 9289 RowBox[{"{", 9290 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9291 "x"}], "]"}], " ", "&&", " ", 9292 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9293 RowBox[{"m", ">", "1"}], " ", "&&", " ", 9294 RowBox[{"NonzeroQ", "[", 9295 RowBox[{ 9296 RowBox[{"b", "*", "e"}], "-", 9297 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9298 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9299 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9300 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9301 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9302 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9303 3.497817548651239*^9, {3.497921614948183*^9, 3.4979216451342363`*^9}, 9304 3.49798479001007*^9}, 9305 Background->GrayLevel[0.85]], 9306 9307Cell["", "Subsubsection", 9308 CellDingbat->None, 9309 CellChangeTimes->{3.4796643211106243`*^9}], 9310 9311Cell[TextData[{ 9312 "Rule: If ", 9313 Cell[BoxData[ 9314 RowBox[{ 9315 RowBox[{ 9316 RowBox[{"m", "<", 9317 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 9318 RowBox[{ 9319 RowBox[{"b", " ", "e"}], "-", 9320 RowBox[{"2", "c", " ", "d"}]}]}], "=", "0"}]]], 9321 ", then" 9322}], "Subsubsection", 9323 CellDingbat->"\[FilledSmallSquare]", 9324 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9325 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9326 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9327 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9328 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9329 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9330 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9331 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 9332 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 9333 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 9334 3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 9335 3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 9336 3.497817518021196*^9}, {3.4978176606313953`*^9, 3.497817661711397*^9}}], 9337 9338Cell[BoxData[ 9339 RowBox[{ 9340 RowBox[{"\[Integral]", 9341 RowBox[{ 9342 SuperscriptBox[ 9343 RowBox[{"(", 9344 RowBox[{"d", "+", 9345 RowBox[{"e", " ", "x"}]}], ")"}], "m"], 9346 RowBox[{"Sin", "[", 9347 RowBox[{"a", "+", 9348 RowBox[{"b", " ", "x"}], "+", 9349 RowBox[{"c", " ", 9350 SuperscriptBox["x", "2"]}]}], "]"}], 9351 RowBox[{"\[DifferentialD]", 9352 RowBox[{ 9353 "x", " ", "\[LongRightArrow]", 9354 " \ 9355 ", "\[IndentingNewLine]", 9356 " ", 9357 FractionBox[ 9358 RowBox[{ 9359 SuperscriptBox[ 9360 RowBox[{"(", 9361 RowBox[{"d", "+", 9362 RowBox[{"e", " ", "x"}]}], ")"}], 9363 RowBox[{"m", "+", "1"}]], " ", 9364 RowBox[{"Sin", "[", 9365 RowBox[{"a", "+", 9366 RowBox[{"b", " ", "x"}], "+", 9367 RowBox[{"c", " ", 9368 SuperscriptBox["x", "2"]}]}], "]"}]}], 9369 RowBox[{"e", " ", 9370 RowBox[{"(", 9371 RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 9372 RowBox[{ 9373 FractionBox[ 9374 RowBox[{"2", " ", "c"}], 9375 RowBox[{ 9376 SuperscriptBox["e", "2"], " ", 9377 RowBox[{"(", 9378 RowBox[{"m", "+", "1"}], ")"}]}]], 9379 RowBox[{"\[Integral]", 9380 RowBox[{ 9381 SuperscriptBox[ 9382 RowBox[{"(", 9383 RowBox[{"d", "+", 9384 RowBox[{"e", " ", "x"}]}], ")"}], 9385 RowBox[{"m", "+", "2"}]], " ", 9386 RowBox[{"Cos", "[", 9387 RowBox[{"a", "+", 9388 RowBox[{"b", " ", "x"}], "+", 9389 RowBox[{"c", " ", 9390 SuperscriptBox["x", "2"]}]}], "]"}], 9391 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 9392 CellDingbat->None, 9393 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 9394 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 9395 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 9396 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 9397 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 9398 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 9399 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 9400 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 9401 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 9402 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 9403 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 9404 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 9405 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 9406 3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 9407 3.4978174870611525`*^9}, 3.497817687031432*^9, {3.4978452447580166`*^9, 9408 3.497845253888029*^9}, {3.497845336788145*^9, 3.497845345858158*^9}}, 9409 TextAlignment->Center, 9410 FontSize->12, 9411 FontWeight->"Bold"], 9412 9413Cell["Program code:", "Subsubsection", 9414 CellDingbat->"\[FilledSmallSquare]", 9415 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9416 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9417 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9418 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9419 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9420 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9421 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9422 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 9423 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 9424 3.492805165713872*^9}}], 9425 9426Cell[BoxData[ 9427 RowBox[{ 9428 RowBox[{"Int", "[", 9429 RowBox[{ 9430 RowBox[{ 9431 RowBox[{ 9432 RowBox[{"(", 9433 RowBox[{"d_.", "+", 9434 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9435 RowBox[{"Sin", "[", 9436 RowBox[{"a_.", "+", 9437 RowBox[{"b_.", "*", "x_"}], "+", 9438 RowBox[{"c_.", "*", 9439 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9440 ":=", "\n", " ", 9441 RowBox[{ 9442 RowBox[{ 9443 RowBox[{ 9444 RowBox[{ 9445 RowBox[{"(", 9446 RowBox[{"d", "+", 9447 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9448 RowBox[{"(", 9449 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9450 RowBox[{ 9451 RowBox[{"Sin", "[", 9452 RowBox[{"a", "+", 9453 RowBox[{"b", "*", "x"}], "+", 9454 RowBox[{"c", "*", 9455 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9456 RowBox[{"(", 9457 RowBox[{"e", "*", 9458 RowBox[{"(", 9459 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 9460 RowBox[{"Dist", "[", 9461 RowBox[{ 9462 RowBox[{"2", "*", 9463 RowBox[{"c", "/", 9464 RowBox[{"(", 9465 RowBox[{ 9466 RowBox[{"e", "^", "2"}], "*", 9467 RowBox[{"(", 9468 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], ",", 9469 RowBox[{"Int", "[", 9470 RowBox[{ 9471 RowBox[{ 9472 RowBox[{ 9473 RowBox[{"(", 9474 RowBox[{"d", "+", 9475 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9476 RowBox[{"(", 9477 RowBox[{"m", "+", "2"}], ")"}]}], "*", 9478 RowBox[{"Cos", "[", 9479 RowBox[{"a", "+", 9480 RowBox[{"b", "*", "x"}], "+", 9481 RowBox[{"c", "*", 9482 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9483 "]"}]}], " ", "/;", "\n", 9484 RowBox[{ 9485 RowBox[{"FreeQ", "[", 9486 RowBox[{ 9487 RowBox[{"{", 9488 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9489 "x"}], "]"}], " ", "&&", " ", 9490 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9491 RowBox[{"m", "<", 9492 RowBox[{"-", "1"}]}], " ", "&&", " ", 9493 RowBox[{"ZeroQ", "[", 9494 RowBox[{ 9495 RowBox[{"b", "*", "e"}], "-", 9496 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9497 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9498 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9499 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9500 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9501 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9502 3.497817656111389*^9}, 9503 Background->GrayLevel[0.85]], 9504 9505Cell[BoxData[ 9506 RowBox[{ 9507 RowBox[{"Int", "[", 9508 RowBox[{ 9509 RowBox[{ 9510 RowBox[{ 9511 RowBox[{"(", 9512 RowBox[{"d_.", "+", 9513 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9514 RowBox[{"Cos", "[", 9515 RowBox[{"a_.", "+", 9516 RowBox[{"b_.", "*", "x_"}], "+", 9517 RowBox[{"c_.", "*", 9518 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9519 ":=", "\n", " ", 9520 RowBox[{ 9521 RowBox[{ 9522 RowBox[{ 9523 RowBox[{ 9524 RowBox[{"(", 9525 RowBox[{"d", "+", 9526 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9527 RowBox[{"(", 9528 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9529 RowBox[{ 9530 RowBox[{"Cos", "[", 9531 RowBox[{"a", "+", 9532 RowBox[{"b", "*", "x"}], "+", 9533 RowBox[{"c", "*", 9534 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9535 RowBox[{"(", 9536 RowBox[{"e", "*", 9537 RowBox[{"(", 9538 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 9539 " ", 9540 RowBox[{"Dist", "[", 9541 RowBox[{ 9542 RowBox[{"2", "*", 9543 RowBox[{"c", "/", 9544 RowBox[{"(", 9545 RowBox[{ 9546 RowBox[{"e", "^", "2"}], "*", 9547 RowBox[{"(", 9548 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], ",", 9549 RowBox[{"Int", "[", 9550 RowBox[{ 9551 RowBox[{ 9552 RowBox[{ 9553 RowBox[{"(", 9554 RowBox[{"d", "+", 9555 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9556 RowBox[{"(", 9557 RowBox[{"m", "+", "2"}], ")"}]}], "*", 9558 RowBox[{"Sin", "[", 9559 RowBox[{"a", "+", 9560 RowBox[{"b", "*", "x"}], "+", 9561 RowBox[{"c", "*", 9562 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9563 "]"}]}], " ", "/;", "\n", 9564 RowBox[{ 9565 RowBox[{"FreeQ", "[", 9566 RowBox[{ 9567 RowBox[{"{", 9568 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9569 "x"}], "]"}], " ", "&&", " ", 9570 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9571 RowBox[{"m", "<", 9572 RowBox[{"-", "1"}]}], " ", "&&", " ", 9573 RowBox[{"ZeroQ", "[", 9574 RowBox[{ 9575 RowBox[{"b", "*", "e"}], "-", 9576 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9577 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9578 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9579 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9580 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9581 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9582 3.497817656111389*^9, {3.4979216149793835`*^9, 3.497921645149836*^9}, 9583 3.497984798652485*^9}, 9584 Background->GrayLevel[0.85]], 9585 9586Cell["", "Subsubsection", 9587 CellDingbat->None, 9588 CellChangeTimes->{3.4796643211106243`*^9}], 9589 9590Cell[TextData[{ 9591 "Rule: If ", 9592 Cell[BoxData[ 9593 RowBox[{ 9594 RowBox[{"m", "<", 9595 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 9596 RowBox[{ 9597 RowBox[{ 9598 RowBox[{"b", " ", "e"}], "-", 9599 RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]], 9600 ", then" 9601}], "Subsubsection", 9602 CellDingbat->"\[FilledSmallSquare]", 9603 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9604 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9605 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9606 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9607 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9608 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9609 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9610 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 9611 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 9612 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 9613 3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 9614 3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 9615 3.497817518021196*^9}, {3.497817607271321*^9, 3.4978176097513247`*^9}, { 9616 3.497817752511524*^9, 3.497817753781526*^9}}], 9617 9618Cell[BoxData[ 9619 RowBox[{ 9620 RowBox[{"\[Integral]", 9621 RowBox[{ 9622 SuperscriptBox[ 9623 RowBox[{"(", 9624 RowBox[{"d", "+", 9625 RowBox[{"e", " ", "x"}]}], ")"}], "m"], 9626 RowBox[{"Sin", "[", 9627 RowBox[{"a", "+", 9628 RowBox[{"b", " ", "x"}], "+", 9629 RowBox[{"c", " ", 9630 SuperscriptBox["x", "2"]}]}], "]"}], 9631 RowBox[{"\[DifferentialD]", 9632 RowBox[{"x", " ", "\[LongRightArrow]", " ", 9633 FractionBox[ 9634 RowBox[{ 9635 SuperscriptBox[ 9636 RowBox[{"(", 9637 RowBox[{"d", "+", 9638 RowBox[{"e", " ", "x"}]}], ")"}], 9639 RowBox[{"m", "+", "1"}]], " ", 9640 RowBox[{"Sin", "[", 9641 RowBox[{"a", "+", 9642 RowBox[{"b", " ", "x"}], "+", 9643 RowBox[{"c", " ", 9644 SuperscriptBox["x", "2"]}]}], "]"}]}], 9645 RowBox[{"e", " ", 9646 RowBox[{"(", 9647 RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 9648 " ", "\[IndentingNewLine]", 9649 " ", 9650 RowBox[{ 9651 FractionBox[ 9652 RowBox[{ 9653 RowBox[{"b", " ", "e"}], "-", 9654 RowBox[{"2", " ", "c", " ", "d"}]}], 9655 RowBox[{ 9656 SuperscriptBox["e", "2"], " ", 9657 RowBox[{"(", 9658 RowBox[{"m", "+", "1"}], ")"}]}]], 9659 RowBox[{"\[Integral]", 9660 RowBox[{ 9661 SuperscriptBox[ 9662 RowBox[{"(", 9663 RowBox[{"d", "+", 9664 RowBox[{"e", " ", "x"}]}], ")"}], 9665 RowBox[{"m", "+", "1"}]], " ", 9666 RowBox[{"Cos", "[", 9667 RowBox[{"a", "+", 9668 RowBox[{"b", " ", "x"}], "+", 9669 RowBox[{"c", " ", 9670 SuperscriptBox["x", "2"]}]}], "]"}], 9671 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 9672 RowBox[{ 9673 FractionBox[ 9674 RowBox[{"2", " ", "c"}], 9675 RowBox[{ 9676 SuperscriptBox["e", "2"], " ", 9677 RowBox[{"(", 9678 RowBox[{"m", "+", "1"}], ")"}]}]], 9679 RowBox[{"\[Integral]", 9680 RowBox[{ 9681 SuperscriptBox[ 9682 RowBox[{"(", 9683 RowBox[{"d", "+", 9684 RowBox[{"e", " ", "x"}]}], ")"}], 9685 RowBox[{"m", "+", "2"}]], " ", 9686 RowBox[{"Cos", "[", 9687 RowBox[{"a", "+", 9688 RowBox[{"b", " ", "x"}], "+", 9689 RowBox[{"c", " ", 9690 SuperscriptBox["x", "2"]}]}], "]"}], 9691 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 9692 CellDingbat->None, 9693 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 9694 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 9695 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 9696 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 9697 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 9698 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 9699 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 9700 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 9701 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 9702 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 9703 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 9704 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 9705 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 9706 3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 9707 3.4978174870611525`*^9}, {3.497817584611289*^9, 3.497817597891308*^9}, { 9708 3.497817735711501*^9, 3.4978177468615165`*^9}, {3.4978453784582033`*^9, 9709 3.497845389358219*^9}}, 9710 TextAlignment->Center, 9711 FontSize->12, 9712 FontWeight->"Bold"], 9713 9714Cell["Program code:", "Subsubsection", 9715 CellDingbat->"\[FilledSmallSquare]", 9716 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9717 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9718 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9719 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9720 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9721 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9722 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9723 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 9724 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 9725 3.492805165713872*^9}}], 9726 9727Cell[BoxData[ 9728 RowBox[{ 9729 RowBox[{"Int", "[", 9730 RowBox[{ 9731 RowBox[{ 9732 RowBox[{ 9733 RowBox[{"(", 9734 RowBox[{"d_.", "+", 9735 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9736 RowBox[{"Sin", "[", 9737 RowBox[{"a_.", "+", 9738 RowBox[{"b_.", "*", "x_"}], "+", 9739 RowBox[{"c_.", "*", 9740 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9741 ":=", "\n", " ", 9742 RowBox[{ 9743 RowBox[{ 9744 RowBox[{ 9745 RowBox[{ 9746 RowBox[{"(", 9747 RowBox[{"d", "+", 9748 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9749 RowBox[{"(", 9750 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9751 RowBox[{ 9752 RowBox[{"Sin", "[", 9753 RowBox[{"a", "+", 9754 RowBox[{"b", "*", "x"}], "+", 9755 RowBox[{"c", "*", 9756 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9757 RowBox[{"(", 9758 RowBox[{"e", "*", 9759 RowBox[{"(", 9760 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 9761 RowBox[{"Dist", "[", 9762 RowBox[{ 9763 RowBox[{ 9764 RowBox[{"(", 9765 RowBox[{ 9766 RowBox[{"b", "*", "e"}], "-", 9767 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 9768 RowBox[{"(", 9769 RowBox[{ 9770 RowBox[{"e", "^", "2"}], "*", 9771 RowBox[{"(", 9772 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], ",", 9773 RowBox[{"Int", "[", 9774 RowBox[{ 9775 RowBox[{ 9776 RowBox[{ 9777 RowBox[{"(", 9778 RowBox[{"d", "+", 9779 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9780 RowBox[{"(", 9781 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9782 RowBox[{"Cos", "[", 9783 RowBox[{"a", "+", 9784 RowBox[{"b", "*", "x"}], "+", 9785 RowBox[{"c", "*", 9786 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], "]"}], 9787 " ", "-", "\n", " ", 9788 RowBox[{"Dist", "[", 9789 RowBox[{ 9790 RowBox[{"2", "*", 9791 RowBox[{"c", "/", 9792 RowBox[{"(", 9793 RowBox[{ 9794 RowBox[{"e", "^", "2"}], "*", 9795 RowBox[{"(", 9796 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], ",", 9797 RowBox[{"Int", "[", 9798 RowBox[{ 9799 RowBox[{ 9800 RowBox[{ 9801 RowBox[{"(", 9802 RowBox[{"d", "+", 9803 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9804 RowBox[{"(", 9805 RowBox[{"m", "+", "2"}], ")"}]}], "*", 9806 RowBox[{"Cos", "[", 9807 RowBox[{"a", "+", 9808 RowBox[{"b", "*", "x"}], "+", 9809 RowBox[{"c", "*", 9810 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9811 "]"}]}], " ", "/;", "\n", 9812 RowBox[{ 9813 RowBox[{"FreeQ", "[", 9814 RowBox[{ 9815 RowBox[{"{", 9816 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9817 "x"}], "]"}], " ", "&&", " ", 9818 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9819 RowBox[{"m", "<", 9820 RowBox[{"-", "1"}]}], " ", "&&", " ", 9821 RowBox[{"NonzeroQ", "[", 9822 RowBox[{ 9823 RowBox[{"b", "*", "e"}], "-", 9824 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9825 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9826 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9827 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9828 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9829 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9830 3.497817548651239*^9, 3.497817648381378*^9, 3.497817703281455*^9}, 9831 Background->GrayLevel[0.85]], 9832 9833Cell[BoxData[ 9834 RowBox[{ 9835 RowBox[{"Int", "[", 9836 RowBox[{ 9837 RowBox[{ 9838 RowBox[{ 9839 RowBox[{"(", 9840 RowBox[{"d_.", "+", 9841 RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 9842 RowBox[{"Cos", "[", 9843 RowBox[{"a_.", "+", 9844 RowBox[{"b_.", "*", "x_"}], "+", 9845 RowBox[{"c_.", "*", 9846 RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 9847 ":=", "\n", " ", 9848 RowBox[{ 9849 RowBox[{ 9850 RowBox[{ 9851 RowBox[{ 9852 RowBox[{"(", 9853 RowBox[{"d", "+", 9854 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9855 RowBox[{"(", 9856 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9857 RowBox[{ 9858 RowBox[{"Cos", "[", 9859 RowBox[{"a", "+", 9860 RowBox[{"b", "*", "x"}], "+", 9861 RowBox[{"c", "*", 9862 RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 9863 RowBox[{"(", 9864 RowBox[{"e", "*", 9865 RowBox[{"(", 9866 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 9867 " ", 9868 RowBox[{"Dist", "[", 9869 RowBox[{ 9870 RowBox[{ 9871 RowBox[{"(", 9872 RowBox[{ 9873 RowBox[{"b", "*", "e"}], "-", 9874 RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 9875 RowBox[{"(", 9876 RowBox[{ 9877 RowBox[{"e", "^", "2"}], "*", 9878 RowBox[{"(", 9879 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], ",", 9880 RowBox[{"Int", "[", 9881 RowBox[{ 9882 RowBox[{ 9883 RowBox[{ 9884 RowBox[{"(", 9885 RowBox[{"d", "+", 9886 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9887 RowBox[{"(", 9888 RowBox[{"m", "+", "1"}], ")"}]}], "*", 9889 RowBox[{"Sin", "[", 9890 RowBox[{"a", "+", 9891 RowBox[{"b", "*", "x"}], "+", 9892 RowBox[{"c", "*", 9893 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], "]"}], 9894 " ", "+", "\n", " ", 9895 RowBox[{"Dist", "[", 9896 RowBox[{ 9897 RowBox[{"2", "*", 9898 RowBox[{"c", "/", 9899 RowBox[{"(", 9900 RowBox[{ 9901 RowBox[{"e", "^", "2"}], "*", 9902 RowBox[{"(", 9903 RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], ",", 9904 RowBox[{"Int", "[", 9905 RowBox[{ 9906 RowBox[{ 9907 RowBox[{ 9908 RowBox[{"(", 9909 RowBox[{"d", "+", 9910 RowBox[{"e", "*", "x"}]}], ")"}], "^", 9911 RowBox[{"(", 9912 RowBox[{"m", "+", "2"}], ")"}]}], "*", 9913 RowBox[{"Sin", "[", 9914 RowBox[{"a", "+", 9915 RowBox[{"b", "*", "x"}], "+", 9916 RowBox[{"c", "*", 9917 RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], 9918 "]"}]}], " ", "/;", "\n", 9919 RowBox[{ 9920 RowBox[{"FreeQ", "[", 9921 RowBox[{ 9922 RowBox[{"{", 9923 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 9924 "x"}], "]"}], " ", "&&", " ", 9925 RowBox[{"RationalQ", "[", "m", "]"}], " ", "&&", " ", 9926 RowBox[{"m", "<", 9927 RowBox[{"-", "1"}]}], " ", "&&", " ", 9928 RowBox[{"NonzeroQ", "[", 9929 RowBox[{ 9930 RowBox[{"b", "*", "e"}], "-", 9931 RowBox[{"2", "*", "c", "*", "d"}]}], "]"}]}]}]}]], "Code", 9932 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 9933 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 9934 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 9935 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 9936 3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 9937 3.497817548651239*^9, 3.497817648381378*^9, 3.497817703281455*^9, { 9938 3.497921614994983*^9, 3.497921645181036*^9}, 3.4979848055788975`*^9}, 9939 Background->GrayLevel[0.85]], 9940 9941Cell["", "PageBreak", 9942 PageBreakBelow->True] 9943}, Closed]], 9944 9945Cell[CellGroupData[{ 9946 9947Cell[BoxData[ 9948 RowBox[{"\[Integral]", 9949 RowBox[{ 9950 SuperscriptBox[ 9951 RowBox[{"Sin", "[", 9952 RowBox[{"a", "+", 9953 RowBox[{"b", " ", 9954 RowBox[{"Log", "[", 9955 RowBox[{"c", " ", 9956 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 9957 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 9958 CellDingbat->None, 9959 CellChangeTimes->{ 9960 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 9961 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 9962 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 9963 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 9964 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 9965 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 9966 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 9967 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 9968 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 9969 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 9970 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 9971 3.497816868100286*^9, 3.4978178569916706`*^9}, 9972 TextAlignment->Center, 9973 FontSize->20, 9974 FontWeight->"Bold"], 9975 9976Cell[TextData[{ 9977 "Rule: If ", 9978 Cell[BoxData[ 9979 RowBox[{ 9980 RowBox[{"1", "+", 9981 RowBox[{ 9982 SuperscriptBox["b", "2"], " ", 9983 SuperscriptBox["n", "2"]}]}], "\[NotEqual]", "0"}]]], 9984 ", then" 9985}], "Subsubsection", 9986 CellDingbat->"\[FilledSmallSquare]", 9987 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 9988 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 9989 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 9990 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 9991 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 9992 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 9993 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 9994 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 9995 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 9996 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 9997 3.497817913331749*^9, 3.4978179162117534`*^9}}], 9998 9999Cell[BoxData[ 10000 RowBox[{ 10001 RowBox[{"\[Integral]", 10002 RowBox[{ 10003 RowBox[{"Sin", "[", 10004 RowBox[{"a", "+", 10005 RowBox[{"b", " ", 10006 RowBox[{"Log", "[", 10007 RowBox[{"c", " ", 10008 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10009 RowBox[{"\[DifferentialD]", 10010 RowBox[{"x", " ", "\[LongRightArrow]", " ", 10011 FractionBox[ 10012 RowBox[{"x", " ", 10013 RowBox[{"Sin", "[", 10014 RowBox[{"a", "+", 10015 RowBox[{"b", " ", 10016 RowBox[{"Log", "[", 10017 RowBox[{"c", " ", 10018 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}]}], 10019 RowBox[{"1", "+", 10020 RowBox[{ 10021 SuperscriptBox["b", "2"], " ", 10022 SuperscriptBox["n", "2"]}]}]]}]}]}]}], "-", 10023 FractionBox[ 10024 RowBox[{"b", " ", "n", " ", "x", " ", 10025 RowBox[{"Cos", "[", 10026 RowBox[{"a", "+", 10027 RowBox[{"b", " ", 10028 RowBox[{"Log", "[", 10029 RowBox[{"c", " ", 10030 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}]}], 10031 RowBox[{"1", "+", 10032 RowBox[{ 10033 SuperscriptBox["b", "2"], " ", 10034 SuperscriptBox["n", "2"]}]}]]}]], "Subsubtitle", 10035 CellDingbat->None, 10036 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 10037 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 10038 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 10039 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 10040 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 10041 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 10042 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 10043 3.49781786362168*^9, 3.4978178842317085`*^9}}, 10044 TextAlignment->Center, 10045 FontSize->12, 10046 FontWeight->"Bold"], 10047 10048Cell["Program code:", "Subsubsection", 10049 CellDingbat->"\[FilledSmallSquare]", 10050 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10051 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10052 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10053 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10054 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10055 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10056 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10057 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 10058 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 10059 3.492805165713872*^9}}], 10060 10061Cell[BoxData[ 10062 RowBox[{ 10063 RowBox[{"Int", "[", 10064 RowBox[{ 10065 RowBox[{"Sin", "[", 10066 RowBox[{"a_.", "+", 10067 RowBox[{"b_.", "*", 10068 RowBox[{"Log", "[", 10069 RowBox[{"c_.", "*", 10070 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}], 10071 "]"}], " ", ":=", "\n", " ", 10072 RowBox[{ 10073 RowBox[{ 10074 RowBox[{"x", "*", 10075 RowBox[{ 10076 RowBox[{"Sin", "[", 10077 RowBox[{"a", "+", 10078 RowBox[{"b", "*", 10079 RowBox[{"Log", "[", 10080 RowBox[{"c", "*", 10081 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 10082 RowBox[{"(", 10083 RowBox[{"1", "+", 10084 RowBox[{ 10085 RowBox[{"b", "^", "2"}], "*", 10086 RowBox[{"n", "^", "2"}]}]}], ")"}]}]}], " ", "-", "\n", " ", 10087 RowBox[{"b", "*", "n", "*", "x", "*", 10088 RowBox[{ 10089 RowBox[{"Cos", "[", 10090 RowBox[{"a", "+", 10091 RowBox[{"b", "*", 10092 RowBox[{"Log", "[", 10093 RowBox[{"c", "*", 10094 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 10095 RowBox[{"(", 10096 RowBox[{"1", "+", 10097 RowBox[{ 10098 RowBox[{"b", "^", "2"}], "*", 10099 RowBox[{"n", "^", "2"}]}]}], ")"}]}]}]}], " ", "/;", "\n", 10100 RowBox[{ 10101 RowBox[{"FreeQ", "[", 10102 RowBox[{ 10103 RowBox[{"{", 10104 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 10105 " ", "&&", " ", 10106 RowBox[{"NonzeroQ", "[", 10107 RowBox[{"1", "+", 10108 RowBox[{ 10109 RowBox[{"b", "^", "2"}], "*", 10110 RowBox[{"n", "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10111 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 10112 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 10113 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 10114 3.497816883330307*^9, 3.497817840791648*^9}, 10115 Background->GrayLevel[0.85]], 10116 10117Cell[BoxData[ 10118 RowBox[{ 10119 RowBox[{"Int", "[", 10120 RowBox[{ 10121 RowBox[{"Cos", "[", 10122 RowBox[{"a_.", "+", 10123 RowBox[{"b_.", "*", 10124 RowBox[{"Log", "[", 10125 RowBox[{"c_.", "*", 10126 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], ",", "x_Symbol"}], 10127 "]"}], " ", ":=", "\n", " ", 10128 RowBox[{ 10129 RowBox[{ 10130 RowBox[{"x", "*", 10131 RowBox[{ 10132 RowBox[{"Cos", "[", 10133 RowBox[{"a", "+", 10134 RowBox[{"b", "*", 10135 RowBox[{"Log", "[", 10136 RowBox[{"c", "*", 10137 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 10138 RowBox[{"(", 10139 RowBox[{"1", "+", 10140 RowBox[{ 10141 RowBox[{"b", "^", "2"}], "*", 10142 RowBox[{"n", "^", "2"}]}]}], ")"}]}]}], " ", "+", "\n", " ", 10143 RowBox[{"b", "*", "n", "*", "x", "*", 10144 RowBox[{ 10145 RowBox[{"Sin", "[", 10146 RowBox[{"a", "+", 10147 RowBox[{"b", "*", 10148 RowBox[{"Log", "[", 10149 RowBox[{"c", "*", 10150 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 10151 RowBox[{"(", 10152 RowBox[{"1", "+", 10153 RowBox[{ 10154 RowBox[{"b", "^", "2"}], "*", 10155 RowBox[{"n", "^", "2"}]}]}], ")"}]}]}]}], " ", "/;", "\n", 10156 RowBox[{ 10157 RowBox[{"FreeQ", "[", 10158 RowBox[{ 10159 RowBox[{"{", 10160 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 10161 " ", "&&", " ", 10162 RowBox[{"NonzeroQ", "[", 10163 RowBox[{"1", "+", 10164 RowBox[{ 10165 RowBox[{"b", "^", "2"}], "*", 10166 RowBox[{"n", "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10167 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 10168 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 10169 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 10170 3.497816883330307*^9, 3.497817840791648*^9, {3.497921615010583*^9, 10171 3.497921645196636*^9}, 3.497985161961523*^9}, 10172 Background->GrayLevel[0.85]], 10173 10174Cell["", "Subsubsection", 10175 CellDingbat->None, 10176 CellChangeTimes->{3.4796643211106243`*^9}], 10177 10178Cell[TextData[{ 10179 "Rule: If ", 10180 Cell[BoxData[ 10181 RowBox[{ 10182 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 10183 RowBox[{ 10184 RowBox[{"1", "+", 10185 RowBox[{ 10186 SuperscriptBox["b", "2"], " ", 10187 SuperscriptBox["n", "2"], " ", 10188 SuperscriptBox["p", "2"]}]}], "\[NotEqual]", "0"}]}]]], 10189 ", then" 10190}], "Subsubsection", 10191 CellDingbat->"\[FilledSmallSquare]", 10192 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10193 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10194 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10195 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10196 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10197 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10198 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10199 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 10200 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 10201 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 10202 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978180135518894`*^9, 10203 3.4978180349019194`*^9}}], 10204 10205Cell[BoxData[ 10206 RowBox[{ 10207 RowBox[{"\[Integral]", 10208 RowBox[{ 10209 SuperscriptBox[ 10210 RowBox[{"Sin", "[", 10211 RowBox[{"a", "+", 10212 RowBox[{"b", " ", 10213 RowBox[{"Log", "[", 10214 RowBox[{"c", " ", 10215 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 10216 RowBox[{"\[DifferentialD]", 10217 RowBox[{"x", " ", "\[LongRightArrow]", " ", 10218 FractionBox[ 10219 RowBox[{"x", " ", 10220 SuperscriptBox[ 10221 RowBox[{"Sin", "[", 10222 RowBox[{"a", "+", 10223 RowBox[{"b", " ", 10224 RowBox[{"Log", "[", 10225 RowBox[{"c", " ", 10226 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"]}], 10227 RowBox[{"1", "+", 10228 RowBox[{ 10229 SuperscriptBox["b", "2"], " ", 10230 SuperscriptBox["n", "2"], " ", 10231 SuperscriptBox["p", "2"]}]}]]}]}]}]}], "-", 10232 " \ 10233 ", "\[IndentingNewLine]", " ", 10234 FractionBox[ 10235 RowBox[{"b", " ", "n", " ", "p", " ", "x", " ", 10236 RowBox[{"Cos", "[", 10237 RowBox[{"a", "+", 10238 RowBox[{"b", " ", 10239 RowBox[{"Log", "[", 10240 RowBox[{"c", " ", 10241 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], " ", 10242 SuperscriptBox[ 10243 RowBox[{"Sin", "[", 10244 RowBox[{"a", "+", 10245 RowBox[{"b", " ", 10246 RowBox[{"Log", "[", 10247 RowBox[{"c", " ", 10248 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10249 RowBox[{"p", "-", "1"}]]}], 10250 RowBox[{"1", "+", 10251 RowBox[{ 10252 SuperscriptBox["b", "2"], " ", 10253 SuperscriptBox["n", "2"], " ", 10254 SuperscriptBox["p", "2"]}]}]], "+", 10255 RowBox[{ 10256 FractionBox[ 10257 RowBox[{ 10258 SuperscriptBox["b", "2"], " ", 10259 SuperscriptBox["n", "2"], " ", "p", " ", 10260 RowBox[{"(", 10261 RowBox[{"p", "-", "1"}], ")"}]}], 10262 RowBox[{"1", "+", 10263 RowBox[{ 10264 SuperscriptBox["b", "2"], " ", 10265 SuperscriptBox["n", "2"], " ", 10266 SuperscriptBox["p", "2"]}]}]], 10267 RowBox[{"\[Integral]", 10268 RowBox[{ 10269 SuperscriptBox[ 10270 RowBox[{"Sin", "[", 10271 RowBox[{"a", "+", 10272 RowBox[{"b", " ", 10273 RowBox[{"Log", "[", 10274 RowBox[{"c", " ", 10275 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10276 RowBox[{"p", "-", "2"}]], 10277 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 10278 CellDingbat->None, 10279 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 10280 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 10281 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 10282 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 10283 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 10284 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 10285 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 10286 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 10287 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 10288 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 10289 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 10290 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 10291 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 10292 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978454312782774`*^9, 10293 3.497845444918297*^9}, {3.49784591148895*^9, 3.4978459126289515`*^9}, { 10294 3.497846040609131*^9, 3.497846045799138*^9}}, 10295 TextAlignment->Center, 10296 FontSize->12, 10297 FontWeight->"Bold"], 10298 10299Cell["Program code:", "Subsubsection", 10300 CellDingbat->"\[FilledSmallSquare]", 10301 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10302 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10303 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10304 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10305 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10306 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10307 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10308 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 10309 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 10310 3.492805165713872*^9}}], 10311 10312Cell[BoxData[ 10313 RowBox[{ 10314 RowBox[{"Int", "[", 10315 RowBox[{ 10316 RowBox[{ 10317 RowBox[{"Sin", "[", 10318 RowBox[{"a_.", "+", 10319 RowBox[{"b_.", "*", 10320 RowBox[{"Log", "[", 10321 RowBox[{"c_.", "*", 10322 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 10323 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 10324 RowBox[{ 10325 RowBox[{ 10326 RowBox[{"x", "*", 10327 RowBox[{ 10328 RowBox[{ 10329 RowBox[{"Sin", "[", 10330 RowBox[{"a", "+", 10331 RowBox[{"b", "*", 10332 RowBox[{"Log", "[", 10333 RowBox[{"c", "*", 10334 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", "p"}], "/", 10335 RowBox[{"(", 10336 RowBox[{"1", "+", 10337 RowBox[{ 10338 RowBox[{"b", "^", "2"}], "*", 10339 RowBox[{"n", "^", "2"}], "*", 10340 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], " ", "-", "\n", " ", 10341 RowBox[{"b", "*", "n", "*", "p", "*", "x", "*", 10342 RowBox[{"Cos", "[", 10343 RowBox[{"a", "+", 10344 RowBox[{"b", "*", 10345 RowBox[{"Log", "[", 10346 RowBox[{"c", "*", 10347 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 10348 RowBox[{ 10349 RowBox[{ 10350 RowBox[{"Sin", "[", 10351 RowBox[{"a", "+", 10352 RowBox[{"b", "*", 10353 RowBox[{"Log", "[", 10354 RowBox[{"c", "*", 10355 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10356 RowBox[{"(", 10357 RowBox[{"p", "-", "1"}], ")"}]}], "/", 10358 RowBox[{"(", 10359 RowBox[{"1", "+", 10360 RowBox[{ 10361 RowBox[{"b", "^", "2"}], "*", 10362 RowBox[{"n", "^", "2"}], "*", 10363 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], " ", "+", "\n", " ", 10364 RowBox[{"Dist", "[", 10365 RowBox[{ 10366 RowBox[{ 10367 RowBox[{"b", "^", "2"}], "*", 10368 RowBox[{"n", "^", "2"}], "*", "p", "*", 10369 RowBox[{ 10370 RowBox[{"(", 10371 RowBox[{"p", "-", "1"}], ")"}], "/", 10372 RowBox[{"(", 10373 RowBox[{"1", "+", 10374 RowBox[{ 10375 RowBox[{"b", "^", "2"}], "*", 10376 RowBox[{"n", "^", "2"}], "*", 10377 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], ",", 10378 RowBox[{"Int", "[", 10379 RowBox[{ 10380 RowBox[{ 10381 RowBox[{"Sin", "[", 10382 RowBox[{"a", "+", 10383 RowBox[{"b", "*", 10384 RowBox[{"Log", "[", 10385 RowBox[{"c", "*", 10386 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10387 RowBox[{"(", 10388 RowBox[{"p", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", 10389 "/;", "\n", 10390 RowBox[{ 10391 RowBox[{"FreeQ", "[", 10392 RowBox[{ 10393 RowBox[{"{", 10394 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 10395 " ", "&&", " ", 10396 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 10397 RowBox[{"p", ">", "1"}], " ", "&&", " ", 10398 RowBox[{"NonzeroQ", "[", 10399 RowBox[{"1", "+", 10400 RowBox[{ 10401 RowBox[{"b", "^", "2"}], "*", 10402 RowBox[{"n", "^", "2"}], "*", 10403 RowBox[{"p", "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10404 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 10405 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 10406 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 10407 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 10408 3.4978178331616373`*^9, 3.497817943721792*^9}, 10409 Background->GrayLevel[0.85]], 10410 10411Cell[BoxData[ 10412 RowBox[{ 10413 RowBox[{"Int", "[", 10414 RowBox[{ 10415 RowBox[{ 10416 RowBox[{"Cos", "[", 10417 RowBox[{"a_.", "+", 10418 RowBox[{"b_.", "*", 10419 RowBox[{"Log", "[", 10420 RowBox[{"c_.", "*", 10421 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 10422 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 10423 RowBox[{ 10424 RowBox[{ 10425 RowBox[{"x", "*", 10426 RowBox[{ 10427 RowBox[{ 10428 RowBox[{"Cos", "[", 10429 RowBox[{"a", "+", 10430 RowBox[{"b", "*", 10431 RowBox[{"Log", "[", 10432 RowBox[{"c", "*", 10433 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", "p"}], "/", 10434 RowBox[{"(", 10435 RowBox[{"1", "+", 10436 RowBox[{ 10437 RowBox[{"b", "^", "2"}], "*", 10438 RowBox[{"n", "^", "2"}], "*", 10439 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], " ", "+", "\n", " ", 10440 RowBox[{"b", "*", "n", "*", "p", "*", "x", "*", 10441 RowBox[{ 10442 RowBox[{"Cos", "[", 10443 RowBox[{"a", "+", 10444 RowBox[{"b", "*", 10445 RowBox[{"Log", "[", 10446 RowBox[{"c", "*", 10447 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10448 RowBox[{"(", 10449 RowBox[{"p", "-", "1"}], ")"}]}], "*", 10450 RowBox[{ 10451 RowBox[{"Sin", "[", 10452 RowBox[{"a", "+", 10453 RowBox[{"b", "*", 10454 RowBox[{"Log", "[", 10455 RowBox[{"c", "*", 10456 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 10457 RowBox[{"(", 10458 RowBox[{"1", "+", 10459 RowBox[{ 10460 RowBox[{"b", "^", "2"}], "*", 10461 RowBox[{"n", "^", "2"}], "*", 10462 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], " ", "+", "\n", " ", 10463 RowBox[{"Dist", "[", 10464 RowBox[{ 10465 RowBox[{ 10466 RowBox[{"b", "^", "2"}], "*", 10467 RowBox[{"n", "^", "2"}], "*", "p", "*", 10468 RowBox[{ 10469 RowBox[{"(", 10470 RowBox[{"p", "-", "1"}], ")"}], "/", 10471 RowBox[{"(", 10472 RowBox[{"1", "+", 10473 RowBox[{ 10474 RowBox[{"b", "^", "2"}], "*", 10475 RowBox[{"n", "^", "2"}], "*", 10476 RowBox[{"p", "^", "2"}]}]}], ")"}]}]}], ",", 10477 RowBox[{"Int", "[", 10478 RowBox[{ 10479 RowBox[{ 10480 RowBox[{"Cos", "[", 10481 RowBox[{"a", "+", 10482 RowBox[{"b", "*", 10483 RowBox[{"Log", "[", 10484 RowBox[{"c", "*", 10485 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10486 RowBox[{"(", 10487 RowBox[{"p", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", 10488 "/;", "\n", 10489 RowBox[{ 10490 RowBox[{"FreeQ", "[", 10491 RowBox[{ 10492 RowBox[{"{", 10493 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 10494 " ", "&&", " ", 10495 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 10496 RowBox[{"p", ">", "1"}], " ", "&&", " ", 10497 RowBox[{"NonzeroQ", "[", 10498 RowBox[{"1", "+", 10499 RowBox[{ 10500 RowBox[{"b", "^", "2"}], "*", 10501 RowBox[{"n", "^", "2"}], "*", 10502 RowBox[{"p", "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10503 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 10504 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 10505 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 10506 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 10507 3.4978178331616373`*^9, 3.497817943721792*^9, {3.4979216150417833`*^9, 10508 3.4979216452122364`*^9}, 3.4979851724603415`*^9}, 10509 Background->GrayLevel[0.85]], 10510 10511Cell["", "Subsubsection", 10512 CellDingbat->None, 10513 CellChangeTimes->{3.4796643211106243`*^9}], 10514 10515Cell[TextData[{ 10516 "Rule: If ", 10517 Cell[BoxData[ 10518 RowBox[{ 10519 RowBox[{ 10520 RowBox[{"p", "\[NotEqual]", 10521 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 10522 RowBox[{"p", "\[NotEqual]", 10523 RowBox[{"-", "2"}]}], " ", "\[And]", " ", 10524 RowBox[{"1", "+", 10525 RowBox[{ 10526 SuperscriptBox["b", "2"], " ", 10527 SuperscriptBox["n", "2"], " ", 10528 SuperscriptBox[ 10529 RowBox[{"(", 10530 RowBox[{"p", "+", "2"}], ")"}], "2"]}]}]}], "=", "0"}]]], 10531 ", then" 10532}], "Subsubsection", 10533 CellDingbat->"\[FilledSmallSquare]", 10534 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10535 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10536 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10537 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10538 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10539 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10540 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10541 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 10542 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 10543 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 10544 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978180135518894`*^9, 10545 3.4978180349019194`*^9}, {3.4978181090720234`*^9, 3.497818144362073*^9}, { 10546 3.4990409864002314`*^9, 3.4990409982718525`*^9}, {3.499041545815615*^9, 10547 3.499041545815615*^9}, {3.499124360002801*^9, 3.4991243619528036`*^9}}], 10548 10549Cell[BoxData[ 10550 RowBox[{ 10551 RowBox[{"\[Integral]", 10552 RowBox[{ 10553 SuperscriptBox[ 10554 RowBox[{"Sin", "[", 10555 RowBox[{"a", "+", 10556 RowBox[{"b", " ", 10557 RowBox[{"Log", "[", 10558 RowBox[{"c", " ", 10559 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 10560 RowBox[{"\[DifferentialD]", 10561 RowBox[{"x", " ", "\[LongRightArrow]", " ", 10562 FractionBox[ 10563 RowBox[{"x", " ", 10564 RowBox[{"Cot", "[", 10565 RowBox[{"a", "+", 10566 RowBox[{"b", " ", 10567 RowBox[{"Log", "[", 10568 RowBox[{"c", " ", 10569 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], " ", 10570 SuperscriptBox[ 10571 RowBox[{"Sin", "[", 10572 RowBox[{"a", "+", 10573 RowBox[{"b", " ", 10574 RowBox[{"Log", "[", 10575 RowBox[{"c", " ", 10576 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10577 RowBox[{"p", "+", "2"}]]}], 10578 RowBox[{"b", " ", "n", " ", 10579 RowBox[{"(", 10580 RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 10581 FractionBox[ 10582 RowBox[{"x", " ", 10583 SuperscriptBox[ 10584 RowBox[{"Sin", "[", 10585 RowBox[{"a", "+", 10586 RowBox[{"b", " ", 10587 RowBox[{"Log", "[", 10588 RowBox[{"c", " ", 10589 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10590 RowBox[{"p", "+", "2"}]]}], 10591 RowBox[{ 10592 SuperscriptBox["b", "2"], " ", 10593 SuperscriptBox["n", "2"], " ", 10594 RowBox[{"(", 10595 RowBox[{"p", "+", "1"}], ")"}], " ", 10596 RowBox[{"(", 10597 RowBox[{"p", "+", "2"}], ")"}]}]]}]], "Subsubtitle", 10598 CellDingbat->None, 10599 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 10600 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 10601 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 10602 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 10603 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 10604 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 10605 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 10606 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 10607 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 10608 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 10609 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 10610 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 10611 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 10612 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978180869619923`*^9, 10613 3.497818100362011*^9}, {3.497845459618317*^9, 3.4978454619083204`*^9}, { 10614 3.49904154854562*^9, 3.499041556813635*^9}}, 10615 TextAlignment->Center, 10616 FontSize->12, 10617 FontWeight->"Bold"], 10618 10619Cell["Program code:", "Subsubsection", 10620 CellDingbat->"\[FilledSmallSquare]", 10621 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10622 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10623 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10624 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10625 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10626 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10627 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10628 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 10629 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 10630 3.492805165713872*^9}}], 10631 10632Cell[BoxData[ 10633 RowBox[{ 10634 RowBox[{"Int", "[", 10635 RowBox[{ 10636 RowBox[{ 10637 RowBox[{"Sin", "[", 10638 RowBox[{"a_.", "+", 10639 RowBox[{"b_.", "*", 10640 RowBox[{"Log", "[", 10641 RowBox[{"c_.", "*", 10642 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 10643 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 10644 RowBox[{ 10645 RowBox[{ 10646 RowBox[{"x", "*", 10647 RowBox[{"Cot", "[", 10648 RowBox[{"a", "+", 10649 RowBox[{"b", "*", 10650 RowBox[{"Log", "[", 10651 RowBox[{"c", "*", 10652 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 10653 RowBox[{ 10654 RowBox[{ 10655 RowBox[{"Sin", "[", 10656 RowBox[{"a", "+", 10657 RowBox[{"b", "*", 10658 RowBox[{"Log", "[", 10659 RowBox[{"c", "*", 10660 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10661 RowBox[{"(", 10662 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10663 RowBox[{"(", 10664 RowBox[{"b", "*", "n", "*", 10665 RowBox[{"(", 10666 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 10667 RowBox[{"x", "*", 10668 RowBox[{ 10669 RowBox[{ 10670 RowBox[{"Sin", "[", 10671 RowBox[{"a", "+", 10672 RowBox[{"b", "*", 10673 RowBox[{"Log", "[", 10674 RowBox[{"c", "*", 10675 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10676 RowBox[{"(", 10677 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10678 RowBox[{"(", 10679 RowBox[{ 10680 RowBox[{"b", "^", "2"}], "*", 10681 RowBox[{"n", "^", "2"}], "*", 10682 RowBox[{"(", 10683 RowBox[{"p", "+", "1"}], ")"}], "*", 10684 RowBox[{"(", 10685 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}]}], " ", "/;", "\n", 10686 RowBox[{ 10687 RowBox[{"FreeQ", "[", 10688 RowBox[{ 10689 RowBox[{"{", 10690 RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 10691 "x"}], "]"}], " ", "&&", " ", 10692 RowBox[{"NonzeroQ", "[", 10693 RowBox[{"p", "+", "1"}], "]"}], " ", "&&", " ", 10694 RowBox[{"NonzeroQ", "[", 10695 RowBox[{"p", "+", "2"}], "]"}], " ", "&&", " ", 10696 RowBox[{"ZeroQ", "[", 10697 RowBox[{"1", "+", 10698 RowBox[{ 10699 RowBox[{"b", "^", "2"}], "*", 10700 RowBox[{"n", "^", "2"}], "*", 10701 RowBox[{ 10702 RowBox[{"(", 10703 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10704 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 10705 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 10706 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 10707 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 10708 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, { 10709 3.499038735958079*^9, 3.4990387372996807`*^9}, {3.499040971892206*^9, 10710 3.4990409767594147`*^9}, {3.499041561119242*^9, 3.499041572772463*^9}, { 10711 3.499124340662774*^9, 3.4991243557227945`*^9}, {3.4991245095730104`*^9, 10712 3.499124514033016*^9}}, 10713 Background->GrayLevel[0.85]], 10714 10715Cell[BoxData[ 10716 RowBox[{ 10717 RowBox[{"Int", "[", 10718 RowBox[{ 10719 RowBox[{ 10720 RowBox[{"Cos", "[", 10721 RowBox[{"a_.", "+", 10722 RowBox[{"b_.", "*", 10723 RowBox[{"Log", "[", 10724 RowBox[{"c_.", "*", 10725 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 10726 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 10727 RowBox[{ 10728 RowBox[{ 10729 RowBox[{ 10730 RowBox[{"-", "x"}], "*", 10731 RowBox[{"Tan", "[", 10732 RowBox[{"a", "+", 10733 RowBox[{"b", "*", 10734 RowBox[{"Log", "[", 10735 RowBox[{"c", "*", 10736 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 10737 RowBox[{ 10738 RowBox[{ 10739 RowBox[{"Cos", "[", 10740 RowBox[{"a", "+", 10741 RowBox[{"b", "*", 10742 RowBox[{"Log", "[", 10743 RowBox[{"c", "*", 10744 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10745 RowBox[{"(", 10746 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10747 RowBox[{"(", 10748 RowBox[{"b", "*", "n", "*", 10749 RowBox[{"(", 10750 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 10751 RowBox[{"x", "*", 10752 RowBox[{ 10753 RowBox[{ 10754 RowBox[{"Cos", "[", 10755 RowBox[{"a", "+", 10756 RowBox[{"b", "*", 10757 RowBox[{"Log", "[", 10758 RowBox[{"c", "*", 10759 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10760 RowBox[{"(", 10761 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10762 RowBox[{"(", 10763 RowBox[{ 10764 RowBox[{"b", "^", "2"}], "*", 10765 RowBox[{"n", "^", "2"}], "*", 10766 RowBox[{"(", 10767 RowBox[{"p", "+", "1"}], ")"}], "*", 10768 RowBox[{"(", 10769 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}]}], " ", "/;", "\n", 10770 RowBox[{ 10771 RowBox[{"FreeQ", "[", 10772 RowBox[{ 10773 RowBox[{"{", 10774 RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 10775 "x"}], "]"}], " ", "&&", " ", 10776 RowBox[{"NonzeroQ", "[", 10777 RowBox[{"p", "+", "1"}], "]"}], " ", "&&", " ", 10778 RowBox[{"NonzeroQ", "[", 10779 RowBox[{"p", "+", "2"}], "]"}], " ", "&&", " ", 10780 RowBox[{"ZeroQ", "[", 10781 RowBox[{"1", "+", 10782 RowBox[{ 10783 RowBox[{"b", "^", "2"}], "*", 10784 RowBox[{"n", "^", "2"}], "*", 10785 RowBox[{ 10786 RowBox[{"(", 10787 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], "]"}]}]}]}]], "Code", 10788 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 10789 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 10790 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 10791 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 10792 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, { 10793 3.497921630751011*^9, 3.497921630751011*^9}, 3.4979851806035557`*^9, { 10794 3.4990389242348094`*^9, 3.4990389253268113`*^9}, 3.4990410904992146`*^9, { 10795 3.499041644064588*^9, 3.4990416507101994`*^9}, {3.499124407432867*^9, 10796 3.4991244229228888`*^9}, {3.499124540903054*^9, 3.499124546123061*^9}}, 10797 Background->GrayLevel[0.85]], 10798 10799Cell["", "Subsubsection", 10800 CellDingbat->None, 10801 CellChangeTimes->{3.4796643211106243`*^9}], 10802 10803Cell[TextData[{ 10804 "Rule: If ", 10805 Cell[BoxData[ 10806 RowBox[{ 10807 RowBox[{"p", "<", 10808 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 10809 RowBox[{"p", "\[NotEqual]", 10810 RowBox[{"-", "2"}]}], " ", "\[And]", " ", 10811 RowBox[{ 10812 RowBox[{"1", "+", 10813 RowBox[{ 10814 SuperscriptBox["b", "2"], " ", 10815 SuperscriptBox["n", "2"], " ", 10816 SuperscriptBox[ 10817 RowBox[{"(", 10818 RowBox[{"p", "+", "2"}], ")"}], "2"]}]}], "\[NotEqual]", "0"}]}]]], 10819 ", then" 10820}], "Subsubsection", 10821 CellDingbat->"\[FilledSmallSquare]", 10822 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10823 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10824 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10825 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10826 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10827 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10828 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10829 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 10830 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 10831 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 10832 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978180135518894`*^9, 10833 3.4978180349019194`*^9}, {3.4978181090720234`*^9, 3.497818144362073*^9}, { 10834 3.4990409864002314`*^9, 3.4990409982718525`*^9}}], 10835 10836Cell[BoxData[ 10837 RowBox[{ 10838 RowBox[{"\[Integral]", 10839 RowBox[{ 10840 SuperscriptBox[ 10841 RowBox[{"Sin", "[", 10842 RowBox[{"a", "+", 10843 RowBox[{"b", " ", 10844 RowBox[{"Log", "[", 10845 RowBox[{"c", " ", 10846 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 10847 RowBox[{"\[DifferentialD]", 10848 RowBox[{"x", " ", "\[LongRightArrow]", " ", 10849 FractionBox[ 10850 RowBox[{"x", " ", 10851 RowBox[{"Cot", "[", 10852 RowBox[{"a", "+", 10853 RowBox[{"b", " ", 10854 RowBox[{"Log", "[", 10855 RowBox[{"c", " ", 10856 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], " ", 10857 SuperscriptBox[ 10858 RowBox[{"Sin", "[", 10859 RowBox[{"a", "+", 10860 RowBox[{"b", " ", 10861 RowBox[{"Log", "[", 10862 RowBox[{"c", " ", 10863 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10864 RowBox[{"p", "+", "2"}]]}], 10865 RowBox[{"b", " ", "n", " ", 10866 RowBox[{"(", 10867 RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", " ", 10868 "\[IndentingNewLine]", " ", 10869 FractionBox[ 10870 RowBox[{"x", " ", 10871 SuperscriptBox[ 10872 RowBox[{"Sin", "[", 10873 RowBox[{"a", "+", 10874 RowBox[{"b", " ", 10875 RowBox[{"Log", "[", 10876 RowBox[{"c", " ", 10877 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10878 RowBox[{"p", "+", "2"}]]}], 10879 RowBox[{ 10880 SuperscriptBox["b", "2"], " ", 10881 SuperscriptBox["n", "2"], " ", 10882 RowBox[{"(", 10883 RowBox[{"p", "+", "1"}], ")"}], " ", 10884 RowBox[{"(", 10885 RowBox[{"p", "+", "2"}], ")"}]}]], "+", 10886 RowBox[{ 10887 FractionBox[ 10888 RowBox[{"1", "+", 10889 RowBox[{ 10890 SuperscriptBox["b", "2"], " ", 10891 SuperscriptBox["n", "2"], " ", 10892 SuperscriptBox[ 10893 RowBox[{"(", 10894 RowBox[{"p", "+", "2"}], ")"}], "2"]}]}], 10895 RowBox[{ 10896 SuperscriptBox["b", "2"], " ", 10897 SuperscriptBox["n", "2"], " ", 10898 RowBox[{"(", 10899 RowBox[{"p", "+", "1"}], ")"}], " ", 10900 RowBox[{"(", 10901 RowBox[{"p", "+", "2"}], ")"}]}]], 10902 RowBox[{"\[Integral]", 10903 RowBox[{ 10904 SuperscriptBox[ 10905 RowBox[{"Sin", "[", 10906 RowBox[{"a", "+", 10907 RowBox[{"b", " ", 10908 RowBox[{"Log", "[", 10909 RowBox[{"c", " ", 10910 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 10911 RowBox[{"p", "+", "2"}]], 10912 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 10913 CellDingbat->None, 10914 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 10915 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 10916 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 10917 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 10918 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 10919 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 10920 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 10921 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 10922 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 10923 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 10924 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 10925 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 10926 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 10927 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978180869619923`*^9, 10928 3.497818100362011*^9}, {3.497845459618317*^9, 3.4978454619083204`*^9}}, 10929 TextAlignment->Center, 10930 FontSize->12, 10931 FontWeight->"Bold"], 10932 10933Cell["Program code:", "Subsubsection", 10934 CellDingbat->"\[FilledSmallSquare]", 10935 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 10936 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 10937 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 10938 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 10939 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 10940 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 10941 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 10942 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 10943 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 10944 3.492805165713872*^9}}], 10945 10946Cell[BoxData[ 10947 RowBox[{ 10948 RowBox[{"Int", "[", 10949 RowBox[{ 10950 RowBox[{ 10951 RowBox[{"Sin", "[", 10952 RowBox[{"a_.", "+", 10953 RowBox[{"b_.", "*", 10954 RowBox[{"Log", "[", 10955 RowBox[{"c_.", "*", 10956 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 10957 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 10958 RowBox[{ 10959 RowBox[{ 10960 RowBox[{"x", "*", 10961 RowBox[{"Cot", "[", 10962 RowBox[{"a", "+", 10963 RowBox[{"b", "*", 10964 RowBox[{"Log", "[", 10965 RowBox[{"c", "*", 10966 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 10967 RowBox[{ 10968 RowBox[{ 10969 RowBox[{"Sin", "[", 10970 RowBox[{"a", "+", 10971 RowBox[{"b", "*", 10972 RowBox[{"Log", "[", 10973 RowBox[{"c", "*", 10974 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10975 RowBox[{"(", 10976 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10977 RowBox[{"(", 10978 RowBox[{"b", "*", "n", "*", 10979 RowBox[{"(", 10980 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 10981 RowBox[{"x", "*", 10982 RowBox[{ 10983 RowBox[{ 10984 RowBox[{"Sin", "[", 10985 RowBox[{"a", "+", 10986 RowBox[{"b", "*", 10987 RowBox[{"Log", "[", 10988 RowBox[{"c", "*", 10989 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 10990 RowBox[{"(", 10991 RowBox[{"p", "+", "2"}], ")"}]}], "/", 10992 RowBox[{"(", 10993 RowBox[{ 10994 RowBox[{"b", "^", "2"}], "*", 10995 RowBox[{"n", "^", "2"}], "*", 10996 RowBox[{"(", 10997 RowBox[{"p", "+", "1"}], ")"}], "*", 10998 RowBox[{"(", 10999 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 11000 RowBox[{"Dist", "[", 11001 RowBox[{ 11002 RowBox[{ 11003 RowBox[{"(", 11004 RowBox[{"1", "+", 11005 RowBox[{ 11006 RowBox[{"b", "^", "2"}], "*", 11007 RowBox[{"n", "^", "2"}], "*", 11008 RowBox[{ 11009 RowBox[{"(", 11010 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], ")"}], "/", 11011 RowBox[{"(", 11012 RowBox[{ 11013 RowBox[{"b", "^", "2"}], "*", 11014 RowBox[{"n", "^", "2"}], "*", 11015 RowBox[{"(", 11016 RowBox[{"p", "+", "1"}], ")"}], "*", 11017 RowBox[{"(", 11018 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}], ",", 11019 RowBox[{"Int", "[", 11020 RowBox[{ 11021 RowBox[{ 11022 RowBox[{"Sin", "[", 11023 RowBox[{"a", "+", 11024 RowBox[{"b", "*", 11025 RowBox[{"Log", "[", 11026 RowBox[{"c", "*", 11027 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11028 RowBox[{"(", 11029 RowBox[{"p", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", 11030 "/;", "\n", 11031 RowBox[{ 11032 RowBox[{"FreeQ", "[", 11033 RowBox[{ 11034 RowBox[{"{", 11035 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 11036 " ", "&&", " ", 11037 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 11038 RowBox[{"p", "<", 11039 RowBox[{"-", "1"}]}], " ", "&&", " ", 11040 RowBox[{"p", "\[NotEqual]", 11041 RowBox[{"-", "2"}]}], " ", "&&", " ", 11042 RowBox[{"NonzeroQ", "[", 11043 RowBox[{"1", "+", 11044 RowBox[{ 11045 RowBox[{"b", "^", "2"}], "*", 11046 RowBox[{"n", "^", "2"}], "*", 11047 RowBox[{ 11048 RowBox[{"(", 11049 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], "]"}]}]}]}]], "Code", 11050 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 11051 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 11052 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 11053 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 11054 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, { 11055 3.499038735958079*^9, 3.4990387372996807`*^9}, {3.499040971892206*^9, 11056 3.4990409767594147`*^9}}, 11057 Background->GrayLevel[0.85]], 11058 11059Cell[BoxData[ 11060 RowBox[{ 11061 RowBox[{"Int", "[", 11062 RowBox[{ 11063 RowBox[{ 11064 RowBox[{"Cos", "[", 11065 RowBox[{"a_.", "+", 11066 RowBox[{"b_.", "*", 11067 RowBox[{"Log", "[", 11068 RowBox[{"c_.", "*", 11069 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}], ",", 11070 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 11071 RowBox[{ 11072 RowBox[{ 11073 RowBox[{ 11074 RowBox[{"-", "x"}], "*", 11075 RowBox[{"Tan", "[", 11076 RowBox[{"a", "+", 11077 RowBox[{"b", "*", 11078 RowBox[{"Log", "[", 11079 RowBox[{"c", "*", 11080 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 11081 RowBox[{ 11082 RowBox[{ 11083 RowBox[{"Cos", "[", 11084 RowBox[{"a", "+", 11085 RowBox[{"b", "*", 11086 RowBox[{"Log", "[", 11087 RowBox[{"c", "*", 11088 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11089 RowBox[{"(", 11090 RowBox[{"p", "+", "2"}], ")"}]}], "/", 11091 RowBox[{"(", 11092 RowBox[{"b", "*", "n", "*", 11093 RowBox[{"(", 11094 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 11095 RowBox[{"x", "*", 11096 RowBox[{ 11097 RowBox[{ 11098 RowBox[{"Cos", "[", 11099 RowBox[{"a", "+", 11100 RowBox[{"b", "*", 11101 RowBox[{"Log", "[", 11102 RowBox[{"c", "*", 11103 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11104 RowBox[{"(", 11105 RowBox[{"p", "+", "2"}], ")"}]}], "/", 11106 RowBox[{"(", 11107 RowBox[{ 11108 RowBox[{"b", "^", "2"}], "*", 11109 RowBox[{"n", "^", "2"}], "*", 11110 RowBox[{"(", 11111 RowBox[{"p", "+", "1"}], ")"}], "*", 11112 RowBox[{"(", 11113 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 11114 RowBox[{"Dist", "[", 11115 RowBox[{ 11116 RowBox[{ 11117 RowBox[{"(", 11118 RowBox[{"1", "+", 11119 RowBox[{ 11120 RowBox[{"b", "^", "2"}], "*", 11121 RowBox[{"n", "^", "2"}], "*", 11122 RowBox[{ 11123 RowBox[{"(", 11124 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], ")"}], "/", 11125 RowBox[{"(", 11126 RowBox[{ 11127 RowBox[{"b", "^", "2"}], "*", 11128 RowBox[{"n", "^", "2"}], "*", 11129 RowBox[{"(", 11130 RowBox[{"p", "+", "1"}], ")"}], "*", 11131 RowBox[{"(", 11132 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}], ",", 11133 RowBox[{"Int", "[", 11134 RowBox[{ 11135 RowBox[{ 11136 RowBox[{"Cos", "[", 11137 RowBox[{"a", "+", 11138 RowBox[{"b", "*", 11139 RowBox[{"Log", "[", 11140 RowBox[{"c", "*", 11141 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11142 RowBox[{"(", 11143 RowBox[{"p", "+", "2"}], ")"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", 11144 "/;", "\n", 11145 RowBox[{ 11146 RowBox[{"FreeQ", "[", 11147 RowBox[{ 11148 RowBox[{"{", 11149 RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 11150 " ", "&&", " ", 11151 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 11152 RowBox[{"p", "<", 11153 RowBox[{"-", "1"}]}], " ", "&&", " ", 11154 RowBox[{"p", "\[NotEqual]", 11155 RowBox[{"-", "2"}]}], " ", "&&", " ", 11156 RowBox[{"NonzeroQ", "[", 11157 RowBox[{"1", "+", 11158 RowBox[{ 11159 RowBox[{"b", "^", "2"}], "*", 11160 RowBox[{"n", "^", "2"}], "*", 11161 RowBox[{ 11162 RowBox[{"(", 11163 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}]}], "]"}]}]}]}]], "Code", 11164 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 11165 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 11166 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 11167 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 11168 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, { 11169 3.497921630751011*^9, 3.497921630751011*^9}, 3.4979851806035557`*^9, { 11170 3.4990389242348094`*^9, 3.4990389253268113`*^9}, 3.4990410904992146`*^9}, 11171 Background->GrayLevel[0.85]], 11172 11173Cell["", "PageBreak", 11174 PageBreakBelow->True] 11175}, Closed]], 11176 11177Cell[CellGroupData[{ 11178 11179Cell[BoxData[ 11180 RowBox[{"\[Integral]", 11181 RowBox[{ 11182 SuperscriptBox["x", "m"], 11183 SuperscriptBox[ 11184 RowBox[{"Sin", "[", 11185 RowBox[{"a", "+", 11186 RowBox[{"b", " ", 11187 RowBox[{"Log", "[", 11188 RowBox[{"c", " ", 11189 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 11190 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 11191 CellDingbat->None, 11192 CellChangeTimes->{ 11193 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 11194 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 11195 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 11196 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 11197 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 11198 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 11199 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 11200 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 11201 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 11202 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 11203 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 11204 3.497816868100286*^9, 3.4978178569916706`*^9, 3.4978181977321477`*^9}, 11205 TextAlignment->Center, 11206 FontSize->20, 11207 FontWeight->"Bold"], 11208 11209Cell[TextData[{ 11210 "Rule: If ", 11211 Cell[BoxData[ 11212 RowBox[{ 11213 RowBox[{ 11214 RowBox[{ 11215 RowBox[{ 11216 SuperscriptBox["b", "2"], " ", 11217 SuperscriptBox["n", "2"]}], "+", 11218 SuperscriptBox[ 11219 RowBox[{"(", 11220 RowBox[{"m", "+", "1"}], ")"}], "2"]}], "\[NotEqual]", "0"}], " ", 11221 "\[And]", " ", 11222 RowBox[{ 11223 RowBox[{"m", "+", "1"}], "\[NotEqual]", "0"}]}]]], 11224 ", then" 11225}], "Subsubsection", 11226 CellDingbat->"\[FilledSmallSquare]", 11227 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 11228 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 11229 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 11230 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 11231 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 11232 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 11233 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 11234 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 11235 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 11236 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 11237 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 11238 3.497818281002264*^9}}], 11239 11240Cell[BoxData[ 11241 RowBox[{ 11242 RowBox[{"\[Integral]", 11243 RowBox[{ 11244 SuperscriptBox["x", "m"], 11245 RowBox[{"Sin", "[", 11246 RowBox[{"a", "+", 11247 RowBox[{"b", " ", 11248 RowBox[{"Log", "[", 11249 RowBox[{"c", " ", 11250 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 11251 RowBox[{"\[DifferentialD]", 11252 RowBox[{"x", " ", "\[LongRightArrow]", " ", 11253 FractionBox[ 11254 RowBox[{ 11255 RowBox[{"(", 11256 RowBox[{"m", "+", "1"}], ")"}], " ", 11257 SuperscriptBox["x", 11258 RowBox[{"m", "+", "1"}]], " ", 11259 RowBox[{"Sin", "[", 11260 RowBox[{"a", "+", 11261 RowBox[{"b", " ", 11262 RowBox[{"Log", "[", 11263 RowBox[{"c", " ", 11264 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}]}], 11265 RowBox[{ 11266 RowBox[{ 11267 SuperscriptBox["b", "2"], " ", 11268 SuperscriptBox["n", "2"]}], "+", 11269 SuperscriptBox[ 11270 RowBox[{"(", 11271 RowBox[{"m", "+", "1"}], ")"}], "2"]}]]}]}]}]}], "-", 11272 FractionBox[ 11273 RowBox[{"b", " ", "n", " ", 11274 SuperscriptBox["x", 11275 RowBox[{"m", "+", "1"}]], " ", 11276 RowBox[{"Cos", "[", 11277 RowBox[{"a", "+", 11278 RowBox[{"b", " ", 11279 RowBox[{"Log", "[", 11280 RowBox[{"c", " ", 11281 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}]}], 11282 RowBox[{ 11283 RowBox[{ 11284 SuperscriptBox["b", "2"], " ", 11285 SuperscriptBox["n", "2"]}], "+", 11286 SuperscriptBox[ 11287 RowBox[{"(", 11288 RowBox[{"m", "+", "1"}], ")"}], "2"]}]]}]], "Subsubtitle", 11289 CellDingbat->None, 11290 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 11291 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 11292 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 11293 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 11294 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 11295 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 11296 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 11297 3.49781786362168*^9, 3.4978178842317085`*^9}, 3.497818243732212*^9, 11298 3.497818386462412*^9}, 11299 TextAlignment->Center, 11300 FontSize->12, 11301 FontWeight->"Bold"], 11302 11303Cell["Program code:", "Subsubsection", 11304 CellDingbat->"\[FilledSmallSquare]", 11305 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 11306 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 11307 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 11308 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 11309 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 11310 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 11311 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 11312 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 11313 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 11314 3.492805165713872*^9}}], 11315 11316Cell[BoxData[ 11317 RowBox[{ 11318 RowBox[{"Int", "[", 11319 RowBox[{ 11320 RowBox[{ 11321 RowBox[{"x_", "^", "m_."}], "*", 11322 RowBox[{"Sin", "[", 11323 RowBox[{"a_.", "+", 11324 RowBox[{"b_.", "*", 11325 RowBox[{"Log", "[", 11326 RowBox[{"c_.", "*", 11327 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}], 11328 "]"}], " ", ":=", "\n", " ", 11329 RowBox[{ 11330 RowBox[{ 11331 RowBox[{ 11332 RowBox[{"(", 11333 RowBox[{"m", "+", "1"}], ")"}], "*", 11334 RowBox[{"x", "^", 11335 RowBox[{"(", 11336 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11337 RowBox[{ 11338 RowBox[{"Sin", "[", 11339 RowBox[{"a", "+", 11340 RowBox[{"b", "*", 11341 RowBox[{"Log", "[", 11342 RowBox[{"c", "*", 11343 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 11344 RowBox[{"(", 11345 RowBox[{ 11346 RowBox[{ 11347 RowBox[{"b", "^", "2"}], "*", 11348 RowBox[{"n", "^", "2"}]}], "+", 11349 RowBox[{ 11350 RowBox[{"(", 11351 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "-", 11352 "\n", " ", 11353 RowBox[{"b", "*", "n", "*", 11354 RowBox[{"x", "^", 11355 RowBox[{"(", 11356 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11357 RowBox[{ 11358 RowBox[{"Cos", "[", 11359 RowBox[{"a", "+", 11360 RowBox[{"b", "*", 11361 RowBox[{"Log", "[", 11362 RowBox[{"c", "*", 11363 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 11364 RowBox[{"(", 11365 RowBox[{ 11366 RowBox[{ 11367 RowBox[{"b", "^", "2"}], "*", 11368 RowBox[{"n", "^", "2"}]}], "+", 11369 RowBox[{ 11370 RowBox[{"(", 11371 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}]}], " ", "/;", 11372 "\n", 11373 RowBox[{ 11374 RowBox[{"FreeQ", "[", 11375 RowBox[{ 11376 RowBox[{"{", 11377 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 11378 "x"}], "]"}], " ", "&&", " ", 11379 RowBox[{"NonzeroQ", "[", 11380 RowBox[{ 11381 RowBox[{ 11382 RowBox[{"b", "^", "2"}], "*", 11383 RowBox[{"n", "^", "2"}]}], "+", 11384 RowBox[{ 11385 RowBox[{"(", 11386 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], "]"}], " ", "&&", " ", 11387 RowBox[{"NonzeroQ", "[", 11388 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 11389 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 11390 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 11391 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 11392 3.497816883330307*^9, 3.497817840791648*^9, 3.497818221872181*^9}, 11393 Background->GrayLevel[0.85]], 11394 11395Cell[BoxData[ 11396 RowBox[{ 11397 RowBox[{"Int", "[", 11398 RowBox[{ 11399 RowBox[{ 11400 RowBox[{"x_", "^", "m_."}], "*", 11401 RowBox[{"Cos", "[", 11402 RowBox[{"a_.", "+", 11403 RowBox[{"b_.", "*", 11404 RowBox[{"Log", "[", 11405 RowBox[{"c_.", "*", 11406 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}], 11407 "]"}], " ", ":=", "\n", " ", 11408 RowBox[{ 11409 RowBox[{ 11410 RowBox[{ 11411 RowBox[{"(", 11412 RowBox[{"m", "+", "1"}], ")"}], "*", 11413 RowBox[{"x", "^", 11414 RowBox[{"(", 11415 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11416 RowBox[{ 11417 RowBox[{"Cos", "[", 11418 RowBox[{"a", "+", 11419 RowBox[{"b", "*", 11420 RowBox[{"Log", "[", 11421 RowBox[{"c", "*", 11422 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 11423 RowBox[{"(", 11424 RowBox[{ 11425 RowBox[{ 11426 RowBox[{"b", "^", "2"}], "*", 11427 RowBox[{"n", "^", "2"}]}], "+", 11428 RowBox[{ 11429 RowBox[{"(", 11430 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "+", 11431 "\n", " ", 11432 RowBox[{"b", "*", "n", "*", 11433 RowBox[{"x", "^", 11434 RowBox[{"(", 11435 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11436 RowBox[{ 11437 RowBox[{"Sin", "[", 11438 RowBox[{"a", "+", 11439 RowBox[{"b", "*", 11440 RowBox[{"Log", "[", 11441 RowBox[{"c", "*", 11442 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "/", 11443 RowBox[{"(", 11444 RowBox[{ 11445 RowBox[{ 11446 RowBox[{"b", "^", "2"}], "*", 11447 RowBox[{"n", "^", "2"}]}], "+", 11448 RowBox[{ 11449 RowBox[{"(", 11450 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}]}], " ", "/;", 11451 "\n", 11452 RowBox[{ 11453 RowBox[{"FreeQ", "[", 11454 RowBox[{ 11455 RowBox[{"{", 11456 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 11457 "x"}], "]"}], " ", "&&", " ", 11458 RowBox[{"NonzeroQ", "[", 11459 RowBox[{ 11460 RowBox[{ 11461 RowBox[{"b", "^", "2"}], "*", 11462 RowBox[{"n", "^", "2"}]}], "+", 11463 RowBox[{ 11464 RowBox[{"(", 11465 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], "]"}], " ", "&&", " ", 11466 RowBox[{"NonzeroQ", "[", 11467 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 11468 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 11469 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 11470 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 11471 3.497816883330307*^9, 3.497817840791648*^9, 3.497818221872181*^9, { 11472 3.4979216150573835`*^9, 3.4979216452434363`*^9}, 3.4979853429218407`*^9}, 11473 Background->GrayLevel[0.85]], 11474 11475Cell["", "Subsubsection", 11476 CellDingbat->None, 11477 CellChangeTimes->{3.4796643211106243`*^9}], 11478 11479Cell[TextData[{ 11480 "Rule: If ", 11481 Cell[BoxData[ 11482 RowBox[{ 11483 RowBox[{"p", ">", "1"}], " ", "\[And]", " ", 11484 RowBox[{ 11485 RowBox[{ 11486 RowBox[{ 11487 SuperscriptBox["b", "2"], " ", 11488 SuperscriptBox["n", "2"], " ", 11489 SuperscriptBox["p", "2"]}], "+", 11490 SuperscriptBox[ 11491 RowBox[{"(", 11492 RowBox[{"m", "+", "1"}], ")"}], "2"]}], "\[NotEqual]", "0"}], " ", 11493 "\[And]", " ", 11494 RowBox[{ 11495 RowBox[{"m", "+", "1"}], "\[NotEqual]", "0"}]}]]], 11496 ", then" 11497}], "Subsubsection", 11498 CellDingbat->"\[FilledSmallSquare]", 11499 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 11500 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 11501 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 11502 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 11503 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 11504 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 11505 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 11506 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 11507 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 11508 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 11509 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 11510 3.497818281002264*^9}, {3.4978183492423596`*^9, 3.4978183713523903`*^9}}], 11511 11512Cell[BoxData[ 11513 RowBox[{ 11514 RowBox[{"\[Integral]", 11515 RowBox[{ 11516 SuperscriptBox["x", "m"], 11517 SuperscriptBox[ 11518 RowBox[{"Sin", "[", 11519 RowBox[{"a", "+", 11520 RowBox[{"b", " ", 11521 RowBox[{"Log", "[", 11522 RowBox[{"c", " ", 11523 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 11524 RowBox[{"\[DifferentialD]", 11525 RowBox[{"x", " ", "\[LongRightArrow]", " ", 11526 FractionBox[ 11527 RowBox[{ 11528 RowBox[{"(", 11529 RowBox[{"m", "+", "1"}], ")"}], " ", 11530 SuperscriptBox["x", 11531 RowBox[{"m", "+", "1"}]], " ", 11532 SuperscriptBox[ 11533 RowBox[{"Sin", "[", 11534 RowBox[{"a", "+", 11535 RowBox[{"b", " ", 11536 RowBox[{"Log", "[", 11537 RowBox[{"c", " ", 11538 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"]}], 11539 RowBox[{ 11540 RowBox[{ 11541 SuperscriptBox["b", "2"], " ", 11542 SuperscriptBox["n", "2"], " ", 11543 SuperscriptBox["p", "2"]}], "+", 11544 SuperscriptBox[ 11545 RowBox[{"(", 11546 RowBox[{"m", "+", "1"}], ")"}], "2"]}]]}]}]}]}], "-", 11547 " ", 11548 "\[IndentingNewLine]", " ", 11549 FractionBox[ 11550 RowBox[{"b", " ", "n", " ", "p", " ", 11551 SuperscriptBox["x", 11552 RowBox[{"m", "+", "1"}]], " ", 11553 RowBox[{"Cos", "[", 11554 RowBox[{"a", "+", 11555 RowBox[{"b", " ", 11556 RowBox[{"Log", "[", 11557 RowBox[{"c", " ", 11558 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], " ", 11559 SuperscriptBox[ 11560 RowBox[{"Sin", "[", 11561 RowBox[{"a", "+", 11562 RowBox[{"b", " ", 11563 RowBox[{"Log", "[", 11564 RowBox[{"c", " ", 11565 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 11566 RowBox[{"p", "-", "1"}]]}], 11567 RowBox[{ 11568 RowBox[{ 11569 SuperscriptBox["b", "2"], " ", 11570 SuperscriptBox["n", "2"], " ", 11571 SuperscriptBox["p", "2"]}], "+", 11572 SuperscriptBox[ 11573 RowBox[{"(", 11574 RowBox[{"m", "+", "1"}], ")"}], "2"]}]], "+", 11575 RowBox[{ 11576 FractionBox[ 11577 RowBox[{ 11578 SuperscriptBox["b", "2"], " ", 11579 SuperscriptBox["n", "2"], " ", "p", " ", 11580 RowBox[{"(", 11581 RowBox[{"p", "-", "1"}], ")"}]}], 11582 RowBox[{ 11583 RowBox[{ 11584 SuperscriptBox["b", "2"], " ", 11585 SuperscriptBox["n", "2"], " ", 11586 SuperscriptBox["p", "2"]}], "+", 11587 SuperscriptBox[ 11588 RowBox[{"(", 11589 RowBox[{"m", "+", "1"}], ")"}], "2"]}]], 11590 RowBox[{"\[Integral]", 11591 RowBox[{ 11592 SuperscriptBox["x", "m"], " ", 11593 SuperscriptBox[ 11594 RowBox[{"Sin", "[", 11595 RowBox[{"a", "+", 11596 RowBox[{"b", " ", 11597 RowBox[{"Log", "[", 11598 RowBox[{"c", " ", 11599 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 11600 RowBox[{"p", "-", "2"}]], 11601 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 11602 CellDingbat->None, 11603 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 11604 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 11605 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 11606 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 11607 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 11608 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 11609 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 11610 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 11611 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 11612 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 11613 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 11614 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 11615 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 11616 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978183229423227`*^9, 11617 3.4978183297523327`*^9}, 3.4978183882424145`*^9, {3.4978454955383673`*^9, 11618 3.497845510118388*^9}, {3.4978459385889883`*^9, 3.4978459422389927`*^9}, { 11619 3.497846083829191*^9, 3.4978460897591996`*^9}}, 11620 TextAlignment->Center, 11621 FontSize->12, 11622 FontWeight->"Bold"], 11623 11624Cell["Program code:", "Subsubsection", 11625 CellDingbat->"\[FilledSmallSquare]", 11626 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 11627 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 11628 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 11629 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 11630 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 11631 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 11632 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 11633 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 11634 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 11635 3.492805165713872*^9}}], 11636 11637Cell[BoxData[ 11638 RowBox[{ 11639 RowBox[{"Int", "[", 11640 RowBox[{ 11641 RowBox[{ 11642 RowBox[{"x_", "^", "m_."}], "*", 11643 RowBox[{ 11644 RowBox[{"Sin", "[", 11645 RowBox[{"a_.", "+", 11646 RowBox[{"b_.", "*", 11647 RowBox[{"Log", "[", 11648 RowBox[{"c_.", "*", 11649 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}]}], ",", 11650 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 11651 RowBox[{ 11652 RowBox[{ 11653 RowBox[{ 11654 RowBox[{"(", 11655 RowBox[{"m", "+", "1"}], ")"}], "*", 11656 RowBox[{"x", "^", 11657 RowBox[{"(", 11658 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11659 RowBox[{ 11660 RowBox[{ 11661 RowBox[{"Sin", "[", 11662 RowBox[{"a", "+", 11663 RowBox[{"b", "*", 11664 RowBox[{"Log", "[", 11665 RowBox[{"c", "*", 11666 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", "p"}], "/", 11667 RowBox[{"(", 11668 RowBox[{ 11669 RowBox[{ 11670 RowBox[{"b", "^", "2"}], "*", 11671 RowBox[{"n", "^", "2"}], "*", 11672 RowBox[{"p", "^", "2"}]}], "+", 11673 RowBox[{ 11674 RowBox[{"(", 11675 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "-", 11676 "\n", " ", 11677 RowBox[{"b", "*", "n", "*", "p", "*", 11678 RowBox[{"x", "^", 11679 RowBox[{"(", 11680 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11681 RowBox[{"Cos", "[", 11682 RowBox[{"a", "+", 11683 RowBox[{"b", "*", 11684 RowBox[{"Log", "[", 11685 RowBox[{"c", "*", 11686 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 11687 RowBox[{ 11688 RowBox[{ 11689 RowBox[{"Sin", "[", 11690 RowBox[{"a", "+", 11691 RowBox[{"b", "*", 11692 RowBox[{"Log", "[", 11693 RowBox[{"c", "*", 11694 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11695 RowBox[{"(", 11696 RowBox[{"p", "-", "1"}], ")"}]}], "/", 11697 RowBox[{"(", 11698 RowBox[{ 11699 RowBox[{ 11700 RowBox[{"b", "^", "2"}], "*", 11701 RowBox[{"n", "^", "2"}], "*", 11702 RowBox[{"p", "^", "2"}]}], "+", 11703 RowBox[{ 11704 RowBox[{"(", 11705 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "+", 11706 "\n", " ", 11707 RowBox[{"Dist", "[", 11708 RowBox[{ 11709 RowBox[{ 11710 RowBox[{"b", "^", "2"}], "*", 11711 RowBox[{"n", "^", "2"}], "*", "p", "*", 11712 RowBox[{ 11713 RowBox[{"(", 11714 RowBox[{"p", "-", "1"}], ")"}], "/", 11715 RowBox[{"(", 11716 RowBox[{ 11717 RowBox[{ 11718 RowBox[{"b", "^", "2"}], "*", 11719 RowBox[{"n", "^", "2"}], "*", 11720 RowBox[{"p", "^", "2"}]}], "+", 11721 RowBox[{ 11722 RowBox[{"(", 11723 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], ",", 11724 RowBox[{"Int", "[", 11725 RowBox[{ 11726 RowBox[{ 11727 RowBox[{"x", "^", "m"}], "*", 11728 RowBox[{ 11729 RowBox[{"Sin", "[", 11730 RowBox[{"a", "+", 11731 RowBox[{"b", "*", 11732 RowBox[{"Log", "[", 11733 RowBox[{"c", "*", 11734 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11735 RowBox[{"(", 11736 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 11737 " ", "/;", "\n", 11738 RowBox[{ 11739 RowBox[{"FreeQ", "[", 11740 RowBox[{ 11741 RowBox[{"{", 11742 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 11743 "x"}], "]"}], " ", "&&", " ", 11744 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 11745 RowBox[{"p", ">", "1"}], " ", "&&", " ", 11746 RowBox[{"NonzeroQ", "[", 11747 RowBox[{ 11748 RowBox[{ 11749 RowBox[{"b", "^", "2"}], "*", 11750 RowBox[{"n", "^", "2"}], "*", 11751 RowBox[{"p", "^", "2"}]}], "+", 11752 RowBox[{ 11753 RowBox[{"(", 11754 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], "]"}], " ", "&&", " ", 11755 RowBox[{"NonzeroQ", "[", 11756 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 11757 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 11758 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 11759 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 11760 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 11761 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 11762 3.4978182978122873`*^9}, 11763 Background->GrayLevel[0.85]], 11764 11765Cell[BoxData[ 11766 RowBox[{ 11767 RowBox[{"Int", "[", 11768 RowBox[{ 11769 RowBox[{ 11770 RowBox[{"x_", "^", "m_."}], "*", 11771 RowBox[{ 11772 RowBox[{"Cos", "[", 11773 RowBox[{"a_.", "+", 11774 RowBox[{"b_.", "*", 11775 RowBox[{"Log", "[", 11776 RowBox[{"c_.", "*", 11777 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}]}], ",", 11778 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 11779 RowBox[{ 11780 RowBox[{ 11781 RowBox[{ 11782 RowBox[{"(", 11783 RowBox[{"m", "+", "1"}], ")"}], "*", 11784 RowBox[{"x", "^", 11785 RowBox[{"(", 11786 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11787 RowBox[{ 11788 RowBox[{ 11789 RowBox[{"Cos", "[", 11790 RowBox[{"a", "+", 11791 RowBox[{"b", "*", 11792 RowBox[{"Log", "[", 11793 RowBox[{"c", "*", 11794 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", "p"}], "/", 11795 RowBox[{"(", 11796 RowBox[{ 11797 RowBox[{ 11798 RowBox[{"b", "^", "2"}], "*", 11799 RowBox[{"n", "^", "2"}], "*", 11800 RowBox[{"p", "^", "2"}]}], "+", 11801 RowBox[{ 11802 RowBox[{"(", 11803 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "+", 11804 "\n", " ", 11805 RowBox[{"b", "*", "n", "*", "p", "*", 11806 RowBox[{"x", "^", 11807 RowBox[{"(", 11808 RowBox[{"m", "+", "1"}], ")"}]}], "*", 11809 RowBox[{"Sin", "[", 11810 RowBox[{"a", "+", 11811 RowBox[{"b", "*", 11812 RowBox[{"Log", "[", 11813 RowBox[{"c", "*", 11814 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 11815 RowBox[{ 11816 RowBox[{ 11817 RowBox[{"Cos", "[", 11818 RowBox[{"a", "+", 11819 RowBox[{"b", "*", 11820 RowBox[{"Log", "[", 11821 RowBox[{"c", "*", 11822 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11823 RowBox[{"(", 11824 RowBox[{"p", "-", "1"}], ")"}]}], "/", 11825 RowBox[{"(", 11826 RowBox[{ 11827 RowBox[{ 11828 RowBox[{"b", "^", "2"}], "*", 11829 RowBox[{"n", "^", "2"}], "*", 11830 RowBox[{"p", "^", "2"}]}], "+", 11831 RowBox[{ 11832 RowBox[{"(", 11833 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], " ", "+", 11834 "\n", " ", 11835 RowBox[{"Dist", "[", 11836 RowBox[{ 11837 RowBox[{ 11838 RowBox[{"b", "^", "2"}], "*", 11839 RowBox[{"n", "^", "2"}], "*", "p", "*", 11840 RowBox[{ 11841 RowBox[{"(", 11842 RowBox[{"p", "-", "1"}], ")"}], "/", 11843 RowBox[{"(", 11844 RowBox[{ 11845 RowBox[{ 11846 RowBox[{"b", "^", "2"}], "*", 11847 RowBox[{"n", "^", "2"}], "*", 11848 RowBox[{"p", "^", "2"}]}], "+", 11849 RowBox[{ 11850 RowBox[{"(", 11851 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}], ",", 11852 RowBox[{"Int", "[", 11853 RowBox[{ 11854 RowBox[{ 11855 RowBox[{"x", "^", "m"}], "*", 11856 RowBox[{ 11857 RowBox[{"Cos", "[", 11858 RowBox[{"a", "+", 11859 RowBox[{"b", "*", 11860 RowBox[{"Log", "[", 11861 RowBox[{"c", "*", 11862 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 11863 RowBox[{"(", 11864 RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 11865 " ", "/;", "\n", 11866 RowBox[{ 11867 RowBox[{"FreeQ", "[", 11868 RowBox[{ 11869 RowBox[{"{", 11870 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 11871 "x"}], "]"}], " ", "&&", " ", 11872 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 11873 RowBox[{"p", ">", "1"}], " ", "&&", " ", 11874 RowBox[{"NonzeroQ", "[", 11875 RowBox[{ 11876 RowBox[{ 11877 RowBox[{"b", "^", "2"}], "*", 11878 RowBox[{"n", "^", "2"}], "*", 11879 RowBox[{"p", "^", "2"}]}], "+", 11880 RowBox[{ 11881 RowBox[{"(", 11882 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], "]"}], " ", "&&", " ", 11883 RowBox[{"NonzeroQ", "[", 11884 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 11885 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 11886 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 11887 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 11888 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 11889 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 11890 3.4978182978122873`*^9, {3.4979216150729833`*^9, 3.497921645259036*^9}, 11891 3.4979853494270525`*^9, {3.4979854617472496`*^9, 3.49798546776886*^9}}, 11892 Background->GrayLevel[0.85]], 11893 11894Cell["", "Subsubsection", 11895 CellDingbat->None, 11896 CellChangeTimes->{3.4796643211106243`*^9}], 11897 11898Cell[TextData[{ 11899 "Rule: If ", 11900 Cell[BoxData[ 11901 RowBox[{ 11902 RowBox[{"p", "<", 11903 RowBox[{"-", "1"}]}], " ", "\[And]", " ", 11904 RowBox[{"p", "\[NotEqual]", 11905 RowBox[{"-", "2"}]}], " ", "\[And]", " ", 11906 RowBox[{ 11907 RowBox[{"m", "+", "1"}], "\[NotEqual]", "0"}]}]]], 11908 ", then" 11909}], "Subsubsection", 11910 CellDingbat->"\[FilledSmallSquare]", 11911 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 11912 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 11913 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 11914 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 11915 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 11916 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 11917 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 11918 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 11919 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 11920 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 11921 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978180135518894`*^9, 11922 3.4978180349019194`*^9}, {3.4978181090720234`*^9, 3.497818144362073*^9}, { 11923 3.4978184547825074`*^9, 3.497818462092518*^9}}], 11924 11925Cell[BoxData[ 11926 RowBox[{ 11927 RowBox[{"\[Integral]", 11928 RowBox[{ 11929 SuperscriptBox["x", "m"], 11930 SuperscriptBox[ 11931 RowBox[{"Sin", "[", 11932 RowBox[{"a", "+", 11933 RowBox[{"b", " ", 11934 RowBox[{"Log", "[", 11935 RowBox[{"c", " ", 11936 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "p"], 11937 RowBox[{"\[DifferentialD]", 11938 RowBox[{"x", " ", "\[LongRightArrow]", " ", 11939 FractionBox[ 11940 RowBox[{ 11941 SuperscriptBox["x", 11942 RowBox[{"m", "+", "1"}]], " ", 11943 RowBox[{"Cot", "[", 11944 RowBox[{"a", "+", 11945 RowBox[{"b", " ", 11946 RowBox[{"Log", "[", 11947 RowBox[{"c", " ", 11948 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], " ", 11949 SuperscriptBox[ 11950 RowBox[{"Sin", "[", 11951 RowBox[{"a", "+", 11952 RowBox[{"b", " ", 11953 RowBox[{"Log", "[", 11954 RowBox[{"c", " ", 11955 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 11956 RowBox[{"p", "+", "2"}]]}], 11957 RowBox[{"b", " ", "n", " ", 11958 RowBox[{"(", 11959 RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 11960 " ", "\[IndentingNewLine]", " ", 11961 FractionBox[ 11962 RowBox[{ 11963 RowBox[{"(", 11964 RowBox[{"m", "+", "1"}], ")"}], " ", 11965 SuperscriptBox["x", 11966 RowBox[{"m", "+", "1"}]], " ", 11967 SuperscriptBox[ 11968 RowBox[{"Sin", "[", 11969 RowBox[{"a", "+", 11970 RowBox[{"b", " ", 11971 RowBox[{"Log", "[", 11972 RowBox[{"c", " ", 11973 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 11974 RowBox[{"p", "+", "2"}]]}], 11975 RowBox[{ 11976 SuperscriptBox["b", "2"], " ", 11977 SuperscriptBox["n", "2"], " ", 11978 RowBox[{"(", 11979 RowBox[{"p", "+", "1"}], ")"}], " ", 11980 RowBox[{"(", 11981 RowBox[{"p", "+", "2"}], ")"}]}]], "+", 11982 RowBox[{ 11983 FractionBox[ 11984 RowBox[{ 11985 RowBox[{ 11986 SuperscriptBox["b", "2"], " ", 11987 SuperscriptBox["n", "2"], " ", 11988 SuperscriptBox[ 11989 RowBox[{"(", 11990 RowBox[{"p", "+", "2"}], ")"}], "2"]}], "+", 11991 SuperscriptBox[ 11992 RowBox[{"(", 11993 RowBox[{"m", "+", "1"}], ")"}], "2"]}], 11994 RowBox[{ 11995 SuperscriptBox["b", "2"], " ", 11996 SuperscriptBox["n", "2"], " ", 11997 RowBox[{"(", 11998 RowBox[{"p", "+", "1"}], ")"}], " ", 11999 RowBox[{"(", 12000 RowBox[{"p", "+", "2"}], ")"}]}]], 12001 RowBox[{"\[Integral]", 12002 RowBox[{ 12003 SuperscriptBox["x", "m"], " ", 12004 SuperscriptBox[ 12005 RowBox[{"Sin", "[", 12006 RowBox[{"a", "+", 12007 RowBox[{"b", " ", 12008 RowBox[{"Log", "[", 12009 RowBox[{"c", " ", 12010 SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], 12011 RowBox[{"p", "+", "2"}]], 12012 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 12013 CellDingbat->None, 12014 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 12015 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 12016 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 12017 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 12018 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 12019 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 12020 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 12021 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 12022 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 12023 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 12024 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 12025 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 12026 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 12027 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978180869619923`*^9, 12028 3.497818100362011*^9}, 3.497818391632419*^9, {3.4978184390724854`*^9, 12029 3.4978184412724886`*^9}, {3.497845520178402*^9, 3.4978455282384133`*^9}, { 12030 3.497846105079221*^9, 3.497846105589222*^9}}, 12031 TextAlignment->Center, 12032 FontSize->12, 12033 FontWeight->"Bold"], 12034 12035Cell["Program code:", "Subsubsection", 12036 CellDingbat->"\[FilledSmallSquare]", 12037 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12038 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12039 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12040 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12041 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12042 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12043 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12044 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 12045 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 12046 3.492805165713872*^9}}], 12047 12048Cell[BoxData[ 12049 RowBox[{ 12050 RowBox[{"Int", "[", 12051 RowBox[{ 12052 RowBox[{ 12053 RowBox[{"x_", "^", "m_."}], "*", 12054 RowBox[{ 12055 RowBox[{"Sin", "[", 12056 RowBox[{"a_.", "+", 12057 RowBox[{"b_.", "*", 12058 RowBox[{"Log", "[", 12059 RowBox[{"c_.", "*", 12060 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}]}], ",", 12061 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 12062 RowBox[{ 12063 RowBox[{ 12064 RowBox[{ 12065 RowBox[{"x", "^", 12066 RowBox[{"(", 12067 RowBox[{"m", "+", "1"}], ")"}]}], "*", 12068 RowBox[{"Cot", "[", 12069 RowBox[{"a", "+", 12070 RowBox[{"b", "*", 12071 RowBox[{"Log", "[", 12072 RowBox[{"c", "*", 12073 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 12074 RowBox[{ 12075 RowBox[{ 12076 RowBox[{"Sin", "[", 12077 RowBox[{"a", "+", 12078 RowBox[{"b", "*", 12079 RowBox[{"Log", "[", 12080 RowBox[{"c", "*", 12081 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12082 RowBox[{"(", 12083 RowBox[{"p", "+", "2"}], ")"}]}], "/", 12084 RowBox[{"(", 12085 RowBox[{"b", "*", "n", "*", 12086 RowBox[{"(", 12087 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 12088 RowBox[{ 12089 RowBox[{"(", 12090 RowBox[{"m", "+", "1"}], ")"}], "*", 12091 RowBox[{"x", "^", 12092 RowBox[{"(", 12093 RowBox[{"m", "+", "1"}], ")"}]}], "*", 12094 RowBox[{ 12095 RowBox[{ 12096 RowBox[{"Sin", "[", 12097 RowBox[{"a", "+", 12098 RowBox[{"b", "*", 12099 RowBox[{"Log", "[", 12100 RowBox[{"c", "*", 12101 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12102 RowBox[{"(", 12103 RowBox[{"p", "+", "2"}], ")"}]}], "/", 12104 RowBox[{"(", 12105 RowBox[{ 12106 RowBox[{"b", "^", "2"}], "*", 12107 RowBox[{"n", "^", "2"}], "*", 12108 RowBox[{"(", 12109 RowBox[{"p", "+", "1"}], ")"}], "*", 12110 RowBox[{"(", 12111 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 12112 RowBox[{"Dist", "[", 12113 RowBox[{ 12114 RowBox[{ 12115 RowBox[{"(", 12116 RowBox[{ 12117 RowBox[{ 12118 RowBox[{"b", "^", "2"}], "*", 12119 RowBox[{"n", "^", "2"}], "*", 12120 RowBox[{ 12121 RowBox[{"(", 12122 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}], "+", 12123 RowBox[{ 12124 RowBox[{"(", 12125 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}], "/", 12126 RowBox[{"(", 12127 RowBox[{ 12128 RowBox[{"b", "^", "2"}], "*", 12129 RowBox[{"n", "^", "2"}], "*", 12130 RowBox[{"(", 12131 RowBox[{"p", "+", "1"}], ")"}], "*", 12132 RowBox[{"(", 12133 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}], ",", 12134 RowBox[{"Int", "[", 12135 RowBox[{ 12136 RowBox[{ 12137 RowBox[{"x", "^", "m"}], "*", 12138 RowBox[{ 12139 RowBox[{"Sin", "[", 12140 RowBox[{"a", "+", 12141 RowBox[{"b", "*", 12142 RowBox[{"Log", "[", 12143 RowBox[{"c", "*", 12144 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12145 RowBox[{"(", 12146 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 12147 " ", "/;", "\n", 12148 RowBox[{ 12149 RowBox[{"FreeQ", "[", 12150 RowBox[{ 12151 RowBox[{"{", 12152 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 12153 "x"}], "]"}], " ", "&&", " ", 12154 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 12155 RowBox[{"p", "<", 12156 RowBox[{"-", "1"}]}], " ", "&&", " ", 12157 RowBox[{"p", "\[NotEqual]", 12158 RowBox[{"-", "2"}]}], " ", "&&", " ", 12159 RowBox[{"NonzeroQ", "[", 12160 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 12161 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 12162 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 12163 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 12164 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 12165 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, 12166 3.497818211422167*^9, 3.4978184091424437`*^9, {3.499038741854889*^9, 12167 3.4990387432276917`*^9}}, 12168 Background->GrayLevel[0.85]], 12169 12170Cell[BoxData[ 12171 RowBox[{ 12172 RowBox[{"Int", "[", 12173 RowBox[{ 12174 RowBox[{ 12175 RowBox[{"x_", "^", "m_."}], "*", 12176 RowBox[{ 12177 RowBox[{"Cos", "[", 12178 RowBox[{"a_.", "+", 12179 RowBox[{"b_.", "*", 12180 RowBox[{"Log", "[", 12181 RowBox[{"c_.", "*", 12182 RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], "]"}], "^", "p_"}]}], ",", 12183 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 12184 RowBox[{ 12185 RowBox[{ 12186 RowBox[{ 12187 RowBox[{"-", 12188 RowBox[{"x", "^", 12189 RowBox[{"(", 12190 RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 12191 RowBox[{"Tan", "[", 12192 RowBox[{"a", "+", 12193 RowBox[{"b", "*", 12194 RowBox[{"Log", "[", 12195 RowBox[{"c", "*", 12196 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "*", 12197 RowBox[{ 12198 RowBox[{ 12199 RowBox[{"Cos", "[", 12200 RowBox[{"a", "+", 12201 RowBox[{"b", "*", 12202 RowBox[{"Log", "[", 12203 RowBox[{"c", "*", 12204 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12205 RowBox[{"(", 12206 RowBox[{"p", "+", "2"}], ")"}]}], "/", 12207 RowBox[{"(", 12208 RowBox[{"b", "*", "n", "*", 12209 RowBox[{"(", 12210 RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", " ", 12211 RowBox[{ 12212 RowBox[{"(", 12213 RowBox[{"m", "+", "1"}], ")"}], "*", 12214 RowBox[{"x", "^", 12215 RowBox[{"(", 12216 RowBox[{"m", "+", "1"}], ")"}]}], "*", 12217 RowBox[{ 12218 RowBox[{ 12219 RowBox[{"Cos", "[", 12220 RowBox[{"a", "+", 12221 RowBox[{"b", "*", 12222 RowBox[{"Log", "[", 12223 RowBox[{"c", "*", 12224 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12225 RowBox[{"(", 12226 RowBox[{"p", "+", "2"}], ")"}]}], "/", 12227 RowBox[{"(", 12228 RowBox[{ 12229 RowBox[{"b", "^", "2"}], "*", 12230 RowBox[{"n", "^", "2"}], "*", 12231 RowBox[{"(", 12232 RowBox[{"p", "+", "1"}], ")"}], "*", 12233 RowBox[{"(", 12234 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", " ", 12235 RowBox[{"Dist", "[", 12236 RowBox[{ 12237 RowBox[{ 12238 RowBox[{"(", 12239 RowBox[{ 12240 RowBox[{ 12241 RowBox[{"b", "^", "2"}], "*", 12242 RowBox[{"n", "^", "2"}], "*", 12243 RowBox[{ 12244 RowBox[{"(", 12245 RowBox[{"p", "+", "2"}], ")"}], "^", "2"}]}], "+", 12246 RowBox[{ 12247 RowBox[{"(", 12248 RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}], "/", 12249 RowBox[{"(", 12250 RowBox[{ 12251 RowBox[{"b", "^", "2"}], "*", 12252 RowBox[{"n", "^", "2"}], "*", 12253 RowBox[{"(", 12254 RowBox[{"p", "+", "1"}], ")"}], "*", 12255 RowBox[{"(", 12256 RowBox[{"p", "+", "2"}], ")"}]}], ")"}]}], ",", 12257 RowBox[{"Int", "[", 12258 RowBox[{ 12259 RowBox[{ 12260 RowBox[{"x", "^", "m"}], "*", 12261 RowBox[{ 12262 RowBox[{"Cos", "[", 12263 RowBox[{"a", "+", 12264 RowBox[{"b", "*", 12265 RowBox[{"Log", "[", 12266 RowBox[{"c", "*", 12267 RowBox[{"x", "^", "n"}]}], "]"}]}]}], "]"}], "^", 12268 RowBox[{"(", 12269 RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 12270 " ", "/;", "\n", 12271 RowBox[{ 12272 RowBox[{"FreeQ", "[", 12273 RowBox[{ 12274 RowBox[{"{", 12275 RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 12276 "x"}], "]"}], " ", "&&", " ", 12277 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 12278 RowBox[{"p", "<", 12279 RowBox[{"-", "1"}]}], " ", "&&", " ", 12280 RowBox[{"p", "\[NotEqual]", 12281 RowBox[{"-", "2"}]}], " ", "&&", " ", 12282 RowBox[{"NonzeroQ", "[", 12283 RowBox[{"m", "+", "1"}], "]"}]}]}]}]], "Code", 12284 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 12285 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 12286 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 12287 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 12288 3.4978178331616373`*^9, 3.497817943721792*^9, 3.4978180612919564`*^9, 12289 3.497818211422167*^9, 3.4978184091424437`*^9, {3.497921630844611*^9, 12290 3.497921630860211*^9}, 3.497985357897867*^9, {3.499038934889628*^9, 12291 3.49903893579443*^9}}, 12292 Background->GrayLevel[0.85]], 12293 12294Cell["", "PageBreak", 12295 PageBreakBelow->True] 12296}, Closed]], 12297 12298Cell[CellGroupData[{ 12299 12300Cell[BoxData[ 12301 RowBox[{"\[Integral]", 12302 RowBox[{ 12303 RowBox[{"Sin", "[", 12304 RowBox[{"a", " ", 12305 SuperscriptBox["x", "n"], " ", 12306 SuperscriptBox[ 12307 RowBox[{"Log", "[", 12308 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12309 SuperscriptBox[ 12310 RowBox[{"Log", "[", 12311 RowBox[{"b", " ", "x"}], "]"}], "p"], 12312 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 12313 CellDingbat->None, 12314 CellChangeTimes->{ 12315 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 12316 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 12317 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 12318 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 12319 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 12320 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 12321 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 12322 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 12323 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 12324 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 12325 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 12326 3.497816868100286*^9, 3.4978178569916706`*^9, 3.4978181977321477`*^9, { 12327 3.497818713152869*^9, 3.4978187170428743`*^9}}, 12328 TextAlignment->Center, 12329 FontSize->20, 12330 FontWeight->"Bold"], 12331 12332Cell[TextData[{ 12333 "Rule: If ", 12334 Cell[BoxData[ 12335 RowBox[{"p", ">", "0"}]]], 12336 ", then" 12337}], "Subsubsection", 12338 CellDingbat->"\[FilledSmallSquare]", 12339 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12340 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12341 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12342 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12343 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12344 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12345 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12346 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 12347 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 12348 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 12349 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 12350 3.497818281002264*^9}, {3.4978188033329954`*^9, 3.497818805922999*^9}}], 12351 12352Cell[BoxData[ 12353 RowBox[{ 12354 RowBox[{"\[Integral]", 12355 RowBox[{ 12356 RowBox[{"Sin", "[", 12357 RowBox[{"a", " ", "x", " ", 12358 SuperscriptBox[ 12359 RowBox[{"Log", "[", 12360 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12361 SuperscriptBox[ 12362 RowBox[{"Log", "[", 12363 RowBox[{"b", " ", "x"}], "]"}], "p"], 12364 RowBox[{"\[DifferentialD]", 12365 RowBox[{"x", " ", "\[LongRightArrow]", " ", 12366 RowBox[{"-", 12367 FractionBox[ 12368 RowBox[{"Cos", "[", 12369 RowBox[{"a", " ", "x", " ", 12370 SuperscriptBox[ 12371 RowBox[{"Log", "[", 12372 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], "a"]}]}]}]}]}], 12373 "-", 12374 RowBox[{"p", 12375 RowBox[{"\[Integral]", 12376 RowBox[{ 12377 RowBox[{"Sin", "[", 12378 RowBox[{"a", " ", "x", " ", 12379 SuperscriptBox[ 12380 RowBox[{"Log", "[", 12381 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12382 SuperscriptBox[ 12383 RowBox[{"Log", "[", 12384 RowBox[{"b", " ", "x"}], "]"}], 12385 RowBox[{"p", "-", "1"}]], 12386 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 12387 CellDingbat->None, 12388 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 12389 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 12390 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 12391 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 12392 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 12393 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 12394 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 12395 3.49781786362168*^9, 3.4978178842317085`*^9}, 3.497818243732212*^9, 12396 3.497818386462412*^9, {3.497818766582944*^9, 3.4978187902229767`*^9}}, 12397 TextAlignment->Center, 12398 FontSize->12, 12399 FontWeight->"Bold"], 12400 12401Cell["Program code:", "Subsubsection", 12402 CellDingbat->"\[FilledSmallSquare]", 12403 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12404 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12405 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12406 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12407 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12408 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12409 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12410 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 12411 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 12412 3.492805165713872*^9}}], 12413 12414Cell[BoxData[ 12415 RowBox[{ 12416 RowBox[{"Int", "[", 12417 RowBox[{ 12418 RowBox[{ 12419 RowBox[{"Sin", "[", 12420 RowBox[{"a_.", "*", "x_", "*", 12421 RowBox[{ 12422 RowBox[{"Log", "[", 12423 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 12424 RowBox[{ 12425 RowBox[{"Log", "[", 12426 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 12427 "]"}], " ", ":=", "\n", " ", 12428 RowBox[{ 12429 RowBox[{ 12430 RowBox[{ 12431 RowBox[{"-", 12432 RowBox[{"Cos", "[", 12433 RowBox[{"a", "*", "x", "*", 12434 RowBox[{ 12435 RowBox[{"Log", "[", 12436 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}]}], "/", "a"}], 12437 " ", "-", "\n", " ", 12438 RowBox[{"Dist", "[", 12439 RowBox[{"p", ",", 12440 RowBox[{"Int", "[", 12441 RowBox[{ 12442 RowBox[{ 12443 RowBox[{"Sin", "[", 12444 RowBox[{"a", "*", "x", "*", 12445 RowBox[{ 12446 RowBox[{"Log", "[", 12447 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 12448 RowBox[{ 12449 RowBox[{"Log", "[", 12450 RowBox[{"b", "*", "x"}], "]"}], "^", 12451 RowBox[{"(", 12452 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 12453 " ", "/;", "\n", 12454 RowBox[{ 12455 RowBox[{"FreeQ", "[", 12456 RowBox[{ 12457 RowBox[{"{", 12458 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 12459 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 12460 RowBox[{"p", ">", "0"}]}]}]}]], "Code", 12461 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 12462 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 12463 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 12464 3.497816883330307*^9, 3.497817840791648*^9, 3.497818221872181*^9, 12465 3.4978187399329066`*^9}, 12466 Background->GrayLevel[0.85]], 12467 12468Cell[BoxData[ 12469 RowBox[{ 12470 RowBox[{"Int", "[", 12471 RowBox[{ 12472 RowBox[{ 12473 RowBox[{"Cos", "[", 12474 RowBox[{"a_.", "*", "x_", "*", 12475 RowBox[{ 12476 RowBox[{"Log", "[", 12477 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 12478 RowBox[{ 12479 RowBox[{"Log", "[", 12480 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 12481 "]"}], " ", ":=", "\n", " ", 12482 RowBox[{ 12483 RowBox[{ 12484 RowBox[{ 12485 RowBox[{"Sin", "[", 12486 RowBox[{"a", "*", "x", "*", 12487 RowBox[{ 12488 RowBox[{"Log", "[", 12489 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", "a"}], " ", 12490 "-", "\n", " ", 12491 RowBox[{"Dist", "[", 12492 RowBox[{"p", ",", 12493 RowBox[{"Int", "[", 12494 RowBox[{ 12495 RowBox[{ 12496 RowBox[{"Cos", "[", 12497 RowBox[{"a", "*", "x", "*", 12498 RowBox[{ 12499 RowBox[{"Log", "[", 12500 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 12501 RowBox[{ 12502 RowBox[{"Log", "[", 12503 RowBox[{"b", "*", "x"}], "]"}], "^", 12504 RowBox[{"(", 12505 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 12506 " ", "/;", "\n", 12507 RowBox[{ 12508 RowBox[{"FreeQ", "[", 12509 RowBox[{ 12510 RowBox[{"{", 12511 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 12512 RowBox[{"RationalQ", "[", "p", "]"}], " ", "&&", " ", 12513 RowBox[{"p", ">", "0"}]}]}]}]], "Code", 12514 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 12515 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 12516 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 12517 3.497816883330307*^9, 3.497817840791648*^9, 3.497818221872181*^9, 12518 3.4978187399329066`*^9, {3.497921615088583*^9, 3.4979216452746363`*^9}, 12519 3.497985551837408*^9}, 12520 Background->GrayLevel[0.85]], 12521 12522Cell["", "Subsubsection", 12523 CellDingbat->None, 12524 CellChangeTimes->{3.4796643211106243`*^9}], 12525 12526Cell[TextData[{ 12527 "Rule: If ", 12528 Cell[BoxData[ 12529 RowBox[{"p", ">", "0"}]]], 12530 ", then" 12531}], "Subsubsection", 12532 CellDingbat->"\[FilledSmallSquare]", 12533 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12534 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12535 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12536 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12537 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12538 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12539 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12540 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 12541 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 12542 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 12543 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 12544 3.497818281002264*^9}, {3.4978183492423596`*^9, 3.4978183713523903`*^9}, { 12545 3.497818911663147*^9, 3.497818912483148*^9}}], 12546 12547Cell[BoxData[ 12548 RowBox[{ 12549 RowBox[{"\[Integral]", 12550 RowBox[{ 12551 RowBox[{"Sin", "[", 12552 RowBox[{"a", " ", 12553 SuperscriptBox["x", "n"], " ", 12554 SuperscriptBox[ 12555 RowBox[{"Log", "[", 12556 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12557 SuperscriptBox[ 12558 RowBox[{"Log", "[", 12559 RowBox[{"b", " ", "x"}], "]"}], "p"], 12560 RowBox[{"\[DifferentialD]", 12561 RowBox[{"x", " ", "\[LongRightArrow]", " ", 12562 RowBox[{"-", 12563 FractionBox[ 12564 RowBox[{"Cos", "[", 12565 RowBox[{"a", " ", 12566 SuperscriptBox["x", "n"], " ", 12567 SuperscriptBox[ 12568 RowBox[{"Log", "[", 12569 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], 12570 RowBox[{"a", " ", "n", " ", 12571 SuperscriptBox["x", 12572 RowBox[{"n", "-", "1"}]]}]]}]}]}]}]}], "-", 12573 " ", "\[IndentingNewLine]", 12574 " ", 12575 RowBox[{ 12576 FractionBox["p", "n"], 12577 RowBox[{"\[Integral]", 12578 RowBox[{ 12579 RowBox[{"Sin", "[", 12580 RowBox[{"a", " ", 12581 SuperscriptBox["x", "n"], " ", 12582 SuperscriptBox[ 12583 RowBox[{"Log", "[", 12584 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12585 SuperscriptBox[ 12586 RowBox[{"Log", "[", 12587 RowBox[{"b", " ", "x"}], "]"}], 12588 RowBox[{"p", "-", "1"}]], 12589 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 12590 RowBox[{ 12591 FractionBox[ 12592 RowBox[{"n", "-", "1"}], 12593 RowBox[{"a", " ", "n"}]], 12594 RowBox[{"\[Integral]", 12595 RowBox[{ 12596 FractionBox[ 12597 RowBox[{"Cos", "[", 12598 RowBox[{"a", " ", 12599 SuperscriptBox["x", "n"], " ", 12600 SuperscriptBox[ 12601 RowBox[{"Log", "[", 12602 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], 12603 SuperscriptBox["x", "n"]], 12604 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 12605 CellDingbat->None, 12606 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 12607 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 12608 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 12609 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 12610 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 12611 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 12612 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 12613 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 12614 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 12615 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 12616 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 12617 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 12618 3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, { 12619 3.497817967231825*^9, 3.4978179825118465`*^9}, {3.4978183229423227`*^9, 12620 3.4978183297523327`*^9}, 3.4978183882424145`*^9, 3.497818842933051*^9, { 12621 3.4978188819031053`*^9, 3.497818893043121*^9}, {3.4978455965785093`*^9, 12622 3.497845617398538*^9}}, 12623 TextAlignment->Center, 12624 FontSize->12, 12625 FontWeight->"Bold"], 12626 12627Cell["Program code:", "Subsubsection", 12628 CellDingbat->"\[FilledSmallSquare]", 12629 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12630 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12631 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12632 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12633 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12634 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12635 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12636 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 12637 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 12638 3.492805165713872*^9}}], 12639 12640Cell[BoxData[ 12641 RowBox[{ 12642 RowBox[{"Int", "[", 12643 RowBox[{ 12644 RowBox[{ 12645 RowBox[{"Sin", "[", 12646 RowBox[{"a_.", "*", 12647 RowBox[{"x_", "^", "n_"}], "*", 12648 RowBox[{ 12649 RowBox[{"Log", "[", 12650 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 12651 RowBox[{ 12652 RowBox[{"Log", "[", 12653 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 12654 "]"}], " ", ":=", "\n", " ", 12655 RowBox[{ 12656 RowBox[{ 12657 RowBox[{ 12658 RowBox[{"-", 12659 RowBox[{"Cos", "[", 12660 RowBox[{"a", "*", 12661 RowBox[{"x", "^", "n"}], "*", 12662 RowBox[{ 12663 RowBox[{"Log", "[", 12664 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}]}], "/", 12665 RowBox[{"(", 12666 RowBox[{"a", "*", "n", "*", 12667 RowBox[{"x", "^", 12668 RowBox[{"(", 12669 RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], " ", "-", "\n", " ", 12670 RowBox[{"Dist", "[", 12671 RowBox[{ 12672 RowBox[{"p", "/", "n"}], ",", 12673 RowBox[{"Int", "[", 12674 RowBox[{ 12675 RowBox[{ 12676 RowBox[{"Sin", "[", 12677 RowBox[{"a", "*", 12678 RowBox[{"x", "^", "n"}], "*", 12679 RowBox[{ 12680 RowBox[{"Log", "[", 12681 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 12682 RowBox[{ 12683 RowBox[{"Log", "[", 12684 RowBox[{"b", "*", "x"}], "]"}], "^", 12685 RowBox[{"(", 12686 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 12687 " ", "-", "\n", " ", 12688 RowBox[{"Dist", "[", 12689 RowBox[{ 12690 RowBox[{ 12691 RowBox[{"(", 12692 RowBox[{"n", "-", "1"}], ")"}], "/", 12693 RowBox[{"(", 12694 RowBox[{"a", "*", "n"}], ")"}]}], ",", 12695 RowBox[{"Int", "[", 12696 RowBox[{ 12697 RowBox[{ 12698 RowBox[{"Cos", "[", 12699 RowBox[{"a", "*", 12700 RowBox[{"x", "^", "n"}], "*", 12701 RowBox[{ 12702 RowBox[{"Log", "[", 12703 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 12704 RowBox[{"x", "^", "n"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", "/;", 12705 "\n", 12706 RowBox[{ 12707 RowBox[{"FreeQ", "[", 12708 RowBox[{ 12709 RowBox[{"{", 12710 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 12711 RowBox[{"RationalQ", "[", 12712 RowBox[{"{", 12713 RowBox[{"n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 12714 RowBox[{"p", ">", "0"}]}]}]}]], "Code", 12715 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 12716 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 12717 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 12718 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 12719 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 12720 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9}, 12721 Background->GrayLevel[0.85]], 12722 12723Cell[BoxData[ 12724 RowBox[{ 12725 RowBox[{"Int", "[", 12726 RowBox[{ 12727 RowBox[{ 12728 RowBox[{"Cos", "[", 12729 RowBox[{"a_.", "*", 12730 RowBox[{"x_", "^", "n_"}], "*", 12731 RowBox[{ 12732 RowBox[{"Log", "[", 12733 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 12734 RowBox[{ 12735 RowBox[{"Log", "[", 12736 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 12737 "]"}], " ", ":=", "\n", " ", 12738 RowBox[{ 12739 RowBox[{ 12740 RowBox[{ 12741 RowBox[{"Sin", "[", 12742 RowBox[{"a", "*", 12743 RowBox[{"x", "^", "n"}], "*", 12744 RowBox[{ 12745 RowBox[{"Log", "[", 12746 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 12747 RowBox[{"(", 12748 RowBox[{"a", "*", "n", "*", 12749 RowBox[{"x", "^", 12750 RowBox[{"(", 12751 RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], " ", "-", "\n", " ", 12752 RowBox[{"Dist", "[", 12753 RowBox[{ 12754 RowBox[{"p", "/", "n"}], ",", 12755 RowBox[{"Int", "[", 12756 RowBox[{ 12757 RowBox[{ 12758 RowBox[{"Cos", "[", 12759 RowBox[{"a", "*", 12760 RowBox[{"x", "^", "n"}], "*", 12761 RowBox[{ 12762 RowBox[{"Log", "[", 12763 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 12764 RowBox[{ 12765 RowBox[{"Log", "[", 12766 RowBox[{"b", "*", "x"}], "]"}], "^", 12767 RowBox[{"(", 12768 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 12769 " ", "+", "\n", " ", 12770 RowBox[{"Dist", "[", 12771 RowBox[{ 12772 RowBox[{ 12773 RowBox[{"(", 12774 RowBox[{"n", "-", "1"}], ")"}], "/", 12775 RowBox[{"(", 12776 RowBox[{"a", "*", "n"}], ")"}]}], ",", 12777 RowBox[{"Int", "[", 12778 RowBox[{ 12779 RowBox[{ 12780 RowBox[{"Sin", "[", 12781 RowBox[{"a", "*", 12782 RowBox[{"x", "^", "n"}], "*", 12783 RowBox[{ 12784 RowBox[{"Log", "[", 12785 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 12786 RowBox[{"x", "^", "n"}]}], ",", "x"}], "]"}]}], "]"}]}], " ", "/;", 12787 "\n", 12788 RowBox[{ 12789 RowBox[{"FreeQ", "[", 12790 RowBox[{ 12791 RowBox[{"{", 12792 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 12793 RowBox[{"RationalQ", "[", 12794 RowBox[{"{", 12795 RowBox[{"n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 12796 RowBox[{"p", ">", "0"}]}]}]}]], "Code", 12797 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 12798 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 12799 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 12800 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 12801 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 12802 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9, { 12803 3.497921615104183*^9, 3.4979216453058367`*^9}, 3.49798557554945*^9}, 12804 Background->GrayLevel[0.85]], 12805 12806Cell["", "PageBreak", 12807 PageBreakBelow->True] 12808}, Closed]], 12809 12810Cell[CellGroupData[{ 12811 12812Cell[BoxData[ 12813 RowBox[{"\[Integral]", 12814 RowBox[{ 12815 SuperscriptBox["x", "m"], 12816 RowBox[{"Sin", "[", 12817 RowBox[{"a", " ", 12818 SuperscriptBox["x", "n"], " ", 12819 SuperscriptBox[ 12820 RowBox[{"Log", "[", 12821 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12822 SuperscriptBox[ 12823 RowBox[{"Log", "[", 12824 RowBox[{"b", " ", "x"}], "]"}], "p"], 12825 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 12826 CellDingbat->None, 12827 CellChangeTimes->{ 12828 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 12829 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 12830 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 12831 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 12832 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 12833 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 12834 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 12835 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 12836 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 12837 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 12838 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 12839 3.497816868100286*^9, 3.4978178569916706`*^9, 3.4978181977321477`*^9, { 12840 3.497818713152869*^9, 3.4978187170428743`*^9}, 3.4978189740632343`*^9}, 12841 TextAlignment->Center, 12842 FontSize->20, 12843 FontWeight->"Bold"], 12844 12845Cell[TextData[{ 12846 "Rule: If ", 12847 Cell[BoxData[ 12848 RowBox[{ 12849 RowBox[{ 12850 RowBox[{"p", ">", "0"}], " ", "\[And]", " ", 12851 RowBox[{"m", "-", "n", "+", "1"}]}], "=", "0"}]]], 12852 ", then" 12853}], "Subsubsection", 12854 CellDingbat->"\[FilledSmallSquare]", 12855 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12856 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12857 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12858 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12859 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12860 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12861 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12862 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 12863 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 12864 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 12865 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 12866 3.497818281002264*^9}, {3.4978188033329954`*^9, 3.497818805922999*^9}, { 12867 3.497819708564263*^9, 3.497819716594274*^9}}], 12868 12869Cell[BoxData[ 12870 RowBox[{ 12871 RowBox[{"\[Integral]", 12872 RowBox[{ 12873 SuperscriptBox["x", "m"], 12874 RowBox[{"Sin", "[", 12875 RowBox[{"a", " ", 12876 SuperscriptBox["x", "n"], " ", 12877 SuperscriptBox[ 12878 RowBox[{"Log", "[", 12879 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12880 SuperscriptBox[ 12881 RowBox[{"Log", "[", 12882 RowBox[{"b", " ", "x"}], "]"}], "p"], 12883 RowBox[{"\[DifferentialD]", 12884 RowBox[{"x", " ", "\[LongRightArrow]", " ", 12885 RowBox[{"-", 12886 FractionBox[ 12887 RowBox[{"Cos", "[", 12888 RowBox[{"a", " ", 12889 SuperscriptBox["x", "n"], " ", 12890 SuperscriptBox[ 12891 RowBox[{"Log", "[", 12892 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], 12893 RowBox[{"a", " ", "n"}]]}]}]}]}]}], "-", 12894 RowBox[{ 12895 FractionBox["p", "n"], 12896 RowBox[{"\[Integral]", 12897 RowBox[{ 12898 SuperscriptBox["x", "m"], " ", 12899 RowBox[{"Sin", "[", 12900 RowBox[{"a", " ", 12901 SuperscriptBox["x", "n"], " ", 12902 SuperscriptBox[ 12903 RowBox[{"Log", "[", 12904 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 12905 SuperscriptBox[ 12906 RowBox[{"Log", "[", 12907 RowBox[{"b", " ", "x"}], "]"}], 12908 RowBox[{"p", "-", "1"}]], 12909 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 12910 CellDingbat->None, 12911 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 12912 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 12913 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 12914 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 12915 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 12916 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 12917 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 12918 3.49781786362168*^9, 3.4978178842317085`*^9}, 3.497818243732212*^9, 12919 3.497818386462412*^9, {3.497818766582944*^9, 3.4978187902229767`*^9}, 12920 3.497819037943324*^9, {3.497819072503372*^9, 3.4978190856033907`*^9}, 12921 3.497819761524337*^9}, 12922 TextAlignment->Center, 12923 FontSize->12, 12924 FontWeight->"Bold"], 12925 12926Cell["Program code:", "Subsubsection", 12927 CellDingbat->"\[FilledSmallSquare]", 12928 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 12929 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 12930 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 12931 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 12932 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 12933 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 12934 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 12935 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 12936 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 12937 3.492805165713872*^9}}], 12938 12939Cell[BoxData[ 12940 RowBox[{ 12941 RowBox[{"Int", "[", 12942 RowBox[{ 12943 RowBox[{ 12944 RowBox[{"x_", "^", "m_."}], "*", 12945 RowBox[{"Sin", "[", 12946 RowBox[{"a_.", "*", 12947 RowBox[{"x_", "^", "n_."}], "*", 12948 RowBox[{ 12949 RowBox[{"Log", "[", 12950 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 12951 RowBox[{ 12952 RowBox[{"Log", "[", 12953 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 12954 "]"}], " ", ":=", "\n", " ", 12955 RowBox[{ 12956 RowBox[{ 12957 RowBox[{ 12958 RowBox[{"-", 12959 RowBox[{"Cos", "[", 12960 RowBox[{"a", "*", 12961 RowBox[{"x", "^", "n"}], "*", 12962 RowBox[{ 12963 RowBox[{"Log", "[", 12964 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}]}], "/", 12965 RowBox[{"(", 12966 RowBox[{"a", "*", "n"}], ")"}]}], " ", "-", "\n", " ", 12967 RowBox[{"Dist", "[", 12968 RowBox[{ 12969 RowBox[{"p", "/", "n"}], ",", 12970 RowBox[{"Int", "[", 12971 RowBox[{ 12972 RowBox[{ 12973 RowBox[{"x", "^", "m"}], "*", 12974 RowBox[{"Sin", "[", 12975 RowBox[{"a", "*", 12976 RowBox[{"x", "^", "n"}], "*", 12977 RowBox[{ 12978 RowBox[{"Log", "[", 12979 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 12980 RowBox[{ 12981 RowBox[{"Log", "[", 12982 RowBox[{"b", "*", "x"}], "]"}], "^", 12983 RowBox[{"(", 12984 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 12985 " ", "/;", "\n", 12986 RowBox[{ 12987 RowBox[{"FreeQ", "[", 12988 RowBox[{ 12989 RowBox[{"{", 12990 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 12991 RowBox[{"RationalQ", "[", 12992 RowBox[{"{", 12993 RowBox[{"m", ",", "n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 12994 RowBox[{"p", ">", "0"}], " ", "&&", " ", 12995 RowBox[{"ZeroQ", "[", 12996 RowBox[{"m", "-", "n", "+", "1"}], "]"}]}]}]}]], "Code", 12997 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 12998 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 12999 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 13000 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 13001 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 13002 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9, 13003 3.497845658198595*^9}, 13004 Background->GrayLevel[0.85]], 13005 13006Cell[BoxData[ 13007 RowBox[{ 13008 RowBox[{"Int", "[", 13009 RowBox[{ 13010 RowBox[{ 13011 RowBox[{"x_", "^", "m_."}], "*", 13012 RowBox[{"Cos", "[", 13013 RowBox[{"a_.", "*", 13014 RowBox[{"x_", "^", "n_."}], "*", 13015 RowBox[{ 13016 RowBox[{"Log", "[", 13017 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 13018 RowBox[{ 13019 RowBox[{"Log", "[", 13020 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 13021 "]"}], " ", ":=", "\n", " ", 13022 RowBox[{ 13023 RowBox[{ 13024 RowBox[{ 13025 RowBox[{"Sin", "[", 13026 RowBox[{"a", "*", 13027 RowBox[{"x", "^", "n"}], "*", 13028 RowBox[{ 13029 RowBox[{"Log", "[", 13030 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 13031 RowBox[{"(", 13032 RowBox[{"a", "*", "n"}], ")"}]}], " ", "-", "\n", " ", 13033 RowBox[{"Dist", "[", 13034 RowBox[{ 13035 RowBox[{"p", "/", "n"}], ",", 13036 RowBox[{"Int", "[", 13037 RowBox[{ 13038 RowBox[{ 13039 RowBox[{"x", "^", "m"}], "*", 13040 RowBox[{"Cos", "[", 13041 RowBox[{"a", "*", 13042 RowBox[{"x", "^", "n"}], "*", 13043 RowBox[{ 13044 RowBox[{"Log", "[", 13045 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 13046 RowBox[{ 13047 RowBox[{"Log", "[", 13048 RowBox[{"b", "*", "x"}], "]"}], "^", 13049 RowBox[{"(", 13050 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}]}], 13051 " ", "/;", "\n", 13052 RowBox[{ 13053 RowBox[{"FreeQ", "[", 13054 RowBox[{ 13055 RowBox[{"{", 13056 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 13057 RowBox[{"RationalQ", "[", 13058 RowBox[{"{", 13059 RowBox[{"m", ",", "n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 13060 RowBox[{"p", ">", "0"}], " ", "&&", " ", 13061 RowBox[{"ZeroQ", "[", 13062 RowBox[{"m", "-", "n", "+", "1"}], "]"}]}]}]}]], "Code", 13063 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 13064 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 13065 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 13066 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 13067 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 13068 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9, 13069 3.497845658198595*^9, {3.4979216151197834`*^9, 3.4979216453214364`*^9}, 13070 3.497985809830661*^9}, 13071 Background->GrayLevel[0.85]], 13072 13073Cell["", "Subsubsection", 13074 CellDingbat->None, 13075 CellChangeTimes->{3.4796643211106243`*^9}], 13076 13077Cell[TextData[{ 13078 "Rule: If ", 13079 Cell[BoxData[ 13080 RowBox[{ 13081 RowBox[{"p", ">", "0"}], " ", "\[And]", " ", 13082 RowBox[{ 13083 RowBox[{"m", "-", "n", "+", "1"}], "\[NotEqual]", "0"}]}]]], 13084 ", then" 13085}], "Subsubsection", 13086 CellDingbat->"\[FilledSmallSquare]", 13087 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13088 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13089 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13090 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13091 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13092 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13093 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13094 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 13095 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 13096 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 13097 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978182572522306`*^9, 13098 3.497818281002264*^9}, {3.4978188033329954`*^9, 3.497818805922999*^9}, { 13099 3.497819648964179*^9, 3.4978196804042234`*^9}}], 13100 13101Cell[BoxData[ 13102 RowBox[{ 13103 RowBox[{"\[Integral]", 13104 RowBox[{ 13105 SuperscriptBox["x", "m"], 13106 RowBox[{"Sin", "[", 13107 RowBox[{"a", " ", 13108 SuperscriptBox["x", "n"], " ", 13109 SuperscriptBox[ 13110 RowBox[{"Log", "[", 13111 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 13112 SuperscriptBox[ 13113 RowBox[{"Log", "[", 13114 RowBox[{"b", " ", "x"}], "]"}], "p"], 13115 RowBox[{"\[DifferentialD]", 13116 RowBox[{"x", " ", "\[LongRightArrow]", " ", 13117 RowBox[{"-", 13118 FractionBox[ 13119 RowBox[{ 13120 SuperscriptBox["x", 13121 RowBox[{"m", "-", "n", "+", "1"}]], " ", 13122 RowBox[{"Cos", "[", 13123 RowBox[{"a", " ", 13124 SuperscriptBox["x", "n"], " ", 13125 SuperscriptBox[ 13126 RowBox[{"Log", "[", 13127 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}]}], 13128 RowBox[{"a", " ", "n"}]]}]}]}]}]}], "-", 13129 " ", "\[IndentingNewLine]", " ", 13130 RowBox[{ 13131 FractionBox["p", "n"], 13132 RowBox[{"\[Integral]", 13133 RowBox[{ 13134 SuperscriptBox["x", "m"], " ", 13135 RowBox[{"Sin", "[", 13136 RowBox[{"a", " ", 13137 SuperscriptBox["x", "n"], " ", 13138 SuperscriptBox[ 13139 RowBox[{"Log", "[", 13140 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], " ", 13141 SuperscriptBox[ 13142 RowBox[{"Log", "[", 13143 RowBox[{"b", " ", "x"}], "]"}], 13144 RowBox[{"p", "-", "1"}]], 13145 RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 13146 RowBox[{ 13147 FractionBox[ 13148 RowBox[{"m", "-", "n", "+", "1"}], 13149 RowBox[{"a", " ", "n"}]], 13150 RowBox[{"\[Integral]", 13151 RowBox[{ 13152 SuperscriptBox["x", 13153 RowBox[{"m", "-", "n"}]], " ", 13154 RowBox[{"Cos", "[", 13155 RowBox[{"a", " ", 13156 SuperscriptBox["x", "n"], " ", 13157 SuperscriptBox[ 13158 RowBox[{"Log", "[", 13159 RowBox[{"b", " ", "x"}], "]"}], "p"]}], "]"}], 13160 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 13161 CellDingbat->None, 13162 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 13163 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 13164 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 13165 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 13166 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 13167 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 13168 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 13169 3.49781786362168*^9, 3.4978178842317085`*^9}, 3.497818243732212*^9, 13170 3.497818386462412*^9, {3.497818766582944*^9, 3.4978187902229767`*^9}, 13171 3.497819037943324*^9, {3.497819072503372*^9, 3.4978190856033907`*^9}, { 13172 3.4978457040786595`*^9, 3.497845706958664*^9}, {3.497846135109263*^9, 13173 3.497846147789281*^9}}, 13174 TextAlignment->Center, 13175 FontSize->12, 13176 FontWeight->"Bold"], 13177 13178Cell["Program code:", "Subsubsection", 13179 CellDingbat->"\[FilledSmallSquare]", 13180 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13181 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13182 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13183 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13184 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13185 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13186 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13187 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 13188 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 13189 3.492805165713872*^9}}], 13190 13191Cell[BoxData[ 13192 RowBox[{ 13193 RowBox[{"Int", "[", 13194 RowBox[{ 13195 RowBox[{ 13196 RowBox[{"x_", "^", "m_."}], "*", 13197 RowBox[{"Sin", "[", 13198 RowBox[{"a_.", "*", 13199 RowBox[{"x_", "^", "n_."}], "*", 13200 RowBox[{ 13201 RowBox[{"Log", "[", 13202 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 13203 RowBox[{ 13204 RowBox[{"Log", "[", 13205 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 13206 "]"}], " ", ":=", "\n", " ", 13207 RowBox[{ 13208 RowBox[{ 13209 RowBox[{ 13210 RowBox[{"-", 13211 RowBox[{"x", "^", 13212 RowBox[{"(", 13213 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 13214 RowBox[{ 13215 RowBox[{"Cos", "[", 13216 RowBox[{"a", "*", 13217 RowBox[{"x", "^", "n"}], "*", 13218 RowBox[{ 13219 RowBox[{"Log", "[", 13220 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 13221 RowBox[{"(", 13222 RowBox[{"a", "*", "n"}], ")"}]}]}], " ", "-", "\n", " ", 13223 RowBox[{"Dist", "[", 13224 RowBox[{ 13225 RowBox[{"p", "/", "n"}], ",", 13226 RowBox[{"Int", "[", 13227 RowBox[{ 13228 RowBox[{ 13229 RowBox[{"x", "^", "m"}], "*", 13230 RowBox[{"Sin", "[", 13231 RowBox[{"a", "*", 13232 RowBox[{"x", "^", "n"}], "*", 13233 RowBox[{ 13234 RowBox[{"Log", "[", 13235 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 13236 RowBox[{ 13237 RowBox[{"Log", "[", 13238 RowBox[{"b", "*", "x"}], "]"}], "^", 13239 RowBox[{"(", 13240 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 13241 " ", "+", "\n", " ", 13242 RowBox[{"Dist", "[", 13243 RowBox[{ 13244 RowBox[{ 13245 RowBox[{"(", 13246 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 13247 RowBox[{"(", 13248 RowBox[{"a", "*", "n"}], ")"}]}], ",", 13249 RowBox[{"Int", "[", 13250 RowBox[{ 13251 RowBox[{ 13252 RowBox[{"x", "^", 13253 RowBox[{"(", 13254 RowBox[{"m", "-", "n"}], ")"}]}], "*", 13255 RowBox[{"Cos", "[", 13256 RowBox[{"a", "*", 13257 RowBox[{"x", "^", "n"}], "*", 13258 RowBox[{ 13259 RowBox[{"Log", "[", 13260 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}]}], ",", 13261 "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 13262 RowBox[{ 13263 RowBox[{"FreeQ", "[", 13264 RowBox[{ 13265 RowBox[{"{", 13266 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 13267 RowBox[{"RationalQ", "[", 13268 RowBox[{"{", 13269 RowBox[{"m", ",", "n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 13270 RowBox[{"p", ">", "0"}], " ", "&&", " ", 13271 RowBox[{"NonzeroQ", "[", 13272 RowBox[{"m", "-", "n", "+", "1"}], "]"}]}]}]}]], "Code", 13273 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 13274 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 13275 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 13276 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 13277 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 13278 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9, { 13279 3.497845658198595*^9, 3.497845675068619*^9}}, 13280 Background->GrayLevel[0.85]], 13281 13282Cell[BoxData[ 13283 RowBox[{ 13284 RowBox[{"Int", "[", 13285 RowBox[{ 13286 RowBox[{ 13287 RowBox[{"x_", "^", "m_"}], "*", 13288 RowBox[{"Cos", "[", 13289 RowBox[{"a_.", "*", 13290 RowBox[{"x_", "^", "n_."}], "*", 13291 RowBox[{ 13292 RowBox[{"Log", "[", 13293 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], "]"}], "*", 13294 RowBox[{ 13295 RowBox[{"Log", "[", 13296 RowBox[{"b_.", "*", "x_"}], "]"}], "^", "p_."}]}], ",", "x_Symbol"}], 13297 "]"}], " ", ":=", "\n", " ", 13298 RowBox[{ 13299 RowBox[{ 13300 RowBox[{ 13301 RowBox[{"x", "^", 13302 RowBox[{"(", 13303 RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 13304 RowBox[{ 13305 RowBox[{"Sin", "[", 13306 RowBox[{"a", "*", 13307 RowBox[{"x", "^", "n"}], "*", 13308 RowBox[{ 13309 RowBox[{"Log", "[", 13310 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "/", 13311 RowBox[{"(", 13312 RowBox[{"a", "*", "n"}], ")"}]}]}], " ", "-", "\n", " ", 13313 RowBox[{"Dist", "[", 13314 RowBox[{ 13315 RowBox[{"p", "/", "n"}], ",", 13316 RowBox[{"Int", "[", 13317 RowBox[{ 13318 RowBox[{ 13319 RowBox[{"x", "^", "m"}], "*", 13320 RowBox[{"Cos", "[", 13321 RowBox[{"a", "*", 13322 RowBox[{"x", "^", "n"}], "*", 13323 RowBox[{ 13324 RowBox[{"Log", "[", 13325 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}], "*", 13326 RowBox[{ 13327 RowBox[{"Log", "[", 13328 RowBox[{"b", "*", "x"}], "]"}], "^", 13329 RowBox[{"(", 13330 RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], "]"}], 13331 " ", "-", "\n", " ", 13332 RowBox[{"Dist", "[", 13333 RowBox[{ 13334 RowBox[{ 13335 RowBox[{"(", 13336 RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 13337 RowBox[{"(", 13338 RowBox[{"a", "*", "n"}], ")"}]}], ",", 13339 RowBox[{"Int", "[", 13340 RowBox[{ 13341 RowBox[{ 13342 RowBox[{"x", "^", 13343 RowBox[{"(", 13344 RowBox[{"m", "-", "n"}], ")"}]}], "*", 13345 RowBox[{"Sin", "[", 13346 RowBox[{"a", "*", 13347 RowBox[{"x", "^", "n"}], "*", 13348 RowBox[{ 13349 RowBox[{"Log", "[", 13350 RowBox[{"b", "*", "x"}], "]"}], "^", "p"}]}], "]"}]}], ",", 13351 "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 13352 RowBox[{ 13353 RowBox[{"FreeQ", "[", 13354 RowBox[{ 13355 RowBox[{"{", 13356 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 13357 RowBox[{"RationalQ", "[", 13358 RowBox[{"{", 13359 RowBox[{"m", ",", "n", ",", "p"}], "}"}], "]"}], " ", "&&", " ", 13360 RowBox[{"p", ">", "0"}], " ", "&&", " ", 13361 RowBox[{"NonzeroQ", "[", 13362 RowBox[{"m", "-", "n", "+", "1"}], "]"}]}]}]}]], "Code", 13363 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 13364 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 13365 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 13366 3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 13367 3.4978178331616373`*^9, 3.497817943721792*^9, 3.497818214522171*^9, 13368 3.4978182978122873`*^9, 3.497818743032911*^9, 3.4978188281930304`*^9, { 13369 3.497845658198595*^9, 3.497845675068619*^9}, {3.4979216151509833`*^9, 13370 3.497921645337036*^9}, {3.497985717369299*^9, 3.4979857479453526`*^9}}, 13371 Background->GrayLevel[0.85]], 13372 13373Cell["", "PageBreak", 13374 PageBreakBelow->True] 13375}, Closed]], 13376 13377Cell[CellGroupData[{ 13378 13379Cell[BoxData[ 13380 RowBox[{"\[Integral]", 13381 RowBox[{"u", " ", 13382 SuperscriptBox[ 13383 RowBox[{"Sin", "[", 13384 RowBox[{"a", "+", 13385 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13386 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 13387 CellDingbat->None, 13388 CellChangeTimes->{ 13389 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 13390 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 13391 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 13392 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 13393 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 13394 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 13395 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 13396 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 13397 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 13398 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 13399 3.4975759170868692`*^9}, {3.497577524211725*^9, 3.497577530181733*^9}, { 13400 3.497661528376972*^9, 3.4976615343361826`*^9}, 3.49766173212893*^9, 13401 3.497661825183093*^9, 3.4976633966518536`*^9, {3.4984957111631136`*^9, 13402 3.498495721365532*^9}, {3.4986732307820587`*^9, 3.49867323910207*^9}, { 13403 3.498673734862764*^9, 3.4986737418127737`*^9}, 3.5000652014948616`*^9, 13404 3.500071919760484*^9, 3.5000742351937256`*^9, {3.5000764530668306`*^9, 13405 3.5000764698568544`*^9}, {3.5156061721620646`*^9, 3.515606175192069*^9}, { 13406 3.515784590296414*^9, 3.5157845913564153`*^9}}, 13407 TextAlignment->Center, 13408 FontSize->20, 13409 FontWeight->"Bold"], 13410 13411Cell["Derivation: Algebraic expansion", "Subsubsection", 13412 CellChangeTimes->{ 13413 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13414 3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 13415 3.497816948440398*^9}, 3.497820003054675*^9}], 13416 13417Cell[TextData[{ 13418 "Basis: ", 13419 Cell[BoxData[ 13420 RowBox[{ 13421 SuperscriptBox[ 13422 RowBox[{"Sin", "[", "z", "]"}], "2"], "=", 13423 RowBox[{ 13424 FractionBox["1", "2"], "-", 13425 RowBox[{ 13426 FractionBox["1", "2"], " ", 13427 RowBox[{"Cos", "[", 13428 RowBox[{"2", " ", "z"}], "]"}]}]}]}]]] 13429}], "Subsubsection", 13430 CellChangeTimes->{ 13431 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13432 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 13433 3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, { 13434 3.4978200170946946`*^9, 3.497820027074709*^9}}], 13435 13436Cell[TextData[{ 13437 "Rule: If ", 13438 Cell[BoxData[ 13439 RowBox[{ 13440 FractionBox[ 13441 RowBox[{"n", "-", "1"}], "2"], "\[NotElement]", 13442 "\[DoubleStruckCapitalZ]"}]]], 13443 ", then" 13444}], "Subsubsection", 13445 CellDingbat->"\[FilledSmallSquare]", 13446 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13447 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13448 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13449 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13450 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13451 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13452 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13453 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 13454 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 13455 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, { 13456 3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 13457 3.49763968986082*^9}, 3.497639786159789*^9, {3.4976636687943316`*^9, 13458 3.497663674238741*^9}, 3.500065336645051*^9, {3.5000653831351156`*^9, 13459 3.5000653931651297`*^9}, {3.5000654310051827`*^9, 3.500065453315214*^9}, { 13460 3.500069687963237*^9, 3.5000696889460382`*^9}, 3.5000699834433556`*^9, { 13461 3.500073956083335*^9, 3.5000740306834393`*^9}, {3.500074095863531*^9, 13462 3.5000741212435665`*^9}, {3.5000741522836094`*^9, 13463 3.5000741751536417`*^9}, {3.500074221103706*^9, 3.500074221103706*^9}, 13464 3.500074503914102*^9, {3.500089709186855*^9, 3.5000897361468925`*^9}}], 13465 13466Cell[BoxData[ 13467 RowBox[{ 13468 RowBox[{"\[Integral]", 13469 RowBox[{ 13470 SuperscriptBox[ 13471 RowBox[{"Sin", "[", 13472 RowBox[{ 13473 FractionBox["a", "2"], "+", 13474 FractionBox[ 13475 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "2"], " ", 13476 SuperscriptBox[ 13477 RowBox[{"Sin", "[", 13478 RowBox[{"a", "+", 13479 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13480 RowBox[{"\[DifferentialD]", 13481 RowBox[{"x", " ", "\[LongRightArrow]", " ", 13482 FractionBox["1", "2"]}]}], 13483 RowBox[{"\[Integral]", 13484 RowBox[{ 13485 SuperscriptBox[ 13486 RowBox[{"Sin", "[", 13487 RowBox[{"a", "+", 13488 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13489 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 13490 RowBox[{ 13491 FractionBox["1", "2"], 13492 RowBox[{"\[Integral]", 13493 RowBox[{ 13494 RowBox[{"Cos", "[", 13495 RowBox[{"a", "+", 13496 RowBox[{"b", " ", "x"}]}], "]"}], 13497 SuperscriptBox[ 13498 RowBox[{"Sin", "[", 13499 RowBox[{"a", "+", 13500 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13501 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 13502 CellDingbat->None, 13503 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 13504 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 13505 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 13506 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 13507 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 13508 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 13509 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 13510 3.49781786362168*^9, 3.4978178842317085`*^9}, {3.4978200683047667`*^9, 13511 3.4978200791447816`*^9}, {3.500079530261139*^9, 3.500079575451202*^9}, { 13512 3.5000796205012655`*^9, 3.500079671061336*^9}}, 13513 TextAlignment->Center, 13514 FontSize->12, 13515 FontWeight->"Bold"], 13516 13517Cell["Program code:", "Subsubsection", 13518 CellDingbat->"\[FilledSmallSquare]", 13519 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13520 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13521 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13522 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13523 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13524 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13525 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13526 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 13527 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 13528 3.492805165713872*^9}}], 13529 13530Cell[BoxData[ 13531 RowBox[{ 13532 RowBox[{"Int", "[", 13533 RowBox[{ 13534 RowBox[{ 13535 RowBox[{ 13536 RowBox[{"Sin", "[", 13537 RowBox[{"c_.", "+", 13538 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "*", 13539 RowBox[{ 13540 RowBox[{"Sin", "[", 13541 RowBox[{"a_.", "+", 13542 RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 13543 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 13544 RowBox[{ 13545 RowBox[{ 13546 RowBox[{"Dist", "[", 13547 RowBox[{ 13548 RowBox[{"1", "/", "2"}], ",", 13549 RowBox[{"Int", "[", 13550 RowBox[{ 13551 RowBox[{ 13552 RowBox[{"Sin", "[", 13553 RowBox[{"a", "+", 13554 RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}]}], 13555 "]"}], " ", "-", " ", "\n", " ", 13556 RowBox[{"Dist", "[", 13557 RowBox[{ 13558 RowBox[{"1", "/", "2"}], ",", 13559 RowBox[{"Int", "[", 13560 RowBox[{ 13561 RowBox[{ 13562 RowBox[{"Cos", "[", 13563 RowBox[{"a", "+", 13564 RowBox[{"b", "*", "x"}]}], "]"}], "*", 13565 RowBox[{ 13566 RowBox[{"Sin", "[", 13567 RowBox[{"a", "+", 13568 RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], 13569 "]"}]}], "]"}]}], " ", "/;", "\n", 13570 RowBox[{ 13571 RowBox[{"FreeQ", "[", 13572 RowBox[{ 13573 RowBox[{"{", 13574 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 13575 " ", "&&", " ", 13576 RowBox[{"ZeroQ", "[", 13577 RowBox[{"c", "-", 13578 RowBox[{"a", "/", "2"}]}], "]"}], " ", "&&", " ", 13579 RowBox[{"ZeroQ", "[", 13580 RowBox[{"d", "-", 13581 RowBox[{"b", "/", "2"}]}], "]"}], " ", "&&", " ", 13582 RowBox[{"Not", "[", 13583 RowBox[{"OddQ", "[", "n", "]"}], "]"}]}]}]}]], "Code", 13584 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 13585 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 13586 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 13587 3.497816883330307*^9, 3.497817840791648*^9, 3.497819954544607*^9, { 13588 3.500077639438492*^9, 3.5000776443384986`*^9}, {3.500079737691429*^9, 13589 3.500079771871477*^9}, {3.500079835841567*^9, 3.5000799106916714`*^9}, { 13590 3.5000799437417173`*^9, 3.500079972731758*^9}, {3.5000800254818325`*^9, 13591 3.5000800531018705`*^9}, {3.500080550942568*^9, 3.500080551872569*^9}, { 13592 3.5000896569567814`*^9, 3.50008966290679*^9}}, 13593 Background->GrayLevel[0.85]], 13594 13595Cell["", "Subsubsection", 13596 CellDingbat->None, 13597 CellChangeTimes->{3.4796643211106243`*^9}], 13598 13599Cell["Derivation: Algebraic expansion", "Subsubsection", 13600 CellChangeTimes->{ 13601 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13602 3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 13603 3.497816948440398*^9}, 3.497820003054675*^9}], 13604 13605Cell[TextData[{ 13606 "Basis: ", 13607 Cell[BoxData[ 13608 RowBox[{ 13609 SuperscriptBox[ 13610 RowBox[{"Cos", "[", "z", "]"}], "2"], "=", 13611 RowBox[{ 13612 FractionBox["1", "2"], "+", 13613 RowBox[{ 13614 FractionBox["1", "2"], " ", 13615 RowBox[{"Cos", "[", 13616 RowBox[{"2", " ", "z"}], "]"}]}]}]}]]] 13617}], "Subsubsection", 13618 CellChangeTimes->{ 13619 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13620 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 13621 3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, { 13622 3.4978200170946946`*^9, 3.497820027074709*^9}, {3.5000813814137306`*^9, 13623 3.5000813899437428`*^9}}], 13624 13625Cell[TextData[{ 13626 "Rule: If ", 13627 Cell[BoxData[ 13628 RowBox[{ 13629 FractionBox[ 13630 RowBox[{"n", "-", "1"}], "2"], "\[NotElement]", 13631 "\[DoubleStruckCapitalZ]"}]]], 13632 ", then" 13633}], "Subsubsection", 13634 CellDingbat->"\[FilledSmallSquare]", 13635 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13636 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13637 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13638 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13639 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13640 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13641 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13642 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 13643 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 13644 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, { 13645 3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 13646 3.49763968986082*^9}, 3.497639786159789*^9, {3.4976636687943316`*^9, 13647 3.497663674238741*^9}, 3.500065336645051*^9, {3.5000653831351156`*^9, 13648 3.5000653931651297`*^9}, {3.5000654310051827`*^9, 3.500065453315214*^9}, { 13649 3.500069687963237*^9, 3.5000696889460382`*^9}, 3.5000699834433556`*^9, { 13650 3.500073956083335*^9, 3.5000740306834393`*^9}, {3.500074095863531*^9, 13651 3.5000741212435665`*^9}, {3.5000741522836094`*^9, 13652 3.5000741751536417`*^9}, {3.500074221103706*^9, 3.500074221103706*^9}, 13653 3.500074503914102*^9, {3.500089709186855*^9, 3.5000897361468925`*^9}}], 13654 13655Cell[BoxData[ 13656 RowBox[{ 13657 RowBox[{"\[Integral]", 13658 RowBox[{ 13659 SuperscriptBox[ 13660 RowBox[{"Cos", "[", 13661 RowBox[{ 13662 FractionBox["a", "2"], "+", 13663 FractionBox[ 13664 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "2"], " ", 13665 SuperscriptBox[ 13666 RowBox[{"Sin", "[", 13667 RowBox[{"a", "+", 13668 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13669 RowBox[{"\[DifferentialD]", 13670 RowBox[{"x", " ", "\[LongRightArrow]", " ", 13671 FractionBox["1", "2"]}]}], 13672 RowBox[{"\[Integral]", 13673 RowBox[{ 13674 SuperscriptBox[ 13675 RowBox[{"Sin", "[", 13676 RowBox[{"a", "+", 13677 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13678 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 13679 RowBox[{ 13680 FractionBox["1", "2"], 13681 RowBox[{"\[Integral]", 13682 RowBox[{ 13683 RowBox[{"Cos", "[", 13684 RowBox[{"a", "+", 13685 RowBox[{"b", " ", "x"}]}], "]"}], 13686 SuperscriptBox[ 13687 RowBox[{"Sin", "[", 13688 RowBox[{"a", "+", 13689 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13690 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 13691 CellDingbat->None, 13692 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 13693 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 13694 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 13695 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 13696 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 13697 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 13698 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 13699 3.49781786362168*^9, 3.4978178842317085`*^9}, {3.4978200683047667`*^9, 13700 3.4978200791447816`*^9}, {3.500079530261139*^9, 3.500079575451202*^9}, { 13701 3.5000796205012655`*^9, 3.500079671061336*^9}, {3.5000813766037235`*^9, 13702 3.500081376903724*^9}, 3.5000814134937754`*^9}, 13703 TextAlignment->Center, 13704 FontSize->12, 13705 FontWeight->"Bold"], 13706 13707Cell["Program code:", "Subsubsection", 13708 CellDingbat->"\[FilledSmallSquare]", 13709 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13710 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13711 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13712 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13713 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13714 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13715 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13716 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 13717 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 13718 3.492805165713872*^9}}], 13719 13720Cell[BoxData[ 13721 RowBox[{ 13722 RowBox[{"Int", "[", 13723 RowBox[{ 13724 RowBox[{ 13725 RowBox[{ 13726 RowBox[{"Cos", "[", 13727 RowBox[{"c_.", "+", 13728 RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "2"}], "*", 13729 RowBox[{ 13730 RowBox[{"Sin", "[", 13731 RowBox[{"a_.", "+", 13732 RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 13733 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 13734 RowBox[{ 13735 RowBox[{ 13736 RowBox[{"Dist", "[", 13737 RowBox[{ 13738 RowBox[{"1", "/", "2"}], ",", 13739 RowBox[{"Int", "[", 13740 RowBox[{ 13741 RowBox[{ 13742 RowBox[{"Sin", "[", 13743 RowBox[{"a", "+", 13744 RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}]}], 13745 "]"}], " ", "+", " ", "\n", " ", 13746 RowBox[{"Dist", "[", 13747 RowBox[{ 13748 RowBox[{"1", "/", "2"}], ",", 13749 RowBox[{"Int", "[", 13750 RowBox[{ 13751 RowBox[{ 13752 RowBox[{"Cos", "[", 13753 RowBox[{"a", "+", 13754 RowBox[{"b", "*", "x"}]}], "]"}], "*", 13755 RowBox[{ 13756 RowBox[{"Sin", "[", 13757 RowBox[{"a", "+", 13758 RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], 13759 "]"}]}], "]"}]}], " ", "/;", "\n", 13760 RowBox[{ 13761 RowBox[{"FreeQ", "[", 13762 RowBox[{ 13763 RowBox[{"{", 13764 RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 13765 " ", "&&", " ", 13766 RowBox[{"ZeroQ", "[", 13767 RowBox[{"c", "-", 13768 RowBox[{"a", "/", "2"}]}], "]"}], " ", "&&", " ", 13769 RowBox[{"ZeroQ", "[", 13770 RowBox[{"d", "-", 13771 RowBox[{"b", "/", "2"}]}], "]"}], " ", "&&", " ", 13772 RowBox[{"Not", "[", 13773 RowBox[{"OddQ", "[", "n", "]"}], "]"}]}]}]}]], "Code", 13774 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 13775 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 13776 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 13777 3.497816883330307*^9, 3.497817840791648*^9, 3.497819954544607*^9, { 13778 3.500077639438492*^9, 3.5000776443384986`*^9}, {3.500079737691429*^9, 13779 3.500079771871477*^9}, {3.500079835841567*^9, 3.5000799106916714`*^9}, { 13780 3.5000799437417173`*^9, 3.500079972731758*^9}, {3.5000800254818325`*^9, 13781 3.5000800531018705`*^9}, {3.500080550942568*^9, 3.500080551872569*^9}, { 13782 3.500081409033769*^9, 3.500081449713826*^9}, {3.5000816225140676`*^9, 13783 3.50008162382407*^9}, 3.5000896736668053`*^9}, 13784 Background->GrayLevel[0.85]], 13785 13786Cell["", "Subsubsection", 13787 CellDingbat->None, 13788 CellChangeTimes->{3.4796643211106243`*^9}], 13789 13790Cell["Derivation: Algebraic simplification", "Subsubsection", 13791 CellChangeTimes->{ 13792 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13793 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 13794 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 13795 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 13796 3.500071601450039*^9, 3.500071603130041*^9}}], 13797 13798Cell[TextData[{ 13799 "Basis: ", 13800 Cell[BoxData[ 13801 RowBox[{ 13802 RowBox[{"Sin", "[", 13803 RowBox[{"2", " ", "z"}], "]"}], "=", 13804 RowBox[{"2", " ", 13805 RowBox[{"Sin", "[", "z", "]"}], " ", 13806 RowBox[{"Cos", "[", "z", "]"}]}]}]]] 13807}], "Subsubsection", 13808 CellChangeTimes->{ 13809 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13810 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 13811 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 13812 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 13813 3.500071601450039*^9, 3.5000716499501066`*^9}}], 13814 13815Cell[TextData[{ 13816 "Rule: If ", 13817 Cell[BoxData[ 13818 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]], 13819 " and ", 13820 Cell[BoxData["u"]], 13821 " is a function of trig functions of ", 13822 Cell[BoxData[ 13823 RowBox[{ 13824 FractionBox["a", "2"], "+", 13825 FractionBox[ 13826 RowBox[{"b", " ", "x"}], "2"]}]]], 13827 ", then" 13828}], "Subsubsection", 13829 CellDingbat->"\[FilledSmallSquare]", 13830 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13831 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13832 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13833 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13834 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13835 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13836 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13837 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 13838 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 13839 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, { 13840 3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 13841 3.49763968986082*^9}, 3.497639786159789*^9, {3.4976636687943316`*^9, 13842 3.497663674238741*^9}, 3.500065336645051*^9, {3.5000653831351156`*^9, 13843 3.5000653931651297`*^9}, {3.5000654310051827`*^9, 3.500065453315214*^9}, { 13844 3.500069687963237*^9, 3.5000696889460382`*^9}, 3.5000699834433556`*^9, { 13845 3.500073956083335*^9, 3.5000740306834393`*^9}, {3.500074095863531*^9, 13846 3.5000741212435665`*^9}, {3.5000741522836094`*^9, 13847 3.5000741751536417`*^9}, {3.500074221103706*^9, 3.500074221103706*^9}, 13848 3.500074503914102*^9}], 13849 13850Cell[BoxData[ 13851 RowBox[{"\[Integral]", 13852 RowBox[{"u", " ", 13853 SuperscriptBox[ 13854 RowBox[{"Sin", "[", 13855 RowBox[{"a", "+", 13856 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 13857 RowBox[{"\[DifferentialD]", 13858 RowBox[{"x", " ", "\[LongRightArrow]", " ", 13859 SuperscriptBox["2", "n"]}]}], 13860 RowBox[{"\[Integral]", 13861 RowBox[{"u", " ", 13862 SuperscriptBox[ 13863 RowBox[{"Cos", "[", 13864 RowBox[{ 13865 FractionBox["a", "2"], "+", 13866 FractionBox[ 13867 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], " ", 13868 SuperscriptBox[ 13869 RowBox[{"Sin", "[", 13870 RowBox[{ 13871 FractionBox["a", "2"], "+", 13872 FractionBox[ 13873 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], 13874 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 13875 CellDingbat->None, 13876 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 13877 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 13878 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 13879 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 13880 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 13881 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 13882 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 13883 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 13884 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 13885 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 13886 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 13887 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 13888 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 13889 3.4976637183712187`*^9, 3.4976637616924944`*^9}, {3.5000653173450236`*^9, 13890 3.500065324625034*^9}, {3.5000653616850853`*^9, 3.500065367505094*^9}, 13891 3.5000654791452503`*^9, {3.5000694620376396`*^9, 3.5000695288585577`*^9}, { 13892 3.500069754013753*^9, 3.500069772031784*^9}, {3.500069828737884*^9, 13893 3.500069930574863*^9}, {3.5000700029901905`*^9, 3.500070007950999*^9}, { 13894 3.500070067407891*^9, 3.5000700989979353`*^9}, 3.5000701914680643`*^9, { 13895 3.500073895743251*^9, 3.5000739445333185`*^9}, {3.500074199563676*^9, 13896 3.500074208003688*^9}, {3.5000744727540584`*^9, 3.500074501224098*^9}}, 13897 TextAlignment->Center, 13898 FontSize->12, 13899 FontWeight->"Bold"], 13900 13901Cell["Program code:", "Subsubsection", 13902 CellDingbat->"\[FilledSmallSquare]", 13903 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 13904 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 13905 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 13906 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 13907 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 13908 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 13909 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 13910 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 13911 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 13912 3.492805165713872*^9}}], 13913 13914Cell[BoxData[ 13915 RowBox[{ 13916 RowBox[{"Int", "[", 13917 RowBox[{ 13918 RowBox[{"u_", "*", 13919 RowBox[{ 13920 RowBox[{"Sin", "[", 13921 RowBox[{"a_.", "+", 13922 RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 13923 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 13924 RowBox[{ 13925 RowBox[{"Dist", "[", 13926 RowBox[{ 13927 RowBox[{"2", "^", "n"}], ",", 13928 RowBox[{"Int", "[", 13929 RowBox[{ 13930 RowBox[{"u", "*", 13931 RowBox[{ 13932 RowBox[{"Cos", "[", 13933 RowBox[{ 13934 RowBox[{"a", "/", "2"}], "+", 13935 RowBox[{"b", "*", 13936 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}], "*", 13937 RowBox[{ 13938 RowBox[{"Sin", "[", 13939 RowBox[{ 13940 RowBox[{"a", "/", "2"}], "+", 13941 RowBox[{"b", "*", 13942 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}]}], ",", "x"}], 13943 "]"}]}], "]"}], " ", "/;", "\n", 13944 RowBox[{ 13945 RowBox[{"FreeQ", "[", 13946 RowBox[{ 13947 RowBox[{"{", 13948 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 13949 RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 13950 RowBox[{"ZeroQ", "[", 13951 RowBox[{ 13952 RowBox[{"a", "/", "2"}], "+", 13953 RowBox[{"b", "*", 13954 RowBox[{"x", "/", "2"}]}], "-", 13955 RowBox[{"FunctionOfTrig", "[", 13956 RowBox[{"u", ",", "x"}], "]"}]}], "]"}]}]}]}]], "Code", 13957 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 13958 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 13959 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 13960 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 13961 3.4976395861674376`*^9, 3.497663376917819*^9, 3.4976636476250944`*^9, 13962 3.500065332175044*^9, 3.500065376815107*^9, 3.500065423255172*^9, { 13963 3.500069566860224*^9, 3.500069658276385*^9}, {3.5000697782405953`*^9, 13964 3.5000697862434096`*^9}, {3.500069950168497*^9, 3.500069992132571*^9}, { 13965 3.5000701293779774`*^9, 3.5000701415479946`*^9}, 3.5000701855880566`*^9, { 13966 3.5000702333881235`*^9, 3.5000702407681336`*^9}, 3.500070898259054*^9, { 13967 3.5000740600034804`*^9, 3.5000740914935246`*^9}, {3.5000742130736947`*^9, 13968 3.5000742163036995`*^9}, {3.500074399503956*^9, 3.500074433484003*^9}, { 13969 3.5000745170941205`*^9, 3.500074525404132*^9}, {3.500074568174192*^9, 13970 3.500074670514335*^9}}, 13971 Background->GrayLevel[0.85]], 13972 13973Cell["", "Subsubsection", 13974 CellDingbat->None, 13975 CellChangeTimes->{3.4796643211106243`*^9}], 13976 13977Cell["\<\ 13978Derivation: Algebraic simplification and piecewise constant extraction\ 13979\>", "Subsubsection", 13980 CellChangeTimes->{ 13981 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 13982 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 13983 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 13984 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 13985 3.500071601450039*^9, 3.500071603130041*^9}, {3.50008290223586*^9, 13986 3.5000829156258783`*^9}}], 13987 13988Cell[TextData[{ 13989 "Basis: ", 13990 Cell[BoxData[ 13991 RowBox[{ 13992 RowBox[{"Sin", "[", 13993 RowBox[{"2", " ", "z"}], "]"}], "=", 13994 RowBox[{"2", " ", 13995 RowBox[{"Sin", "[", "z", "]"}], " ", 13996 RowBox[{"Cos", "[", "z", "]"}]}]}]]] 13997}], "Subsubsection", 13998 CellChangeTimes->{ 13999 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 14000 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 14001 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 14002 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 14003 3.500071601450039*^9, 3.5000716499501066`*^9}}], 14004 14005Cell[TextData[{ 14006 "Basis: ", 14007 Cell[BoxData[Cell[TextData[Cell[BoxData[ 14008 RowBox[{ 14009 RowBox[{ 14010 SubscriptBox["\[PartialD]", "x"], 14011 FractionBox[ 14012 SuperscriptBox[ 14013 RowBox[{"Sin", "[", 14014 RowBox[{"a", "+", 14015 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 14016 RowBox[{ 14017 SuperscriptBox[ 14018 RowBox[{"Sin", "[", 14019 RowBox[{ 14020 FractionBox["a", "2"], "+", 14021 FractionBox[ 14022 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], " ", 14023 SuperscriptBox[ 14024 RowBox[{"Cos", "[", 14025 RowBox[{ 14026 FractionBox["a", "2"], "+", 14027 FractionBox[ 14028 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"]}]]}], "=", "0"}]], 14029 CellDingbat->None, 14030 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 14031 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 14032 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 14033 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 14034 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 14035 3.4796622450654173`*^9}, {3.479686720424531*^9, 14036 3.4796867204345455`*^9}, {3.4796874646646957`*^9, 14037 3.4796874745589232`*^9}, {3.492826573513727*^9, 3.492826578630536*^9}, { 14038 3.4928267070863624`*^9, 3.492826707460763*^9}, 3.4928267903497095`*^9, { 14039 3.492829799151373*^9, 3.4928299617216005`*^9}, {3.4940972077187414`*^9, 14040 3.4940972347887793`*^9}, {3.496441851501421*^9, 3.496441872881451*^9}, { 14041 3.496528916553913*^9, 3.4965289272239285`*^9}, {3.497576165747217*^9, 14042 3.4975761801372375`*^9}, {3.497577761382057*^9, 3.4975777938921027`*^9}, 14043 3.49763959300025*^9, 3.497639634480723*^9, {3.4976637183712187`*^9, 14044 3.4976637616924944`*^9}, {3.5000653173450236`*^9, 14045 3.500065324625034*^9}, {3.5000653616850853`*^9, 3.500065367505094*^9}, 14046 3.5000654791452503`*^9, {3.5000694620376396`*^9, 14047 3.5000695288585577`*^9}, {3.500069754013753*^9, 3.500069772031784*^9}, { 14048 3.500069828737884*^9, 3.500069930574863*^9}, {3.5000700029901905`*^9, 14049 3.500070007950999*^9}, {3.500070067407891*^9, 3.5000700989979353`*^9}, 14050 3.5000701914680643`*^9, {3.500073895743251*^9, 3.5000739445333185`*^9}, { 14051 3.500074199563676*^9, 3.500074208003688*^9}, {3.5000744727540584`*^9, 14052 3.500074501224098*^9}, 3.500082863385805*^9}, 14053 TextAlignment->Center, 14054 FontSize->12, 14055 FontWeight->"Bold"]], "Subsubsection", 14056 CellChangeTimes->{ 14057 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 14058 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 14059 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 14060 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 14061 3.500071601450039*^9, 3.5000716499501066`*^9}}]]] 14062}], "Subsubsection", 14063 CellChangeTimes->{ 14064 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 14065 3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 14066 3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 14067 3.497639710530856*^9, 3.497727769376384*^9, 3.4978080875027843`*^9, { 14068 3.500071601450039*^9, 3.5000716499501066`*^9}, {3.500083019276024*^9, 14069 3.500083048196064*^9}}], 14070 14071Cell[TextData[{ 14072 "Rule: If ", 14073 Cell[BoxData[ 14074 RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]], 14075 " and ", 14076 Cell[BoxData["u"]], 14077 " is a function of trig functions of ", 14078 Cell[BoxData[ 14079 RowBox[{ 14080 FractionBox["a", "2"], "+", 14081 FractionBox[ 14082 RowBox[{"b", " ", "x"}], "2"]}]]], 14083 ", then" 14084}], "Subsubsection", 14085 CellDingbat->"\[FilledSmallSquare]", 14086 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 14087 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 14088 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 14089 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 14090 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 14091 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 14092 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 14093 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 14094 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 14095 3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, { 14096 3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 14097 3.49763968986082*^9}, 3.497639786159789*^9, {3.4976636687943316`*^9, 14098 3.497663674238741*^9}, 3.500065336645051*^9, {3.5000653831351156`*^9, 14099 3.5000653931651297`*^9}, {3.5000654310051827`*^9, 3.500065453315214*^9}, { 14100 3.500069687963237*^9, 3.5000696889460382`*^9}, 3.5000699834433556`*^9, { 14101 3.500073956083335*^9, 3.5000740306834393`*^9}, {3.500074095863531*^9, 14102 3.5000741212435665`*^9}, {3.5000741522836094`*^9, 14103 3.5000741751536417`*^9}, {3.500074221103706*^9, 3.500074221103706*^9}, 14104 3.500074503914102*^9}], 14105 14106Cell[BoxData[ 14107 RowBox[{"\[Integral]", 14108 RowBox[{"u", " ", 14109 SuperscriptBox[ 14110 RowBox[{"Sin", "[", 14111 RowBox[{"a", "+", 14112 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 14113 RowBox[{"\[DifferentialD]", 14114 RowBox[{"x", " ", "\[LongRightArrow]", " ", 14115 FractionBox[ 14116 SuperscriptBox[ 14117 RowBox[{"Sin", "[", 14118 RowBox[{"a", "+", 14119 RowBox[{"b", " ", "x"}]}], "]"}], "n"], 14120 RowBox[{ 14121 SuperscriptBox[ 14122 RowBox[{"Sin", "[", 14123 RowBox[{ 14124 FractionBox["a", "2"], "+", 14125 FractionBox[ 14126 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], " ", 14127 SuperscriptBox[ 14128 RowBox[{"Cos", "[", 14129 RowBox[{ 14130 FractionBox["a", "2"], "+", 14131 FractionBox[ 14132 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"]}]]}]}], 14133 RowBox[{"\[Integral]", 14134 RowBox[{"u", " ", 14135 SuperscriptBox[ 14136 RowBox[{"Cos", "[", 14137 RowBox[{ 14138 FractionBox["a", "2"], "+", 14139 FractionBox[ 14140 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], " ", 14141 SuperscriptBox[ 14142 RowBox[{"Sin", "[", 14143 RowBox[{ 14144 FractionBox["a", "2"], "+", 14145 FractionBox[ 14146 RowBox[{"b", " ", "x"}], "2"]}], "]"}], "n"], 14147 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 14148 CellDingbat->None, 14149 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, { 14150 3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 14151 3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, { 14152 3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 14153 3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 14154 3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, { 14155 3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 14156 3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 14157 3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, { 14158 3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 14159 3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, { 14160 3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 14161 3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, { 14162 3.4976637183712187`*^9, 3.4976637616924944`*^9}, {3.5000653173450236`*^9, 14163 3.500065324625034*^9}, {3.5000653616850853`*^9, 3.500065367505094*^9}, 14164 3.5000654791452503`*^9, {3.5000694620376396`*^9, 3.5000695288585577`*^9}, { 14165 3.500069754013753*^9, 3.500069772031784*^9}, {3.500069828737884*^9, 14166 3.500069930574863*^9}, {3.5000700029901905`*^9, 3.500070007950999*^9}, { 14167 3.500070067407891*^9, 3.5000700989979353`*^9}, 3.5000701914680643`*^9, { 14168 3.500073895743251*^9, 3.5000739445333185`*^9}, {3.500074199563676*^9, 14169 3.500074208003688*^9}, {3.5000744727540584`*^9, 3.500074501224098*^9}, 14170 3.500082863385805*^9}, 14171 TextAlignment->Center, 14172 FontSize->12, 14173 FontWeight->"Bold"], 14174 14175Cell["Program code:", "Subsubsection", 14176 CellDingbat->"\[FilledSmallSquare]", 14177 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 14178 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 14179 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 14180 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 14181 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 14182 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 14183 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 14184 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 14185 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 14186 3.492805165713872*^9}}], 14187 14188Cell[BoxData[ 14189 RowBox[{"(*", " ", 14190 RowBox[{ 14191 RowBox[{"Int", "[", 14192 RowBox[{ 14193 RowBox[{"u_", "*", 14194 RowBox[{ 14195 RowBox[{"Sin", "[", 14196 RowBox[{"a_.", "+", 14197 RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_"}]}], ",", 14198 "x_Symbol"}], "]"}], " ", ":=", "\n", " ", 14199 RowBox[{ 14200 RowBox[{ 14201 RowBox[{ 14202 RowBox[{ 14203 RowBox[{"Sin", "[", 14204 RowBox[{"a", "+", 14205 RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], "/", 14206 RowBox[{"(", 14207 RowBox[{ 14208 RowBox[{ 14209 RowBox[{"Sin", "[", 14210 RowBox[{ 14211 RowBox[{"a", "/", "2"}], "+", 14212 RowBox[{"b", "*", 14213 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}], "*", 14214 RowBox[{ 14215 RowBox[{"Cos", "[", 14216 RowBox[{ 14217 RowBox[{"a", "/", "2"}], "+", 14218 RowBox[{"b", "*", 14219 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}]}], ")"}]}], "*", 14220 RowBox[{"Int", "[", 14221 RowBox[{ 14222 RowBox[{"u", "*", 14223 RowBox[{ 14224 RowBox[{"Cos", "[", 14225 RowBox[{ 14226 RowBox[{"a", "/", "2"}], "+", 14227 RowBox[{"b", "*", 14228 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}], "*", 14229 RowBox[{ 14230 RowBox[{"Sin", "[", 14231 RowBox[{ 14232 RowBox[{"a", "/", "2"}], "+", 14233 RowBox[{"b", "*", 14234 RowBox[{"x", "/", "2"}]}]}], "]"}], "^", "n"}]}], ",", "x"}], 14235 "]"}]}], " ", "/;", "\n", 14236 RowBox[{ 14237 RowBox[{"FreeQ", "[", 14238 RowBox[{ 14239 RowBox[{"{", 14240 RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 14241 RowBox[{"FractionQ", "[", "n", "]"}], " ", "&&", " ", 14242 RowBox[{"ZeroQ", "[", 14243 RowBox[{ 14244 RowBox[{"a", "/", "2"}], "+", 14245 RowBox[{"b", "*", 14246 RowBox[{"x", "/", "2"}]}], "-", 14247 RowBox[{"FunctionOfTrig", "[", 14248 RowBox[{"u", ",", "x"}], "]"}]}], "]"}]}]}]}], " ", "*)"}]], "Code", 14249 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 14250 3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 14251 3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 14252 3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 14253 3.4976395861674376`*^9, 3.497663376917819*^9, 3.4976636476250944`*^9, 14254 3.500065332175044*^9, 3.500065376815107*^9, 3.500065423255172*^9, { 14255 3.500069566860224*^9, 3.500069658276385*^9}, {3.5000697782405953`*^9, 14256 3.5000697862434096`*^9}, {3.500069950168497*^9, 3.500069992132571*^9}, { 14257 3.5000701293779774`*^9, 3.5000701415479946`*^9}, 3.5000701855880566`*^9, { 14258 3.5000702333881235`*^9, 3.5000702407681336`*^9}, 3.500070898259054*^9, { 14259 3.5000740600034804`*^9, 3.5000740914935246`*^9}, {3.5000742130736947`*^9, 14260 3.5000742163036995`*^9}, {3.500074399503956*^9, 3.500074433484003*^9}, { 14261 3.5000745170941205`*^9, 3.500074525404132*^9}, {3.500074568174192*^9, 14262 3.500074670514335*^9}, {3.500082744745639*^9, 3.5000827461456413`*^9}, 14263 3.5000831099761505`*^9, {3.5000836307068796`*^9, 3.5000836393968916`*^9}, 14264 3.5000843495178857`*^9, {3.5000888540856576`*^9, 3.500088866275675*^9}}, 14265 Background->GrayLevel[0.85]], 14266 14267Cell["", "PageBreak", 14268 PageBreakBelow->True] 14269}, Closed]], 14270 14271Cell[CellGroupData[{ 14272 14273Cell[BoxData[ 14274 RowBox[{"\[Integral]", 14275 RowBox[{"u", " ", 14276 SuperscriptBox[ 14277 RowBox[{"Sin", "[", "v", "]"}], "2"], 14278 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Title", 14279 CellDingbat->None, 14280 CellChangeTimes->{ 14281 3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, { 14282 3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 14283 3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 14284 3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 14285 3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 14286 3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 14287 3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, { 14288 3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 14289 3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4965288067037597`*^9, { 14290 3.4975757333366117`*^9, 3.497575733766612*^9}, {3.4975758588567877`*^9, 14291 3.4975759170868692`*^9}, {3.4978099162653446`*^9, 3.49780992018535*^9}, 14292 3.497816868100286*^9, 3.4978178569916706`*^9, 3.497819935984581*^9}, 14293 TextAlignment->Center, 14294 FontSize->20, 14295 FontWeight->"Bold"], 14296 14297Cell["Derivation: Algebraic expansion", "Subsubsection", 14298 CellChangeTimes->{ 14299 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 14300 3.496528894323882*^9, 3.497575979956957*^9, {3.4978169434003916`*^9, 14301 3.497816948440398*^9}, 3.497820003054675*^9}], 14302 14303Cell[TextData[{ 14304 "Basis: ", 14305 Cell[BoxData[ 14306 RowBox[{ 14307 SuperscriptBox[ 14308 RowBox[{"Sin", "[", "z", "]"}], "2"], "=", 14309 RowBox[{ 14310 FractionBox["1", "2"], "-", 14311 RowBox[{ 14312 FractionBox["1", "2"], " ", 14313 RowBox[{"Cos", "[", 14314 RowBox[{"2", " ", "z"}], "]"}]}]}]}]]] 14315}], "Subsubsection", 14316 CellChangeTimes->{ 14317 3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 14318 3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 14319 3.497809962345409*^9, {3.497816982770447*^9, 3.4978170004804716`*^9}, { 14320 3.4978200170946946`*^9, 3.497820027074709*^9}}], 14321 14322Cell[TextData[{ 14323 "Rule: If ", 14324 Cell[BoxData["u"]], 14325 " is a function of trig functions of ", 14326 Cell[BoxData[ 14327 RowBox[{"2", " ", "v"}]]], 14328 ", then" 14329}], "Subsubsection", 14330 CellDingbat->"\[FilledSmallSquare]", 14331 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 14332 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 14333 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 14334 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 14335 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 14336 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 14337 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 14338 3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, { 14339 3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 14340 3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, { 14341 3.497817913331749*^9, 3.4978179162117534`*^9}, {3.4978200878947935`*^9, 14342 3.497820134594859*^9}}], 14343 14344Cell[BoxData[ 14345 RowBox[{ 14346 RowBox[{"\[Integral]", 14347 RowBox[{"u", " ", 14348 SuperscriptBox[ 14349 RowBox[{"Sin", "[", "v", "]"}], "2"], 14350 RowBox[{"\[DifferentialD]", 14351 RowBox[{"x", " ", "\[LongRightArrow]", " ", 14352 FractionBox["1", "2"]}]}], 14353 RowBox[{"\[Integral]", 14354 RowBox[{"u", 14355 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 14356 RowBox[{ 14357 FractionBox["1", "2"], 14358 RowBox[{"\[Integral]", 14359 RowBox[{"u", " ", 14360 RowBox[{"Cos", "[", 14361 RowBox[{"2", " ", "v"}], "]"}], 14362 RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle", 14363 CellDingbat->None, 14364 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 14365 3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, { 14366 3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 14367 3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 14368 3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 14369 3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 14370 3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, { 14371 3.49781786362168*^9, 3.4978178842317085`*^9}, {3.4978200683047667`*^9, 14372 3.4978200791447816`*^9}}, 14373 TextAlignment->Center, 14374 FontSize->12, 14375 FontWeight->"Bold"], 14376 14377Cell["Program code:", "Subsubsection", 14378 CellDingbat->"\[FilledSmallSquare]", 14379 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, { 14380 3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 14381 3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 14382 3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, { 14383 3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 14384 3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 14385 3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 14386 3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, { 14387 3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 14388 3.492805165713872*^9}}], 14389 14390Cell[BoxData[ 14391 RowBox[{"(*", " ", 14392 RowBox[{ 14393 RowBox[{"Int", "[", 14394 RowBox[{ 14395 RowBox[{"u_", "*", 14396 RowBox[{ 14397 RowBox[{"Sin", "[", "v_", "]"}], "^", "2"}]}], ",", "x_Symbol"}], 14398 "]"}], " ", ":=", "\n", " ", 14399 RowBox[{ 14400 RowBox[{ 14401 RowBox[{"Dist", "[", 14402 RowBox[{ 14403 RowBox[{"1", "/", "2"}], ",", 14404 RowBox[{"Int", "[", 14405 RowBox[{"u", ",", "x"}], "]"}]}], "]"}], " ", "-", " ", "\n", " ", 14406 RowBox[{"Dist", "[", 14407 RowBox[{ 14408 RowBox[{"1", "/", "2"}], ",", 14409 RowBox[{"Int", "[", 14410 RowBox[{ 14411 RowBox[{"u", "*", 14412 RowBox[{"Cos", "[", 14413 RowBox[{"2", "*", "v"}], "]"}]}], ",", "x"}], "]"}]}], "]"}]}], 14414 " ", "/;", "\n", 14415 RowBox[{"FunctionOfTrigQ", "[", 14416 RowBox[{"u", ",", 14417 RowBox[{"2", "*", "v"}], ",", "x"}], "]"}]}]}], " ", "*)"}]], "Code", 14418 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 14419 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 14420 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 14421 3.497816883330307*^9, 3.497817840791648*^9, 3.497819954544607*^9, { 14422 3.500077639438492*^9, 3.5000776443384986`*^9}}, 14423 Background->GrayLevel[0.85]], 14424 14425Cell[BoxData[ 14426 RowBox[{"(*", " ", 14427 RowBox[{ 14428 RowBox[{"Int", "[", 14429 RowBox[{ 14430 RowBox[{"u_", "*", 14431 RowBox[{ 14432 RowBox[{"Cos", "[", "v_", "]"}], "^", "2"}]}], ",", "x_Symbol"}], 14433 "]"}], " ", ":=", "\n", " ", 14434 RowBox[{ 14435 RowBox[{ 14436 RowBox[{"Dist", "[", 14437 RowBox[{ 14438 RowBox[{"1", "/", "2"}], ",", 14439 RowBox[{"Int", "[", 14440 RowBox[{"u", ",", "x"}], "]"}]}], "]"}], " ", "+", " ", "\n", " ", 14441 RowBox[{"Dist", "[", 14442 RowBox[{ 14443 RowBox[{"1", "/", "2"}], ",", 14444 RowBox[{"Int", "[", 14445 RowBox[{ 14446 RowBox[{"u", "*", 14447 RowBox[{"Cos", "[", 14448 RowBox[{"2", "*", "v"}], "]"}]}], ",", "x"}], "]"}]}], "]"}]}], 14449 " ", "/;", "\n", 14450 RowBox[{"FunctionOfTrigQ", "[", 14451 RowBox[{"u", ",", 14452 RowBox[{"2", "*", "v"}], ",", "x"}], "]"}]}]}], " ", "*)"}]], "Code", 14453 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, { 14454 3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 14455 3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 14456 3.497816883330307*^9, 3.497817840791648*^9, 3.497819954544607*^9, { 14457 3.4979216151821833`*^9, 3.4979216453682365`*^9}, 3.4979859877957735`*^9, { 14458 3.500077969128953*^9, 3.500077973058959*^9}}, 14459 Background->GrayLevel[0.85]], 14460 14461Cell["", "PageBreak", 14462 PageBreakBelow->True] 14463}, Closed]] 14464}, 14465AutoGeneratedPackage->Automatic, 14466CellGrouping->Manual, 14467WindowSize->{1912, 961}, 14468WindowMargins->{{0, Automatic}, {Automatic, 0}}, 14469PrintingCopies->1, 14470PrintingPageRange->{Automatic, Automatic}, 14471PageHeaders->{{ 14472 Cell[ 14473 TextData[{ 14474 Cell[ 14475 TextData[{ 14476 CounterBox["Page"]}], "PageNumber"], " ", 14477 Cell[ 14478 " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, CellFrameMargins -> 4], 14479 Cell[ 14480 TextData[{ 14481 ValueBox["FileName"]}], "Header"]}], 14482 CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, { 14483 "Integration Rules for Sine Functions", None, None}}, 14484PrintingOptions->{"FacingPages"->False, 14485"FirstPageHeader"->True, 14486"PrintCellBrackets"->False, 14487"PrintMultipleHorizontalPages"->False, 14488"PrintRegistrationMarks"->False, 14489"PrintingMargins"->28.8}, 14490Magnification->1.399999976158142, 14491FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", 14492StyleDefinitions->"Default.nb" 14493] 14494(* End of Notebook Content *) 14495 14496(* Internal cache information *) 14497(*CellTagsOutline 14498CellTagsIndex->{} 14499*) 14500(*CellTagsIndex 14501CellTagsIndex->{} 14502*) 14503(*NotebookFileOutline 14504Notebook[{ 14505Cell[CellGroupData[{ 14506Cell[567, 22, 1376, 29, 118, "Title"], 14507Cell[1946, 53, 349, 5, 5200, "Subsubsection"], 14508Cell[2298, 60, 955, 28, 6150, "Subsubsection"], 14509Cell[3256, 90, 1378, 28, 3830, "Subsubsection"], 14510Cell[4637, 120, 1597, 42, 9249, "Subsubtitle"], 14511Cell[6237, 164, 771, 11, 5200, "Subsubsection"], 14512Cell[7011, 177, 1902, 55, 15903, "Code"], 14513Cell[8916, 234, 89, 2, 5200, "Subsubsection"], 14514Cell[9008, 238, 422, 7, 3564, "Subsubsection"], 14515Cell[9433, 247, 1007, 29, 6150, "Subsubsection"], 14516Cell[10443, 278, 1047, 31, 8096, "Subsubsection"], 14517Cell[11493, 311, 1375, 28, 5797, "Subsubsection"], 14518Cell[12871, 341, 2605, 67, 13648, "Subsubtitle"], 14519Cell[15479, 410, 771, 11, 5200, "Subsubsection"], 14520Cell[16253, 423, 2747, 80, 19822, "Code"], 14521Cell[19003, 505, 89, 2, 5200, "Subsubsection"], 14522Cell[19095, 509, 401, 6, 3564, "Subsubsection"], 14523Cell[19499, 517, 1319, 40, 6348, "Subsubsection"], 14524Cell[20821, 559, 1200, 22, 3830, "Subsubsection"], 14525Cell[22024, 583, 2632, 68, 9641, "Subsubtitle"], 14526Cell[24659, 653, 771, 11, 5200, "Subsubsection"], 14527Cell[25433, 666, 2492, 73, 19822, "Code"], 14528Cell[27928, 741, 89, 2, 5200, "Subsubsection"], 14529Cell[28020, 745, 401, 6, 3564, "Subsubsection"], 14530Cell[28424, 753, 1091, 26, 6964, "Subsubsection"], 14531Cell[29518, 781, 1441, 27, 5200, "Subsubsection"], 14532Cell[30962, 810, 2654, 61, 10337, "Subsubtitle"], 14533Cell[33619, 873, 771, 11, 5200, "Subsubsection"], 14534Cell[34393, 886, 2670, 72, 15903, "Code"], 14535Cell[37066, 960, 44, 1, 377, "PageBreak", 14536 PageBreakBelow->True] 14537}, Closed]], 14538Cell[CellGroupData[{ 14539Cell[37147, 966, 1400, 29, 80, "Title"], 14540Cell[38550, 997, 349, 5, 5200, "Subsubsection"], 14541Cell[38902, 1004, 1131, 32, 5935, "Subsubsection"], 14542Cell[40036, 1038, 469, 9, 3564, "Subsubsection"], 14543Cell[40508, 1049, 1382, 28, 3830, "Subsubsection"], 14544Cell[41893, 1079, 1775, 46, 9099, "Subsubtitle"], 14545Cell[43671, 1127, 771, 11, 5200, "Subsubsection"], 14546Cell[44445, 1140, 2097, 58, 15903, "Code"], 14547Cell[46545, 1200, 89, 2, 5200, "Subsubsection"], 14548Cell[46637, 1204, 349, 5, 3564, "Subsubsection"], 14549Cell[46989, 1211, 749, 18, 5935, "Subsubsection"], 14550Cell[47741, 1231, 1378, 26, 3830, "Subsubsection"], 14551Cell[49122, 1259, 1573, 40, 9099, "Subsubtitle"], 14552Cell[50698, 1301, 771, 11, 5200, "Subsubsection"], 14553Cell[51472, 1314, 1777, 50, 15903, "Code"], 14554Cell[53252, 1366, 89, 2, 5200, "Subsubsection"], 14555Cell[53344, 1370, 349, 5, 3564, "Subsubsection"], 14556Cell[53696, 1377, 799, 18, 5935, "Subsubsection"], 14557Cell[54498, 1397, 1406, 27, 3830, "Subsubsection"], 14558Cell[55907, 1426, 1597, 40, 9099, "Subsubtitle"], 14559Cell[57507, 1468, 771, 11, 5200, "Subsubsection"], 14560Cell[58281, 1481, 1801, 50, 15903, "Code"], 14561Cell[60085, 1533, 89, 2, 5200, "Subsubsection"], 14562Cell[60177, 1537, 422, 7, 3564, "Subsubsection"], 14563Cell[60602, 1546, 1158, 31, 5935, "Subsubsection"], 14564Cell[61763, 1579, 1197, 33, 7799, "Subsubsection"], 14565Cell[62963, 1614, 469, 9, 3564, "Subsubsection"], 14566Cell[63435, 1625, 1375, 28, 5797, "Subsubsection"], 14567Cell[64813, 1655, 2883, 74, 13497, "Subsubtitle"], 14568Cell[67699, 1731, 771, 11, 5200, "Subsubsection"], 14569Cell[68473, 1744, 3051, 85, 19822, "Code"], 14570Cell[71527, 1831, 89, 2, 5200, "Subsubsection"], 14571Cell[71619, 1835, 349, 5, 3564, "Subsubsection"], 14572Cell[71971, 1842, 749, 18, 5935, "Subsubsection"], 14573Cell[72723, 1862, 849, 21, 7505, "Subsubsection"], 14574Cell[73575, 1885, 1426, 27, 5797, "Subsubsection"], 14575Cell[75004, 1914, 2034, 55, 13497, "Subsubtitle"], 14576Cell[77041, 1971, 771, 11, 5200, "Subsubsection"], 14577Cell[77815, 1984, 2326, 67, 15903, "Code"], 14578Cell[80144, 2053, 89, 2, 5200, "Subsubsection"], 14579Cell[80236, 2057, 349, 5, 3564, "Subsubsection"], 14580Cell[80588, 2064, 773, 18, 5935, "Subsubsection"], 14581Cell[81364, 2084, 873, 21, 7505, "Subsubsection"], 14582Cell[82240, 2107, 1480, 28, 5797, "Subsubsection"], 14583Cell[83723, 2137, 2058, 55, 13497, "Subsubtitle"], 14584Cell[85784, 2194, 771, 11, 5200, "Subsubsection"], 14585Cell[86558, 2207, 2350, 68, 15903, "Code"], 14586Cell[88911, 2277, 89, 2, 5200, "Subsubsection"], 14587Cell[89003, 2281, 401, 6, 3564, "Subsubsection"], 14588Cell[89407, 2289, 1319, 40, 6348, "Subsubsection"], 14589Cell[90729, 2331, 1200, 22, 3830, "Subsubsection"], 14590Cell[91932, 2355, 2682, 68, 9641, "Subsubtitle"], 14591Cell[94617, 2425, 771, 11, 5200, "Subsubsection"], 14592Cell[95391, 2438, 2570, 74, 19822, "Code"], 14593Cell[97964, 2514, 89, 2, 5200, "Subsubsection"], 14594Cell[98056, 2518, 401, 6, 3564, "Subsubsection"], 14595Cell[98460, 2526, 1133, 27, 6964, "Subsubsection"], 14596Cell[99596, 2555, 1499, 28, 5200, "Subsubsection"], 14597Cell[101098, 2585, 2638, 61, 10337, "Subsubtitle"], 14598Cell[103739, 2648, 771, 11, 5200, "Subsubsection"], 14599Cell[104513, 2661, 2726, 73, 15903, "Code"], 14600Cell[107242, 2736, 44, 1, 377, "PageBreak", 14601 PageBreakBelow->True] 14602}, Closed]], 14603Cell[CellGroupData[{ 14604Cell[107323, 2742, 1459, 30, 80, "Title"], 14605Cell[108785, 2774, 380, 5, 93, "Subsubsection"], 14606Cell[109168, 2781, 599, 17, 99, "Subsubsection"], 14607Cell[109770, 2800, 542, 9, 65, "Subsubsection"], 14608Cell[110315, 2811, 1500, 27, 69, "Subsubsection"], 14609Cell[111818, 2840, 2006, 45, 159, "Subsubtitle"], 14610Cell[113827, 2887, 771, 11, 93, "Subsubsection"], 14611Cell[114601, 2900, 2066, 52, 282, "Code"], 14612Cell[116670, 2954, 2111, 52, 310, "Code"], 14613Cell[118784, 3008, 89, 2, 93, "Subsubsection"], 14614Cell[118876, 3012, 349, 5, 65, "Subsubsection"], 14615Cell[119228, 3019, 599, 17, 99, "Subsubsection"], 14616Cell[119830, 3038, 542, 9, 65, "Subsubsection"], 14617Cell[120375, 3049, 1196, 22, 69, "Subsubsection"], 14618Cell[121574, 3073, 1604, 41, 159, "Subsubtitle"], 14619Cell[123181, 3116, 771, 11, 93, "Subsubsection"], 14620Cell[123955, 3129, 2308, 63, 282, "Code"], 14621Cell[126266, 3194, 2391, 63, 310, "Code"], 14622Cell[128660, 3259, 44, 1, 8, "PageBreak", 14623 PageBreakBelow->True] 14624}, Closed]], 14625Cell[CellGroupData[{ 14626Cell[128741, 3265, 1132, 23, 80, "Title"], 14627Cell[129876, 3290, 194, 3, 5200, "Subsubsection"], 14628Cell[130073, 3295, 497, 15, 6348, "Subsubsection"], 14629Cell[130573, 3312, 763, 11, 3564, "Subsubsection"], 14630Cell[131339, 3325, 1023, 28, 20239, "Subsubtitle"], 14631Cell[132365, 3355, 771, 11, 5200, "Subsubsection"], 14632Cell[133139, 3368, 952, 27, 15903, "Code"], 14633Cell[134094, 3397, 1002, 28, 17494, "Code"], 14634Cell[135099, 3427, 89, 2, 5200, "Subsubsection"], 14635Cell[135191, 3431, 223, 3, 3564, "Subsubsection"], 14636Cell[135417, 3436, 572, 17, 3830, "Subsubsection"], 14637Cell[135992, 3455, 815, 11, 3564, "Subsubsection"], 14638Cell[136810, 3468, 1756, 41, 8096, "Subsubtitle"], 14639Cell[138569, 3511, 771, 11, 5200, "Subsubsection"], 14640Cell[139343, 3524, 1240, 37, 19822, "Code"], 14641Cell[140586, 3563, 1316, 38, 21398, "Code"], 14642Cell[141905, 3603, 89, 2, 5200, "Subsubsection"], 14643Cell[141997, 3607, 223, 3, 3564, "Subsubsection"], 14644Cell[142223, 3612, 712, 19, 5539, "Subsubsection"], 14645Cell[142938, 3633, 1096, 22, 3830, "Subsubsection"], 14646Cell[144037, 3657, 2033, 46, 9099, "Subsubtitle"], 14647Cell[146073, 3705, 771, 11, 5200, "Subsubsection"], 14648Cell[146847, 3718, 1617, 48, 19822, "Code"], 14649Cell[148467, 3768, 766, 21, 6984, "Subsubsection"], 14650Cell[149236, 3791, 1666, 49, 19822, "Code"], 14651Cell[150905, 3842, 89, 2, 5200, "Subsubsection"], 14652Cell[150997, 3846, 250, 4, 3564, "Subsubsection"], 14653Cell[151250, 3852, 443, 8, 3564, "Subsubsection"], 14654Cell[151696, 3862, 1091, 20, 3830, "Subsubsection"], 14655Cell[152790, 3884, 1778, 40, 8096, "Subsubtitle"], 14656Cell[154571, 3926, 771, 11, 5200, "Subsubsection"], 14657Cell[155345, 3939, 1384, 40, 19822, "Code"], 14658Cell[156732, 3981, 1465, 41, 21398, "Code"], 14659Cell[158200, 4024, 44, 1, 377, "PageBreak", 14660 PageBreakBelow->True] 14661}, Closed]], 14662Cell[CellGroupData[{ 14663Cell[158281, 4030, 1192, 25, 80, "Title"], 14664Cell[159476, 4057, 194, 3, 5200, "Subsubsection"], 14665Cell[159673, 4062, 464, 13, 5539, "Subsubsection"], 14666Cell[160140, 4077, 763, 11, 3564, "Subsubsection"], 14667Cell[160906, 4090, 1036, 24, 9777, "Subsubtitle"], 14668Cell[161945, 4116, 771, 11, 5200, "Subsubsection"], 14669Cell[162719, 4129, 838, 22, 15903, "Code"], 14670Cell[163560, 4153, 966, 24, 17494, "Code"], 14671Cell[164529, 4179, 89, 2, 5200, "Subsubsection"], 14672Cell[164621, 4183, 223, 3, 3564, "Subsubsection"], 14673Cell[164847, 4188, 572, 17, 3830, "Subsubsection"], 14674Cell[165422, 4207, 815, 11, 3564, "Subsubsection"], 14675Cell[166240, 4220, 1914, 45, 9777, "Subsubtitle"], 14676Cell[168157, 4267, 771, 11, 5200, "Subsubsection"], 14677Cell[168931, 4280, 1402, 41, 19822, "Code"], 14678Cell[170336, 4323, 1478, 42, 21398, "Code"], 14679Cell[171817, 4367, 89, 2, 5200, "Subsubsection"], 14680Cell[171909, 4371, 249, 4, 3564, "Subsubsection"], 14681Cell[172161, 4377, 250, 4, 3564, "Subsubsection"], 14682Cell[172414, 4383, 889, 27, 6964, "Subsubsection"], 14683Cell[173306, 4412, 1113, 20, 3830, "Subsubsection"], 14684Cell[174422, 4434, 2124, 51, 10067, "Subsubtitle"], 14685Cell[176549, 4487, 771, 11, 5200, "Subsubsection"], 14686Cell[177323, 4500, 1922, 56, 19822, "Code"], 14687Cell[179248, 4558, 273, 4, 5200, "Subsubsection"], 14688Cell[179524, 4564, 1971, 56, 19822, "Code"], 14689Cell[181498, 4622, 89, 2, 5200, "Subsubsection"], 14690Cell[181590, 4626, 273, 4, 3564, "Subsubsection"], 14691Cell[181866, 4632, 372, 5, 3564, "Subsubsection"], 14692Cell[182241, 4639, 1622, 35, 3830, "Subsubsection"], 14693Cell[183866, 4676, 2091, 50, 10067, "Subsubtitle"], 14694Cell[185960, 4728, 771, 11, 5200, "Subsubsection"], 14695Cell[186734, 4741, 2315, 68, 19822, "Code"], 14696Cell[189052, 4811, 295, 4, 5200, "Subsubsection"], 14697Cell[189350, 4817, 2389, 69, 19822, "Code"], 14698Cell[191742, 4888, 89, 2, 5200, "Subsubsection"], 14699Cell[191834, 4892, 295, 4, 3564, "Subsubsection"], 14700Cell[192132, 4898, 784, 20, 5539, "Subsubsection"], 14701Cell[192919, 4920, 1594, 33, 3830, "Subsubsection"], 14702Cell[194516, 4955, 2239, 51, 9099, "Subsubtitle"], 14703Cell[196758, 5008, 771, 11, 5200, "Subsubsection"], 14704Cell[197532, 5021, 2201, 62, 23664, "Code"], 14705Cell[199736, 5085, 832, 22, 6984, "Subsubsection"], 14706Cell[200571, 5109, 2270, 63, 23664, "Code"], 14707Cell[202844, 5174, 44, 1, 377, "PageBreak", 14708 PageBreakBelow->True] 14709}, Closed]], 14710Cell[CellGroupData[{ 14711Cell[202925, 5180, 1243, 26, 80, "Title"], 14712Cell[204171, 5208, 224, 3, 5200, "Subsubsection"], 14713Cell[204398, 5213, 1198, 24, 3830, "Subsubsection"], 14714Cell[205599, 5239, 2031, 55, 10506, "Subsubtitle"], 14715Cell[207633, 5296, 771, 11, 5200, "Subsubsection"], 14716Cell[208407, 5309, 2309, 67, 19822, "Code"], 14717Cell[210719, 5378, 2383, 68, 21398, "Code"], 14718Cell[213105, 5448, 89, 2, 5200, "Subsubsection"], 14719Cell[213197, 5452, 559, 14, 3830, "Subsubsection"], 14720Cell[213759, 5468, 1215, 23, 3830, "Subsubsection"], 14721Cell[214977, 5493, 2689, 68, 10599, "Subsubtitle"], 14722Cell[217669, 5563, 771, 11, 5200, "Subsubsection"], 14723Cell[218443, 5576, 2592, 76, 23664, "Code"], 14724Cell[221038, 5654, 577, 12, 5361, "Subsubsection"], 14725Cell[221618, 5668, 2664, 77, 23664, "Code"], 14726Cell[224285, 5747, 89, 2, 5200, "Subsubsection"], 14727Cell[224377, 5751, 262, 4, 3564, "Subsubsection"], 14728Cell[224642, 5757, 1331, 26, 3830, "Subsubsection"], 14729Cell[225976, 5785, 3688, 99, 19970, "Subsubtitle"], 14730Cell[229667, 5886, 771, 11, 5200, "Subsubsection"], 14731Cell[230441, 5899, 3759, 112, 27621, "Code"], 14732Cell[234203, 6013, 311, 5, 5200, "Subsubsection"], 14733Cell[234517, 6020, 3835, 113, 27621, "Code"], 14734Cell[238355, 6135, 89, 2, 5200, "Subsubsection"], 14735Cell[238447, 6139, 633, 15, 3830, "Subsubsection"], 14736Cell[239083, 6156, 1430, 28, 3830, "Subsubsection"], 14737Cell[240516, 6186, 3117, 80, 18422, "Subsubtitle"], 14738Cell[243636, 6268, 771, 11, 5200, "Subsubsection"], 14739Cell[244410, 6281, 3025, 91, 23664, "Code"], 14740Cell[247438, 6374, 651, 13, 5361, "Subsubsection"], 14741Cell[248092, 6389, 3121, 93, 23664, "Code"], 14742Cell[251216, 6484, 89, 2, 5200, "Subsubsection"], 14743Cell[251308, 6488, 337, 5, 3564, "Subsubsection"], 14744Cell[251648, 6495, 1540, 31, 3830, "Subsubsection"], 14745Cell[253191, 6528, 3981, 110, 19970, "Subsubtitle"], 14746Cell[257175, 6640, 771, 11, 5200, "Subsubsection"], 14747Cell[257949, 6653, 4391, 130, 27621, "Code"], 14748Cell[262343, 6785, 390, 6, 5200, "Subsubsection"], 14749Cell[262736, 6793, 4493, 132, 27621, "Code"], 14750Cell[267232, 6927, 89, 2, 5200, "Subsubsection"], 14751Cell[267324, 6931, 361, 5, 3564, "Subsubsection"], 14752Cell[267688, 6938, 1584, 30, 3830, "Subsubsection"], 14753Cell[269275, 6970, 3950, 108, 20259, "Subsubtitle"], 14754Cell[273228, 7080, 771, 11, 5200, "Subsubsection"], 14755Cell[274002, 7093, 4238, 125, 27621, "Code"], 14756Cell[278243, 7220, 413, 6, 5200, "Subsubsection"], 14757Cell[278659, 7228, 4314, 126, 27621, "Code"], 14758Cell[282976, 7356, 89, 2, 5200, "Subsubsection"], 14759Cell[283068, 7360, 395, 6, 3564, "Subsubsection"], 14760Cell[283466, 7368, 784, 20, 5539, "Subsubsection"], 14761Cell[284253, 7390, 456, 6, 3564, "Subsubsection"], 14762Cell[284712, 7398, 1582, 28, 3830, "Subsubsection"], 14763Cell[286297, 7428, 2373, 52, 9099, "Subsubtitle"], 14764Cell[288673, 7482, 771, 11, 5200, "Subsubsection"], 14765Cell[289447, 7495, 2402, 64, 15903, "Code"], 14766Cell[291852, 7561, 44, 1, 377, "PageBreak", 14767 PageBreakBelow->True] 14768}, Closed]], 14769Cell[CellGroupData[{ 14770Cell[291933, 7567, 1357, 29, 80, "Title"], 14771Cell[293293, 7598, 312, 4, 5200, "Subsubsection"], 14772Cell[293608, 7604, 1206, 21, 3830, "Subsubsection"], 14773Cell[294817, 7627, 1857, 47, 8926, "Subsubtitle"], 14774Cell[296677, 7676, 771, 11, 5200, "Subsubsection"], 14775Cell[297451, 7689, 1914, 53, 15903, "Code"], 14776Cell[299368, 7744, 1992, 54, 17494, "Code"], 14777Cell[301363, 7800, 44, 1, 377, "PageBreak", 14778 PageBreakBelow->True] 14779}, Closed]], 14780Cell[CellGroupData[{ 14781Cell[301444, 7806, 1194, 25, 80, "Title"], 14782Cell[302641, 7833, 256, 4, 5200, "Subsubsection"], 14783Cell[302900, 7839, 759, 25, 6500, "Subsubsection"], 14784Cell[303662, 7866, 968, 19, 3830, "Subsubsection"], 14785Cell[304633, 7887, 1216, 30, 9749, "Subsubtitle"], 14786Cell[305852, 7919, 771, 11, 5200, "Subsubsection"], 14787Cell[306626, 7932, 1192, 36, 15903, "Code"], 14788Cell[307821, 7970, 1262, 37, 17494, "Code"], 14789Cell[309086, 8009, 89, 2, 5200, "Subsubsection"], 14790Cell[309178, 8013, 223, 3, 3564, "Subsubsection"], 14791Cell[309404, 8018, 807, 25, 6500, "Subsubsection"], 14792Cell[310214, 8045, 624, 18, 3830, "Subsubsection"], 14793Cell[310841, 8065, 1030, 20, 3830, "Subsubsection"], 14794Cell[311874, 8087, 2398, 60, 9749, "Subsubtitle"], 14795Cell[314275, 8149, 771, 11, 5200, "Subsubsection"], 14796Cell[315049, 8162, 2162, 66, 19822, "Code"], 14797Cell[317214, 8230, 2238, 67, 21398, "Code"], 14798Cell[319455, 8299, 44, 1, 377, "PageBreak", 14799 PageBreakBelow->True] 14800}, Closed]], 14801Cell[CellGroupData[{ 14802Cell[319536, 8305, 1331, 29, 80, "Title"], 14803Cell[320870, 8336, 1016, 20, 5361, "Subsubsection"], 14804Cell[321889, 8358, 1303, 33, 10067, "Subsubtitle"], 14805Cell[323195, 8393, 771, 11, 5200, "Subsubsection"], 14806Cell[323969, 8406, 1324, 39, 15903, "Code"], 14807Cell[325296, 8447, 1378, 39, 17494, "Code"], 14808Cell[326677, 8488, 89, 2, 5200, "Subsubsection"], 14809Cell[326769, 8492, 1074, 21, 3830, "Subsubsection"], 14810Cell[327846, 8515, 2204, 54, 10067, "Subsubtitle"], 14811Cell[330053, 8571, 771, 11, 5200, "Subsubsection"], 14812Cell[330827, 8584, 1951, 58, 19822, "Code"], 14813Cell[332781, 8644, 2004, 58, 21398, "Code"], 14814Cell[334788, 8704, 89, 2, 5200, "Subsubsection"], 14815Cell[334880, 8708, 1203, 24, 3830, "Subsubsection"], 14816Cell[336086, 8734, 2829, 70, 17833, "Subsubtitle"], 14817Cell[338918, 8806, 771, 11, 5200, "Subsubsection"], 14818Cell[339692, 8819, 2500, 74, 19822, "Code"], 14819Cell[342195, 8895, 2551, 74, 21398, "Code"], 14820Cell[344749, 8971, 89, 2, 5200, "Subsubsection"], 14821Cell[344841, 8975, 1260, 24, 3830, "Subsubsection"], 14822Cell[346104, 9001, 3319, 88, 19430, "Subsubtitle"], 14823Cell[349426, 9091, 771, 11, 5200, "Subsubsection"], 14824Cell[350200, 9104, 3291, 99, 23664, "Code"], 14825Cell[353494, 9205, 3343, 99, 25241, "Code"], 14826Cell[356840, 9306, 89, 2, 5200, "Subsubsection"], 14827Cell[356932, 9310, 1272, 25, 3830, "Subsubsection"], 14828Cell[358207, 9337, 2945, 73, 18297, "Subsubtitle"], 14829Cell[361155, 9412, 771, 11, 5200, "Subsubsection"], 14830Cell[361929, 9425, 2577, 77, 19822, "Code"], 14831Cell[364509, 9504, 2661, 79, 21398, "Code"], 14832Cell[367173, 9585, 89, 2, 5200, "Subsubsection"], 14833Cell[367265, 9589, 1330, 26, 3830, "Subsubsection"], 14834Cell[368598, 9617, 3512, 94, 19451, "Subsubtitle"], 14835Cell[372113, 9713, 771, 11, 5200, "Subsubsection"], 14836Cell[372887, 9726, 3472, 104, 23664, "Code"], 14837Cell[376362, 9832, 3556, 106, 25241, "Code"], 14838Cell[379921, 9940, 44, 1, 377, "PageBreak", 14839 PageBreakBelow->True] 14840}, Closed]], 14841Cell[CellGroupData[{ 14842Cell[380002, 9946, 1277, 27, 80, "Title"], 14843Cell[381282, 9975, 1048, 21, 5361, "Subsubsection"], 14844Cell[382333, 9998, 1731, 47, 10190, "Subsubtitle"], 14845Cell[384067, 10047, 771, 11, 5200, "Subsubsection"], 14846Cell[384841, 10060, 1805, 54, 19822, "Code"], 14847Cell[386649, 10116, 1877, 55, 21398, "Code"], 14848Cell[388529, 10173, 89, 2, 5200, "Subsubsection"], 14849Cell[388621, 10177, 1207, 25, 5200, "Subsubsection"], 14850Cell[389831, 10204, 3550, 92, 21274, "Subsubtitle"], 14851Cell[393384, 10298, 771, 11, 5200, "Subsubsection"], 14852Cell[394158, 10311, 3291, 97, 23664, "Code"], 14853Cell[397452, 10410, 3366, 98, 25241, "Code"], 14854Cell[400821, 10510, 89, 2, 5200, "Subsubsection"], 14855Cell[400913, 10514, 1567, 32, 5200, "Subsubsection"], 14856Cell[402483, 10548, 2772, 68, 10599, "Subsubtitle"], 14857Cell[405258, 10618, 771, 11, 5200, "Subsubsection"], 14858Cell[406032, 10631, 2897, 81, 19822, "Code"], 14859Cell[408932, 10714, 2966, 82, 21398, "Code"], 14860Cell[411901, 10798, 89, 2, 5200, "Subsubsection"], 14861Cell[411993, 10802, 1465, 31, 5200, "Subsubsection"], 14862Cell[413461, 10835, 3585, 95, 21067, "Subsubtitle"], 14863Cell[417049, 10932, 771, 11, 5200, "Subsubsection"], 14864Cell[417823, 10945, 3765, 111, 23664, "Code"], 14865Cell[421591, 11058, 3834, 112, 25241, "Code"], 14866Cell[425428, 11172, 44, 1, 377, "PageBreak", 14867 PageBreakBelow->True] 14868}, Closed]], 14869Cell[CellGroupData[{ 14870Cell[425509, 11178, 1331, 28, 80, "Title"], 14871Cell[426843, 11208, 1288, 29, 6715, "Subsubsection"], 14872Cell[428134, 11239, 2161, 61, 10506, "Subsubtitle"], 14873Cell[430298, 11302, 771, 11, 5200, "Subsubsection"], 14874Cell[431072, 11315, 2481, 77, 19822, "Code"], 14875Cell[433556, 11394, 2559, 78, 21398, "Code"], 14876Cell[436118, 11474, 89, 2, 5200, "Subsubsection"], 14877Cell[436210, 11478, 1425, 31, 5200, "Subsubsection"], 14878Cell[437638, 11511, 4122, 110, 21274, "Subsubtitle"], 14879Cell[441763, 11623, 771, 11, 5200, "Subsubsection"], 14880Cell[442537, 11636, 4161, 126, 23664, "Code"], 14881Cell[446701, 11764, 4284, 127, 25241, "Code"], 14882Cell[450988, 11893, 89, 2, 5200, "Subsubsection"], 14883Cell[451080, 11897, 1286, 25, 3830, "Subsubsection"], 14884Cell[452369, 11924, 4029, 108, 21067, "Subsubtitle"], 14885Cell[456401, 12034, 771, 11, 5200, "Subsubsection"], 14886Cell[457175, 12047, 4042, 120, 23664, "Code"], 14887Cell[461220, 12169, 4135, 122, 25241, "Code"], 14888Cell[465358, 12293, 44, 1, 377, "PageBreak", 14889 PageBreakBelow->True] 14890}, Closed]], 14891Cell[CellGroupData[{ 14892Cell[465439, 12299, 1423, 30, 80, "Title"], 14893Cell[466865, 12331, 1035, 18, 5361, "Subsubsection"], 14894Cell[467903, 12351, 1804, 47, 9777, "Subsubtitle"], 14895Cell[469710, 12400, 771, 11, 5200, "Subsubsection"], 14896Cell[470484, 12413, 1799, 52, 19822, "Code"], 14897Cell[472286, 12467, 1847, 52, 21398, "Code"], 14898Cell[474136, 12521, 89, 2, 5200, "Subsubsection"], 14899Cell[474228, 12525, 1087, 19, 3830, "Subsubsection"], 14900Cell[475318, 12546, 3117, 78, 20239, "Subsubtitle"], 14901Cell[478438, 12626, 771, 11, 5200, "Subsubsection"], 14902Cell[479212, 12639, 2794, 81, 23664, "Code"], 14903Cell[482009, 12722, 2840, 81, 25241, "Code"], 14904Cell[484852, 12805, 44, 1, 377, "PageBreak", 14905 PageBreakBelow->True] 14906}, Closed]], 14907Cell[CellGroupData[{ 14908Cell[484933, 12811, 1477, 31, 80, "Title"], 14909Cell[486413, 12844, 1184, 22, 5361, "Subsubsection"], 14910Cell[487600, 12868, 2109, 55, 10067, "Subsubtitle"], 14911Cell[489712, 12925, 771, 11, 5200, "Subsubsection"], 14912Cell[490486, 12938, 2335, 65, 19822, "Code"], 14913Cell[492824, 13005, 2384, 65, 21398, "Code"], 14914Cell[495211, 13072, 89, 2, 5200, "Subsubsection"], 14915Cell[495303, 13076, 1195, 22, 3830, "Subsubsection"], 14916Cell[496501, 13100, 2822, 75, 18709, "Subsubtitle"], 14917Cell[499326, 13177, 771, 11, 5200, "Subsubsection"], 14918Cell[500100, 13190, 3131, 89, 23664, "Code"], 14919Cell[503234, 13281, 3206, 89, 25241, "Code"], 14920Cell[506443, 13372, 44, 1, 377, "PageBreak", 14921 PageBreakBelow->True] 14922}, Closed]], 14923Cell[CellGroupData[{ 14924Cell[506524, 13378, 1643, 30, 80, "Title"], 14925Cell[508170, 13410, 273, 4, 67, "Subsubsection"], 14926Cell[508446, 13416, 599, 17, 71, "Subsubsection"], 14927Cell[509048, 13435, 1630, 28, 71, "Subsubsection"], 14928Cell[510681, 13465, 1846, 49, 116, "Subsubtitle"], 14929Cell[512530, 13516, 771, 11, 67, "Subsubsection"], 14930Cell[513304, 13529, 2314, 63, 251, "Code"], 14931Cell[515621, 13594, 89, 2, 67, "Subsubsection"], 14932Cell[515713, 13598, 273, 4, 47, "Subsubsection"], 14933Cell[515989, 13604, 653, 18, 71, "Subsubsection"], 14934Cell[516645, 13624, 1630, 28, 71, "Subsubsection"], 14935Cell[518278, 13654, 1922, 50, 116, "Subsubtitle"], 14936Cell[520203, 13706, 771, 11, 67, "Subsubsection"], 14937Cell[520977, 13719, 2388, 64, 251, "Code"], 14938Cell[523368, 13785, 89, 2, 67, "Subsubsection"], 14939Cell[523460, 13789, 430, 6, 47, "Subsubsection"], 14940Cell[523893, 13797, 616, 15, 50, "Subsubsection"], 14941Cell[524512, 13814, 1713, 33, 71, "Subsubsection"], 14942Cell[526228, 13849, 2424, 49, 114, "Subsubtitle"], 14943Cell[528655, 13900, 771, 11, 67, "Subsubsection"], 14944Cell[529429, 13913, 2342, 57, 202, "Code"], 14945Cell[531774, 13972, 89, 2, 67, "Subsubsection"], 14946Cell[531866, 13976, 523, 9, 47, "Subsubsection"], 14947Cell[532392, 13987, 616, 15, 50, "Subsubsection"], 14948Cell[533011, 14004, 3282, 64, 99, "Subsubsection"], 14949Cell[536296, 14070, 1713, 33, 71, "Subsubsection"], 14950Cell[538012, 14105, 2966, 67, 158, "Subsubtitle"], 14951Cell[540981, 14174, 771, 11, 67, "Subsubsection"], 14952Cell[541755, 14187, 3133, 77, 202, "Code"], 14953Cell[544891, 14266, 44, 1, 6, "PageBreak", 14954 PageBreakBelow->True] 14955}, Closed]], 14956Cell[CellGroupData[{ 14957Cell[544972, 14272, 1161, 22, 80, "Title"], 14958Cell[546136, 14296, 273, 4, 5200, "Subsubsection"], 14959Cell[546412, 14302, 599, 17, 5539, "Subsubsection"], 14960Cell[547014, 14321, 1048, 20, 3830, "Subsubsection"], 14961Cell[548065, 14343, 1263, 31, 8926, "Subsubtitle"], 14962Cell[549331, 14376, 771, 11, 5200, "Subsubsection"], 14963Cell[550105, 14389, 1231, 33, 19822, "Code"], 14964Cell[551339, 14424, 1307, 34, 21398, "Code"], 14965Cell[552649, 14460, 44, 1, 377, "PageBreak", 14966 PageBreakBelow->True] 14967}, Closed]] 14968} 14969] 14970*) 14971 14972(* End of internal cache information *) 14973