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[ 157287, 4234] 14NotebookOptionsPosition[ 149667, 4027] 15NotebookOutlinePosition[ 150727, 4065] 16CellTagsIndexPosition[ 150684, 4062] 17WindowFrame->Normal*) 18 19(* Beginning of Notebook Content *) 20Notebook[{ 21 22Cell[CellGroupData[{ 23Cell["Inverse Hyperbolic Function Integration Problem 1", "Title", 24 CellChangeTimes->{{3.4821873279145265`*^9, 3.4821873318001137`*^9}, { 25 3.4821882475168495`*^9, 3.4821882614268513`*^9}, {3.4821886510671263`*^9, 26 3.482188651607904*^9}, 3.482188721117854*^9, 3.4821899389389954`*^9, { 27 3.482190071910198*^9, 3.482190073482459*^9}, 3.482190124175352*^9, 28 3.4821906623291793`*^9, {3.482196017679613*^9, 3.482196050626989*^9}, { 29 3.482196093678894*^9, 3.482196093889197*^9}, {3.4821961644606733`*^9, 30 3.4821962071921186`*^9}, {3.4821968011762257`*^9, 3.482196804761381*^9}, 31 3.482196871106781*^9, {3.4821973084456434`*^9, 3.482197309066536*^9}, { 32 3.4821982364300194`*^9, 3.482198240976557*^9}, 3.482198357524144*^9, { 33 3.4821988021534896`*^9, 3.4821988078316545`*^9}, 3.4821989164378223`*^9, { 34 3.482198948964594*^9, 3.4821989770249424`*^9}, 3.4821998639402637`*^9, 35 3.4901457521946383`*^9, 3.4901481926733255`*^9}, 36 TextAlignment->Center, 37 FontFamily->"Arial", 38 FontSize->24], 39 40Cell[BoxData[ 41 RowBox[{"\[Integral]", 42 RowBox[{ 43 FractionBox[ 44 RowBox[{"ArcTanh", "[", "x", "]"}], 45 RowBox[{"a", "+", 46 RowBox[{"b", " ", "x"}]}]], 47 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subtitle", 48 CellDingbat->None, 49 CellChangeTimes->{ 50 3.478743829361326*^9, {3.47874445595232*^9, 3.4787444723959646`*^9}, 51 3.478744815539381*^9, 3.4787977389071245`*^9, {3.4788096384077663`*^9, 52 3.4788096532190638`*^9}, {3.4821753823697634`*^9, 3.482175431460352*^9}, { 53 3.482175515541254*^9, 3.482175519006237*^9}, 3.4821881383098173`*^9, 54 3.482197249951533*^9, 3.482198265491808*^9, 3.482198311638163*^9, { 55 3.4821989115307665`*^9, 3.4821989119012995`*^9}, 3.482199441332584*^9, { 56 3.4834815653163757`*^9, 3.4834815659572973`*^9}, {3.4901457904147053`*^9, 57 3.490145818447955*^9}, {3.490146761836412*^9, 3.490146763115614*^9}, { 58 3.4901469062926655`*^9, 3.490146908195869*^9}, 3.490147670977209*^9, 59 3.490148293309102*^9, {3.4902117130873065`*^9, 3.4902117160669117`*^9}}, 60 TextAlignment->Center, 61 FontFamily->"Courier New", 62 FontSize->20, 63 FontWeight->"Bold"], 64 65Cell[CellGroupData[{ 66 67Cell[TextData[{ 68 StyleBox["Rubi", 69 FontSlant->"Italic"], 70 " integrates the expression by expanding it using the identity arctanh(z) = \ 711/2 (log(1+z)-log(1-z)):" 72}], "Subsubtitle", 73 CellDingbat->"\[FilledSmallSquare]", 74 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 75 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 76 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 77 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 78 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 79 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 80 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 81 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 82 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 83 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 84 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 85 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 86 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 87 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 88 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 89 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 90 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 91 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 92 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 93 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 94 3.490209819789981*^9, 3.4902098250471907`*^9}, {3.4902118069994717`*^9, 95 3.490211808996275*^9}, {3.4902121317608423`*^9, 3.4902121356608486`*^9}}], 96 97Cell[BoxData[ 98 RowBox[{"Int", "[", 99 RowBox[{ 100 FractionBox[ 101 RowBox[{"ArcTanh", "[", "x", "]"}], 102 RowBox[{"a", "+", 103 RowBox[{"b", " ", "x"}]}]], ",", " ", "x"}], "]"}]], "Input", 104 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 105 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 106 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349954165222*^9, 107 3.44434996146572*^9}, {3.4443499933215265`*^9, 3.423171727*^9}, { 108 3.423616874609375*^9, 3.42361688925*^9}, {3.455334181485957*^9, 109 3.455334194264331*^9}, {3.4553471254684896`*^9, 3.455347126660203*^9}, { 110 3.455347168590496*^9, 3.455347170423131*^9}, {3.4553474605803566`*^9, 111 3.4553474615517535`*^9}, {3.4553478671349535`*^9, 3.4553479098263407`*^9}, 112 3.4553485173899746`*^9, {3.483481569372208*^9, 3.4834815699029713`*^9}, { 113 3.4901458288063726`*^9, 3.4901458649828367`*^9}, {3.4901467652216177`*^9, 114 3.4901467684976234`*^9}, {3.490146910364273*^9, 3.4901469119086757`*^9}, 115 3.4901476752360163`*^9, {3.4902117428521585`*^9, 3.490211745847364*^9}, { 116 3.490212063947523*^9, 3.490212065226725*^9}, {3.490212098922784*^9, 117 3.4902120998275857`*^9}}, 118 Background->GrayLevel[0.85]], 119 120Cell[BoxData[ 121 RowBox[{ 122 FractionBox[ 123 RowBox[{ 124 RowBox[{"Log", "[", 125 RowBox[{"1", "+", "x"}], "]"}], " ", 126 RowBox[{"Log", "[", 127 FractionBox[ 128 RowBox[{"a", "+", 129 RowBox[{"b", " ", "x"}]}], 130 RowBox[{"a", "-", "b"}]], "]"}]}], 131 RowBox[{"2", " ", "b"}]], "-", 132 FractionBox[ 133 RowBox[{ 134 RowBox[{"Log", "[", 135 RowBox[{"1", "-", "x"}], "]"}], " ", 136 RowBox[{"Log", "[", 137 FractionBox[ 138 RowBox[{"a", "+", 139 RowBox[{"b", " ", "x"}]}], 140 RowBox[{"a", "+", "b"}]], "]"}]}], 141 RowBox[{"2", " ", "b"}]], "-", 142 FractionBox[ 143 RowBox[{"PolyLog", "[", 144 RowBox[{"2", ",", 145 FractionBox[ 146 RowBox[{"b", " ", 147 RowBox[{"(", 148 RowBox[{"1", "-", "x"}], ")"}]}], 149 RowBox[{"a", "+", "b"}]]}], "]"}], 150 RowBox[{"2", " ", "b"}]], "+", 151 FractionBox[ 152 RowBox[{"PolyLog", "[", 153 RowBox[{"2", ",", 154 RowBox[{"-", 155 FractionBox[ 156 RowBox[{"b", " ", 157 RowBox[{"(", 158 RowBox[{"1", "+", "x"}], ")"}]}], 159 RowBox[{"a", "-", "b"}]]}]}], "]"}], 160 RowBox[{"2", " ", "b"}]]}]], "Output", 161 CellChangeTimes->{ 162 3.4553471757908497`*^9, 3.455347464195555*^9, 3.4553478642307777`*^9, { 163 3.4553479001924877`*^9, 3.455347905069501*^9}, 3.455348519012307*^9, 164 3.4834815773737135`*^9, {3.4901458393519917`*^9, 3.4901458654976377`*^9}, { 165 3.4901467707752275`*^9, 3.4901467755488358`*^9}, 3.4901469140458794`*^9, 166 3.490147678402822*^9, 3.490211751993775*^9, {3.490212065850726*^9, 167 3.490212070827135*^9}}] 168}, Closed]], 169 170Cell[CellGroupData[{ 171 172Cell[TextData[{ 173 StyleBox["Mathematica", 174 FontSlant->"Italic"], 175 " does ", 176 StyleBox["not", 177 FontSlant->"Italic"], 178 " integrate the expression using the identity since it returns a complicated \ 179result:" 180}], "Subsubtitle", 181 CellDingbat->"\[FilledSmallSquare]", 182 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 183 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 184 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 185 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 186 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 187 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 188 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 189 3.4443500256179667`*^9}, {3.4466836176090527`*^9, 3.446683618790752*^9}, { 190 3.4466950388319645`*^9, 3.423171727*^9}, {3.423617028171875*^9, 191 3.4236170379375*^9}, {3.4553479526979876`*^9, 3.4553479664477587`*^9}, 192 3.4553488631171055`*^9, {3.455349270663128*^9, 3.4553492792855263`*^9}, 193 3.4821993033942385`*^9, {3.4901461922558117`*^9, 3.490146250311514*^9}, { 194 3.490146703164709*^9, 3.4901467180783353`*^9}, {3.4901468663877954`*^9, 195 3.4901468754358115`*^9}, {3.4902095985815926`*^9, 196 3.4902096159912233`*^9}, {3.4902096750217266`*^9, 3.4902096759109287`*^9}, 197 3.490209788418326*^9, {3.4902098449840255`*^9, 3.49020987610608*^9}, { 198 3.490212150028474*^9, 3.4902121822737303`*^9}}], 199 200Cell[BoxData[ 201 RowBox[{"\[Integral]", 202 RowBox[{ 203 FractionBox[ 204 RowBox[{"ArcTanh", "[", "x", "]"}], 205 RowBox[{"a", "+", 206 RowBox[{"b", " ", "x"}]}]], 207 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 208 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 209 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 210 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 211 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 212 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 213 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 214 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 215 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 216 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 217 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 218 3.490146130994504*^9, 3.490146788044458*^9, {3.4901469204886904`*^9, 219 3.4901469227038946`*^9}, 3.4901476840968323`*^9, {3.4902117640681963`*^9, 220 3.490211777141019*^9}}, 221 Background->GrayLevel[0.85]], 222 223Cell[BoxData[ 224 RowBox[{ 225 FractionBox["1", 226 RowBox[{"8", " ", "b"}]], 227 RowBox[{"(", 228 RowBox[{ 229 RowBox[{"-", 230 SuperscriptBox["\[Pi]", "2"]}], "+", 231 RowBox[{"4", " ", 232 SuperscriptBox[ 233 RowBox[{"ArcTanh", "[", 234 FractionBox["a", "b"], "]"}], "2"]}], "+", 235 RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 236 RowBox[{"ArcTanh", "[", "x", "]"}]}], "+", 237 RowBox[{"8", " ", 238 RowBox[{"ArcTanh", "[", 239 FractionBox["a", "b"], "]"}], " ", 240 RowBox[{"ArcTanh", "[", "x", "]"}]}], "+", 241 RowBox[{"8", " ", 242 SuperscriptBox[ 243 RowBox[{"ArcTanh", "[", "x", "]"}], "2"]}], "-", 244 RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 245 RowBox[{"Log", "[", 246 RowBox[{"1", "+", 247 SuperscriptBox["\[ExponentialE]", 248 RowBox[{"2", " ", 249 RowBox[{"ArcTanh", "[", "x", "]"}]}]]}], "]"}]}], "-", 250 RowBox[{"8", " ", 251 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 252 RowBox[{"Log", "[", 253 RowBox[{"1", "+", 254 SuperscriptBox["\[ExponentialE]", 255 RowBox[{"2", " ", 256 RowBox[{"ArcTanh", "[", "x", "]"}]}]]}], "]"}]}], "+", 257 RowBox[{"8", " ", 258 RowBox[{"ArcTanh", "[", 259 FractionBox["a", "b"], "]"}], " ", 260 RowBox[{"Log", "[", 261 RowBox[{"1", "-", 262 SuperscriptBox["\[ExponentialE]", 263 RowBox[{ 264 RowBox[{"-", "2"}], " ", 265 RowBox[{"(", 266 RowBox[{ 267 RowBox[{"ArcTanh", "[", 268 FractionBox["a", "b"], "]"}], "+", 269 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "+", 270 RowBox[{"8", " ", 271 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 272 RowBox[{"Log", "[", 273 RowBox[{"1", "-", 274 SuperscriptBox["\[ExponentialE]", 275 RowBox[{ 276 RowBox[{"-", "2"}], " ", 277 RowBox[{"(", 278 RowBox[{ 279 RowBox[{"ArcTanh", "[", 280 FractionBox["a", "b"], "]"}], "+", 281 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "+", 282 RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 283 RowBox[{"Log", "[", 284 FractionBox["2", 285 SqrtBox[ 286 RowBox[{"1", "-", 287 SuperscriptBox["x", "2"]}]]], "]"}]}], "+", 288 RowBox[{"8", " ", 289 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 290 RowBox[{"Log", "[", 291 FractionBox["2", 292 SqrtBox[ 293 RowBox[{"1", "-", 294 SuperscriptBox["x", "2"]}]]], "]"}]}], "+", 295 RowBox[{"4", " ", 296 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 297 RowBox[{"Log", "[", 298 RowBox[{"1", "-", 299 SuperscriptBox["x", "2"]}], "]"}]}], "+", 300 RowBox[{"8", " ", 301 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 302 RowBox[{"Log", "[", 303 RowBox[{"\[ImaginaryI]", " ", 304 RowBox[{"Sinh", "[", 305 RowBox[{ 306 RowBox[{"ArcTanh", "[", 307 FractionBox["a", "b"], "]"}], "+", 308 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 309 RowBox[{"8", " ", 310 RowBox[{"ArcTanh", "[", 311 FractionBox["a", "b"], "]"}], " ", 312 RowBox[{"Log", "[", 313 RowBox[{"2", " ", "\[ImaginaryI]", " ", 314 RowBox[{"Sinh", "[", 315 RowBox[{ 316 RowBox[{"ArcTanh", "[", 317 FractionBox["a", "b"], "]"}], "+", 318 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 319 RowBox[{"8", " ", 320 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 321 RowBox[{"Log", "[", 322 RowBox[{"2", " ", "\[ImaginaryI]", " ", 323 RowBox[{"Sinh", "[", 324 RowBox[{ 325 RowBox[{"ArcTanh", "[", 326 FractionBox["a", "b"], "]"}], "+", 327 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 328 RowBox[{"4", " ", 329 RowBox[{"PolyLog", "[", 330 RowBox[{"2", ",", 331 RowBox[{"-", 332 SuperscriptBox["\[ExponentialE]", 333 RowBox[{"2", " ", 334 RowBox[{"ArcTanh", "[", "x", "]"}]}]]}]}], "]"}]}], "-", 335 RowBox[{"4", " ", 336 RowBox[{"PolyLog", "[", 337 RowBox[{"2", ",", 338 SuperscriptBox["\[ExponentialE]", 339 RowBox[{ 340 RowBox[{"-", "2"}], " ", 341 RowBox[{"(", 342 RowBox[{ 343 RowBox[{"ArcTanh", "[", 344 FractionBox["a", "b"], "]"}], "+", 345 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}]}], 346 ")"}]}]], "Output", 347 CellChangeTimes->{ 348 3.4553492672882752`*^9, 3.4834815917443776`*^9, 3.4901461331629076`*^9, 349 3.4901467917104645`*^9, 3.490146925355899*^9, 3.490147686343236*^9, { 350 3.490211767063401*^9, 3.4902117787010217`*^9}}], 351 352Cell[BoxData[ 353 RowBox[{"\[Integral]", 354 RowBox[{ 355 FractionBox[ 356 RowBox[{ 357 RowBox[{"Log", "[", 358 RowBox[{"1", "+", "x"}], "]"}], "-", 359 RowBox[{"Log", "[", 360 RowBox[{"1", "-", "x"}], "]"}]}], 361 RowBox[{"2", 362 RowBox[{"(", 363 RowBox[{"a", "+", 364 RowBox[{"b", " ", "x"}]}], ")"}]}]], 365 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 366 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 367 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 368 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 369 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 370 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 371 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 372 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 373 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 374 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 375 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 376 3.490146130994504*^9, 3.4901467369699683`*^9, {3.4901468104616976`*^9, 377 3.490146825531324*^9}, {3.490147050252119*^9, 3.4901470877857847`*^9}, { 378 3.4901476946736507`*^9, 3.49014770007126*^9}, {3.4902090038305483`*^9, 379 3.4902090160609694`*^9}, {3.4902118368423243`*^9, 3.490211838417927*^9}, { 380 3.4902118707567835`*^9, 3.490211876497594*^9}}, 381 Background->GrayLevel[0.85]], 382 383Cell[BoxData[ 384 RowBox[{ 385 FractionBox[ 386 RowBox[{ 387 RowBox[{"Log", "[", 388 RowBox[{"1", "+", "x"}], "]"}], " ", 389 RowBox[{"Log", "[", 390 FractionBox[ 391 RowBox[{"a", "+", 392 RowBox[{"b", " ", "x"}]}], 393 RowBox[{"a", "-", "b"}]], "]"}]}], 394 RowBox[{"2", " ", "b"}]], "-", 395 FractionBox[ 396 RowBox[{ 397 RowBox[{"Log", "[", 398 RowBox[{"1", "-", "x"}], "]"}], " ", 399 RowBox[{"Log", "[", 400 FractionBox[ 401 RowBox[{"a", "+", 402 RowBox[{"b", " ", "x"}]}], 403 RowBox[{"a", "+", "b"}]], "]"}]}], 404 RowBox[{"2", " ", "b"}]], "+", 405 FractionBox[ 406 RowBox[{"PolyLog", "[", 407 RowBox[{"2", ",", 408 FractionBox[ 409 RowBox[{"b", " ", 410 RowBox[{"(", 411 RowBox[{"1", "+", "x"}], ")"}]}], 412 RowBox[{ 413 RowBox[{"-", "a"}], "+", "b"}]]}], "]"}], 414 RowBox[{"2", " ", "b"}]], "-", 415 FractionBox[ 416 RowBox[{"PolyLog", "[", 417 RowBox[{"2", ",", 418 FractionBox[ 419 RowBox[{"b", "-", 420 RowBox[{"b", " ", "x"}]}], 421 RowBox[{"a", "+", "b"}]]}], "]"}], 422 RowBox[{"2", " ", "b"}]]}]], "Output", 423 CellChangeTimes->{3.4902118722075863`*^9}] 424}, Closed]], 425 426Cell[CellGroupData[{ 427 428Cell[TextData[{ 429 StyleBox["Maple", 430 FontSlant->"Italic"], 431 " integrates the expression apparently by expanding it using the identity:" 432}], "Subsubtitle", 433 CellDingbat->"\[FilledSmallSquare]", 434 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 435 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 436 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 437 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 438 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 439 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 440 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 441 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 442 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 443 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 444 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 445 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 446 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 447 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 448 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 449 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 450 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 451 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 452 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 453 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 454 3.490209819789981*^9, 3.4902098250471907`*^9}, {3.4902118069994717`*^9, 455 3.490211808996275*^9}, {3.4902121317608423`*^9, 3.4902121356608486`*^9}, { 456 3.490212322018776*^9, 3.490212338632805*^9}}], 457 458Cell[BoxData[ 459 RowBox[{ 460 RowBox[{"int", 461 RowBox[{"(", 462 RowBox[{ 463 RowBox[{"arctanh", 464 RowBox[{ 465 RowBox[{"(", "x", ")"}], "/", 466 RowBox[{"(", 467 RowBox[{"a", "+", 468 RowBox[{"b", "*", "x"}]}], ")"}]}]}], ",", "x"}], ")"}]}], 469 ";"}]], "Input", 470 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 471 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 472 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 473 3.4553480557261343`*^9}, {3.455348571317518*^9, 3.455348579389125*^9}, { 474 3.455348631163573*^9, 3.455348631474019*^9}, {3.4834816003868046`*^9, 475 3.4834816024597855`*^9}, {3.4901471509190955`*^9, 3.490147160887513*^9}, 476 3.490147464479646*^9, 3.4901477330809183`*^9, {3.4902122466862435`*^9, 477 3.490212247606645*^9}}, 478 Background->GrayLevel[0.85]], 479 480Cell[BoxData[ 481 RowBox[{ 482 FractionBox[ 483 RowBox[{ 484 RowBox[{"Log", "[", 485 RowBox[{"1", "+", "x"}], "]"}], " ", 486 RowBox[{"Log", "[", 487 FractionBox[ 488 RowBox[{"a", "+", 489 RowBox[{"b", " ", "x"}]}], 490 RowBox[{"a", "-", "b"}]], "]"}]}], 491 RowBox[{"2", " ", "b"}]], "-", 492 FractionBox[ 493 RowBox[{ 494 RowBox[{"Log", "[", 495 RowBox[{"1", "-", "x"}], "]"}], " ", 496 RowBox[{"Log", "[", 497 FractionBox[ 498 RowBox[{"a", "+", 499 RowBox[{"b", " ", "x"}]}], 500 RowBox[{"a", "+", "b"}]], "]"}]}], 501 RowBox[{"2", " ", "b"}]], "-", 502 FractionBox[ 503 RowBox[{"PolyLog", "[", 504 RowBox[{"2", ",", 505 FractionBox[ 506 RowBox[{"b", " ", 507 RowBox[{"(", 508 RowBox[{"1", "-", "x"}], ")"}]}], 509 RowBox[{"a", "+", "b"}]]}], "]"}], 510 RowBox[{"2", " ", "b"}]], "+", 511 FractionBox[ 512 RowBox[{"PolyLog", "[", 513 RowBox[{"2", ",", 514 RowBox[{"-", 515 FractionBox[ 516 RowBox[{"b", " ", 517 RowBox[{"(", 518 RowBox[{"1", "+", "x"}], ")"}]}], 519 RowBox[{"a", "-", "b"}]]}]}], "]"}], 520 RowBox[{"2", " ", "b"}]]}]], "Output", 521 CellChangeTimes->{ 522 3.4553471757908497`*^9, 3.455347464195555*^9, 3.4553478642307777`*^9, { 523 3.4553479001924877`*^9, 3.455347905069501*^9}, 3.455348519012307*^9, 524 3.4834815773737135`*^9, {3.4901458393519917`*^9, 3.4901458654976377`*^9}, { 525 3.4901467707752275`*^9, 3.4901467755488358`*^9}, 3.4901469140458794`*^9, 526 3.490147678402822*^9, 3.490211751993775*^9, {3.490212065850726*^9, 527 3.490212070827135*^9}}] 528}, Closed]], 529 530Cell["", "Text"], 531 532Cell["\<\ 533Note that these systems give similar results to the above for the hyperbolic \ 534arccotangent function.\ 535\>", "Subsubtitle", 536 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 537 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 538 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 539 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 540 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 541 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 542 3.444282629461632*^9}, {3.4443499318130817`*^9, 3.4443499392037086`*^9}, { 543 3.4443502123965406`*^9, 3.444350220287888*^9}, {3.4466877703003297`*^9, 544 3.446687773284621*^9}, {3.4466878378674865`*^9, 3.446687845468416*^9}, { 545 3.446688019789077*^9, 3.4466880241152973`*^9}, {3.446693423609389*^9, 546 3.4466934479243517`*^9}, {3.446694023131459*^9, 3.4466940235821075`*^9}, { 547 3.4468670078489923`*^9, 3.42301075253125*^9}, 3.423171765484375*^9, { 548 3.455324754760992*^9, 3.4553247817497997`*^9}, 3.4821992623952847`*^9, { 549 3.482716792168875*^9, 3.482716823894494*^9}, {3.483203401445797*^9, 550 3.4832034193315153`*^9}, {3.4832034600500655`*^9, 3.483203532123702*^9}, { 551 3.4832040958843503`*^9, 3.4832041044566765`*^9}, 3.483204218670909*^9, 552 3.4833920379275217`*^9, {3.483392125182989*^9, 3.4833921454921923`*^9}, { 553 3.48339221312945*^9, 3.483392219528651*^9}, {3.483392987983635*^9, 554 3.4833931408334227`*^9}, {3.4833932165322723`*^9, 3.483393223472251*^9}, { 555 3.483395056508027*^9, 3.4833950705081587`*^9}, {3.4833959109166064`*^9, 556 3.483395925577688*^9}, {3.483395964633848*^9, 3.4833959819287167`*^9}, { 557 3.4833961127468243`*^9, 3.483396122781253*^9}, 3.490048900827781*^9, 558 3.4900489594451337`*^9, {3.4902128221680546`*^9, 3.4902128464728975`*^9}, { 559 3.4902329283869677`*^9, 3.4902329290265684`*^9}}], 560 561Cell["", "PageBreak", 562 PageBreakBelow->True] 563}, Open ]], 564 565Cell[CellGroupData[{ 566 567Cell["Inverse Hyperbolic Function Integration Problem 2", "Title", 568 CellChangeTimes->{{3.4821873279145265`*^9, 3.4821873318001137`*^9}, { 569 3.4821882475168495`*^9, 3.4821882614268513`*^9}, {3.4821886510671263`*^9, 570 3.482188651607904*^9}, 3.482188721117854*^9, 3.4821899389389954`*^9, { 571 3.482190071910198*^9, 3.482190073482459*^9}, 3.482190124175352*^9, 572 3.4821906623291793`*^9, {3.482196017679613*^9, 3.482196050626989*^9}, { 573 3.482196093678894*^9, 3.482196093889197*^9}, {3.4821961644606733`*^9, 574 3.4821962071921186`*^9}, {3.4821968011762257`*^9, 3.482196804761381*^9}, 575 3.482196871106781*^9, {3.4821973084456434`*^9, 3.482197309066536*^9}, { 576 3.4821982364300194`*^9, 3.482198240976557*^9}, 3.482198357524144*^9, { 577 3.4821988021534896`*^9, 3.4821988078316545`*^9}, 3.4821989164378223`*^9, { 578 3.482198948964594*^9, 3.4821989770249424`*^9}, 3.4821998639402637`*^9, 579 3.4901457521946383`*^9, 3.4901481926733255`*^9, 3.4902117030720887`*^9}, 580 TextAlignment->Center, 581 FontFamily->"Arial", 582 FontSize->24], 583 584Cell[BoxData[ 585 RowBox[{"\[Integral]", 586 RowBox[{ 587 FractionBox[ 588 RowBox[{"ArcTanh", "[", "x", "]"}], 589 RowBox[{"a", "+", 590 RowBox[{"b", " ", "x"}], "+", 591 RowBox[{"c", " ", 592 SuperscriptBox["x", "2"]}]}]], 593 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subtitle", 594 CellDingbat->None, 595 CellChangeTimes->{ 596 3.478743829361326*^9, {3.47874445595232*^9, 3.4787444723959646`*^9}, 597 3.478744815539381*^9, 3.4787977389071245`*^9, {3.4788096384077663`*^9, 598 3.4788096532190638`*^9}, {3.4821753823697634`*^9, 3.482175431460352*^9}, { 599 3.482175515541254*^9, 3.482175519006237*^9}, 3.4821881383098173`*^9, 600 3.482197249951533*^9, 3.482198265491808*^9, 3.482198311638163*^9, { 601 3.4821989115307665`*^9, 3.4821989119012995`*^9}, 3.482199441332584*^9, { 602 3.4834815653163757`*^9, 3.4834815659572973`*^9}, {3.4901457904147053`*^9, 603 3.490145818447955*^9}, {3.490146761836412*^9, 3.490146763115614*^9}, { 604 3.4901469062926655`*^9, 3.490146908195869*^9}, 3.490147670977209*^9, 605 3.490148293309102*^9}, 606 TextAlignment->Center, 607 FontFamily->"Courier New", 608 FontSize->20, 609 FontWeight->"Bold"], 610 611Cell[CellGroupData[{ 612 613Cell[TextData[{ 614 StyleBox["Rubi", 615 FontSlant->"Italic"], 616 " is able to integrate the expression by expanding it using partial fraction \ 617expansion and the identity arctanh(z) = 1/2 (log(1+z)-log(1-z)):" 618}], "Subsubtitle", 619 CellDingbat->"\[FilledSmallSquare]", 620 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 621 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 622 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 623 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 624 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 625 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 626 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 627 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 628 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 629 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 630 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 631 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 632 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 633 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 634 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 635 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 636 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 637 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 638 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 639 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 640 3.490209819789981*^9, 3.4902098250471907`*^9}}], 641 642Cell[BoxData[ 643 RowBox[{"Int", "[", 644 RowBox[{ 645 FractionBox[ 646 RowBox[{"ArcTanh", "[", "x", "]"}], 647 RowBox[{"a", "+", 648 RowBox[{"b", " ", "x"}], "+", 649 RowBox[{"c", " ", 650 SuperscriptBox["x", "2"]}]}]], ",", " ", "x"}], "]"}]], "Input", 651 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 652 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 653 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349954165222*^9, 654 3.44434996146572*^9}, {3.4443499933215265`*^9, 3.423171727*^9}, { 655 3.423616874609375*^9, 3.42361688925*^9}, {3.455334181485957*^9, 656 3.455334194264331*^9}, {3.4553471254684896`*^9, 3.455347126660203*^9}, { 657 3.455347168590496*^9, 3.455347170423131*^9}, {3.4553474605803566`*^9, 658 3.4553474615517535`*^9}, {3.4553478671349535`*^9, 3.4553479098263407`*^9}, 659 3.4553485173899746`*^9, {3.483481569372208*^9, 3.4834815699029713`*^9}, { 660 3.4901458288063726`*^9, 3.4901458649828367`*^9}, {3.4901467652216177`*^9, 661 3.4901467684976234`*^9}, {3.490146910364273*^9, 3.4901469119086757`*^9}, 662 3.4901476752360163`*^9}, 663 Background->GrayLevel[0.85]], 664 665Cell[BoxData[ 666 RowBox[{ 667 FractionBox[ 668 RowBox[{ 669 RowBox[{"Log", "[", 670 RowBox[{"1", "+", "x"}], "]"}], " ", 671 RowBox[{"Log", "[", 672 FractionBox[ 673 RowBox[{"b", "-", 674 SqrtBox[ 675 RowBox[{ 676 SuperscriptBox["b", "2"], "-", 677 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 678 RowBox[{"2", " ", "c", " ", "x"}]}], 679 RowBox[{"b", "-", 680 RowBox[{"2", " ", "c"}], "-", 681 SqrtBox[ 682 RowBox[{ 683 SuperscriptBox["b", "2"], "-", 684 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "]"}]}], 685 RowBox[{"2", " ", 686 SqrtBox[ 687 RowBox[{ 688 SuperscriptBox["b", "2"], "-", 689 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 690 FractionBox[ 691 RowBox[{ 692 RowBox[{"Log", "[", 693 RowBox[{"1", "-", "x"}], "]"}], " ", 694 RowBox[{"Log", "[", 695 RowBox[{"-", 696 FractionBox[ 697 RowBox[{"b", "-", 698 SqrtBox[ 699 RowBox[{ 700 SuperscriptBox["b", "2"], "-", 701 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 702 RowBox[{"2", " ", "c", " ", "x"}]}], 703 RowBox[{ 704 RowBox[{"-", "b"}], "-", 705 RowBox[{"2", " ", "c"}], "+", 706 SqrtBox[ 707 RowBox[{ 708 SuperscriptBox["b", "2"], "-", 709 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 710 RowBox[{"2", " ", 711 SqrtBox[ 712 RowBox[{ 713 SuperscriptBox["b", "2"], "-", 714 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 715 FractionBox[ 716 RowBox[{ 717 RowBox[{"Log", "[", 718 RowBox[{"1", "-", "x"}], "]"}], " ", 719 RowBox[{"Log", "[", 720 RowBox[{"-", 721 FractionBox[ 722 RowBox[{"b", "+", 723 SqrtBox[ 724 RowBox[{ 725 SuperscriptBox["b", "2"], "-", 726 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 727 RowBox[{"2", " ", "c", " ", "x"}]}], 728 RowBox[{ 729 RowBox[{"-", "b"}], "-", 730 RowBox[{"2", " ", "c"}], "-", 731 SqrtBox[ 732 RowBox[{ 733 SuperscriptBox["b", "2"], "-", 734 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 735 RowBox[{"2", " ", 736 SqrtBox[ 737 RowBox[{ 738 SuperscriptBox["b", "2"], "-", 739 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 740 FractionBox[ 741 RowBox[{ 742 RowBox[{"Log", "[", 743 RowBox[{"1", "+", "x"}], "]"}], " ", 744 RowBox[{"Log", "[", 745 FractionBox[ 746 RowBox[{"b", "+", 747 SqrtBox[ 748 RowBox[{ 749 SuperscriptBox["b", "2"], "-", 750 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 751 RowBox[{"2", " ", "c", " ", "x"}]}], 752 RowBox[{"b", "-", 753 RowBox[{"2", " ", "c"}], "+", 754 SqrtBox[ 755 RowBox[{ 756 SuperscriptBox["b", "2"], "-", 757 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "]"}]}], 758 RowBox[{"2", " ", 759 SqrtBox[ 760 RowBox[{ 761 SuperscriptBox["b", "2"], "-", 762 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 763 FractionBox[ 764 RowBox[{"PolyLog", "[", 765 RowBox[{"2", ",", 766 RowBox[{"-", 767 FractionBox[ 768 RowBox[{"2", " ", "c", " ", 769 RowBox[{"(", 770 RowBox[{"1", "-", "x"}], ")"}]}], 771 RowBox[{ 772 RowBox[{"-", "b"}], "-", 773 RowBox[{"2", " ", "c"}], "-", 774 SqrtBox[ 775 RowBox[{ 776 SuperscriptBox["b", "2"], "-", 777 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 778 RowBox[{"2", " ", 779 SqrtBox[ 780 RowBox[{ 781 SuperscriptBox["b", "2"], "-", 782 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 783 FractionBox[ 784 RowBox[{"PolyLog", "[", 785 RowBox[{"2", ",", 786 RowBox[{"-", 787 FractionBox[ 788 RowBox[{"2", " ", "c", " ", 789 RowBox[{"(", 790 RowBox[{"1", "-", "x"}], ")"}]}], 791 RowBox[{ 792 RowBox[{"-", "b"}], "-", 793 RowBox[{"2", " ", "c"}], "+", 794 SqrtBox[ 795 RowBox[{ 796 SuperscriptBox["b", "2"], "-", 797 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 798 RowBox[{"2", " ", 799 SqrtBox[ 800 RowBox[{ 801 SuperscriptBox["b", "2"], "-", 802 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 803 FractionBox[ 804 RowBox[{"PolyLog", "[", 805 RowBox[{"2", ",", 806 RowBox[{"-", 807 FractionBox[ 808 RowBox[{"2", " ", "c", " ", 809 RowBox[{"(", 810 RowBox[{"1", "+", "x"}], ")"}]}], 811 RowBox[{"b", "-", 812 RowBox[{"2", " ", "c"}], "-", 813 SqrtBox[ 814 RowBox[{ 815 SuperscriptBox["b", "2"], "-", 816 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 817 RowBox[{"2", " ", 818 SqrtBox[ 819 RowBox[{ 820 SuperscriptBox["b", "2"], "-", 821 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 822 FractionBox[ 823 RowBox[{"PolyLog", "[", 824 RowBox[{"2", ",", 825 RowBox[{"-", 826 FractionBox[ 827 RowBox[{"2", " ", "c", " ", 828 RowBox[{"(", 829 RowBox[{"1", "+", "x"}], ")"}]}], 830 RowBox[{"b", "-", 831 RowBox[{"2", " ", "c"}], "+", 832 SqrtBox[ 833 RowBox[{ 834 SuperscriptBox["b", "2"], "-", 835 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 836 RowBox[{"2", " ", 837 SqrtBox[ 838 RowBox[{ 839 SuperscriptBox["b", "2"], "-", 840 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]], "Output", 841 CellChangeTimes->{ 842 3.4553471757908497`*^9, 3.455347464195555*^9, 3.4553478642307777`*^9, { 843 3.4553479001924877`*^9, 3.455347905069501*^9}, 3.455348519012307*^9, 844 3.4834815773737135`*^9, {3.4901458393519917`*^9, 3.4901458654976377`*^9}, { 845 3.4901467707752275`*^9, 3.4901467755488358`*^9}, 3.4901469140458794`*^9, 846 3.490147678402822*^9}] 847}, Closed]], 848 849Cell[CellGroupData[{ 850 851Cell[TextData[{ 852 StyleBox["Mathematica", 853 FontSlant->"Italic"], 854 " is unable to integrate the expression since it does ", 855 StyleBox["not", 856 FontSlant->"Italic"], 857 " automatically expand it:" 858}], "Subsubtitle", 859 CellDingbat->"\[FilledSmallSquare]", 860 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 861 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 862 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 863 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 864 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 865 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 866 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 867 3.4443500256179667`*^9}, {3.4466836176090527`*^9, 3.446683618790752*^9}, { 868 3.4466950388319645`*^9, 3.423171727*^9}, {3.423617028171875*^9, 869 3.4236170379375*^9}, {3.4553479526979876`*^9, 3.4553479664477587`*^9}, 870 3.4553488631171055`*^9, {3.455349270663128*^9, 3.4553492792855263`*^9}, 871 3.4821993033942385`*^9, {3.4901461922558117`*^9, 3.490146250311514*^9}, { 872 3.490146703164709*^9, 3.4901467180783353`*^9}, {3.4901468663877954`*^9, 873 3.4901468754358115`*^9}, {3.4902095985815926`*^9, 874 3.4902096159912233`*^9}, {3.4902096750217266`*^9, 3.4902096759109287`*^9}, 875 3.490209788418326*^9, {3.4902098449840255`*^9, 3.49020987610608*^9}}], 876 877Cell[BoxData[ 878 RowBox[{"\[Integral]", 879 RowBox[{ 880 FractionBox[ 881 RowBox[{"ArcTanh", "[", "x", "]"}], 882 RowBox[{"a", "+", 883 RowBox[{"b", " ", "x"}], "+", 884 RowBox[{"c", " ", 885 SuperscriptBox["x", "2"]}]}]], 886 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 887 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 888 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 889 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 890 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 891 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 892 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 893 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 894 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 895 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 896 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 897 3.490146130994504*^9, 3.490146788044458*^9, {3.4901469204886904`*^9, 898 3.4901469227038946`*^9}, 3.4901476840968323`*^9}, 899 Background->GrayLevel[0.85]], 900 901Cell[BoxData[ 902 RowBox[{"\[Integral]", 903 RowBox[{ 904 FractionBox[ 905 RowBox[{"ArcTanh", "[", "x", "]"}], 906 RowBox[{"a", "+", 907 RowBox[{"b", " ", "x"}], "+", 908 RowBox[{"c", " ", 909 SuperscriptBox["x", "2"]}]}]], 910 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output", 911 CellChangeTimes->{3.4553492672882752`*^9, 3.4834815917443776`*^9, 912 3.4901461331629076`*^9, 3.4901467917104645`*^9, 3.490146925355899*^9, 913 3.490147686343236*^9}], 914 915Cell[BoxData[ 916 RowBox[{"\[Integral]", 917 RowBox[{ 918 FractionBox[ 919 RowBox[{ 920 RowBox[{"Log", "[", 921 RowBox[{"1", "+", "x"}], "]"}], "-", 922 RowBox[{"Log", "[", 923 RowBox[{"1", "-", "x"}], "]"}]}], 924 RowBox[{"2", 925 RowBox[{"(", 926 RowBox[{"a", "+", 927 RowBox[{"b", " ", "x"}], "+", 928 RowBox[{"c", " ", 929 SuperscriptBox["x", "2"]}]}], ")"}]}]], 930 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 931 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 932 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 933 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 934 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 935 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 936 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 937 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 938 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 939 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 940 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 941 3.490146130994504*^9, 3.4901467369699683`*^9, {3.4901468104616976`*^9, 942 3.490146825531324*^9}, {3.490147050252119*^9, 3.4901470877857847`*^9}, { 943 3.4901476946736507`*^9, 3.49014770007126*^9}, {3.4902090038305483`*^9, 944 3.4902090160609694`*^9}}, 945 Background->GrayLevel[0.85]], 946 947Cell[BoxData[ 948 RowBox[{ 949 RowBox[{"-", 950 FractionBox[ 951 RowBox[{ 952 RowBox[{"Log", "[", 953 RowBox[{"1", "+", 954 FractionBox[ 955 RowBox[{"2", " ", "c", " ", 956 RowBox[{"(", 957 RowBox[{ 958 RowBox[{"-", "1"}], "+", "x"}], ")"}]}], 959 RowBox[{"b", "+", 960 RowBox[{"2", " ", "c"}], "-", 961 SqrtBox[ 962 RowBox[{ 963 SuperscriptBox["b", "2"], "-", 964 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}], " ", 965 RowBox[{"Log", "[", 966 RowBox[{"1", "-", "x"}], "]"}]}], 967 RowBox[{"2", " ", 968 SqrtBox[ 969 RowBox[{ 970 SuperscriptBox["b", "2"], "-", 971 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "+", 972 FractionBox[ 973 RowBox[{ 974 RowBox[{"Log", "[", 975 RowBox[{"1", "+", 976 FractionBox[ 977 RowBox[{"2", " ", "c", " ", 978 RowBox[{"(", 979 RowBox[{ 980 RowBox[{"-", "1"}], "+", "x"}], ")"}]}], 981 RowBox[{"b", "+", 982 RowBox[{"2", " ", "c"}], "+", 983 SqrtBox[ 984 RowBox[{ 985 SuperscriptBox["b", "2"], "-", 986 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}], " ", 987 RowBox[{"Log", "[", 988 RowBox[{"1", "-", "x"}], "]"}]}], 989 RowBox[{"2", " ", 990 SqrtBox[ 991 RowBox[{ 992 SuperscriptBox["b", "2"], "-", 993 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 994 FractionBox[ 995 RowBox[{ 996 RowBox[{"Log", "[", 997 RowBox[{"1", "+", "x"}], "]"}], " ", 998 RowBox[{"Log", "[", 999 RowBox[{"1", "+", 1000 FractionBox[ 1001 RowBox[{"2", " ", "c", " ", 1002 RowBox[{"(", 1003 RowBox[{"1", "+", "x"}], ")"}]}], 1004 RowBox[{"b", "-", 1005 RowBox[{"2", " ", "c"}], "+", 1006 SqrtBox[ 1007 RowBox[{ 1008 SuperscriptBox["b", "2"], "-", 1009 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 1010 RowBox[{"2", " ", 1011 SqrtBox[ 1012 RowBox[{ 1013 SuperscriptBox["b", "2"], "-", 1014 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1015 FractionBox[ 1016 RowBox[{ 1017 RowBox[{"Log", "[", 1018 RowBox[{"1", "+", "x"}], "]"}], " ", 1019 RowBox[{"Log", "[", 1020 RowBox[{"1", "-", 1021 FractionBox[ 1022 RowBox[{"2", " ", "c", " ", 1023 RowBox[{"(", 1024 RowBox[{"1", "+", "x"}], ")"}]}], 1025 RowBox[{ 1026 RowBox[{"-", "b"}], "+", 1027 RowBox[{"2", " ", "c"}], "+", 1028 SqrtBox[ 1029 RowBox[{ 1030 SuperscriptBox["b", "2"], "-", 1031 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 1032 RowBox[{"2", " ", 1033 SqrtBox[ 1034 RowBox[{ 1035 SuperscriptBox["b", "2"], "-", 1036 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1037 FractionBox[ 1038 RowBox[{"PolyLog", "[", 1039 RowBox[{"2", ",", 1040 RowBox[{"-", 1041 FractionBox[ 1042 RowBox[{"2", " ", "c", " ", 1043 RowBox[{"(", 1044 RowBox[{ 1045 RowBox[{"-", "1"}], "+", "x"}], ")"}]}], 1046 RowBox[{"b", "+", 1047 RowBox[{"2", " ", "c"}], "-", 1048 SqrtBox[ 1049 RowBox[{ 1050 SuperscriptBox["b", "2"], "-", 1051 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1052 RowBox[{"2", " ", 1053 SqrtBox[ 1054 RowBox[{ 1055 SuperscriptBox["b", "2"], "-", 1056 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1057 FractionBox[ 1058 RowBox[{"PolyLog", "[", 1059 RowBox[{"2", ",", 1060 RowBox[{"-", 1061 FractionBox[ 1062 RowBox[{"2", " ", "c", " ", 1063 RowBox[{"(", 1064 RowBox[{ 1065 RowBox[{"-", "1"}], "+", "x"}], ")"}]}], 1066 RowBox[{"b", "+", 1067 RowBox[{"2", " ", "c"}], "+", 1068 SqrtBox[ 1069 RowBox[{ 1070 SuperscriptBox["b", "2"], "-", 1071 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1072 RowBox[{"2", " ", 1073 SqrtBox[ 1074 RowBox[{ 1075 SuperscriptBox["b", "2"], "-", 1076 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1077 FractionBox[ 1078 RowBox[{"PolyLog", "[", 1079 RowBox[{"2", ",", 1080 RowBox[{"-", 1081 FractionBox[ 1082 RowBox[{"2", " ", "c", " ", 1083 RowBox[{"(", 1084 RowBox[{"1", "+", "x"}], ")"}]}], 1085 RowBox[{"b", "-", 1086 RowBox[{"2", " ", "c"}], "+", 1087 SqrtBox[ 1088 RowBox[{ 1089 SuperscriptBox["b", "2"], "-", 1090 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1091 RowBox[{"2", " ", 1092 SqrtBox[ 1093 RowBox[{ 1094 SuperscriptBox["b", "2"], "-", 1095 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1096 FractionBox[ 1097 RowBox[{"PolyLog", "[", 1098 RowBox[{"2", ",", 1099 FractionBox[ 1100 RowBox[{"2", " ", "c", " ", 1101 RowBox[{"(", 1102 RowBox[{"1", "+", "x"}], ")"}]}], 1103 RowBox[{ 1104 RowBox[{"-", "b"}], "+", 1105 RowBox[{"2", " ", "c"}], "+", 1106 SqrtBox[ 1107 RowBox[{ 1108 SuperscriptBox["b", "2"], "-", 1109 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}], 1110 RowBox[{"2", " ", 1111 SqrtBox[ 1112 RowBox[{ 1113 SuperscriptBox["b", "2"], "-", 1114 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]], "Output", 1115 CellChangeTimes->{ 1116 3.490147718931693*^9, {3.490209000507742*^9, 3.490209006451352*^9}}], 1117 1118Cell[BoxData[ 1119 RowBox[{ 1120 RowBox[{"\[Integral]", 1121 RowBox[{ 1122 FractionBox[ 1123 RowBox[{"2", " ", "c", " ", 1124 RowBox[{"ArcTanh", "[", "x", "]"}]}], 1125 RowBox[{ 1126 SqrtBox[ 1127 RowBox[{ 1128 SuperscriptBox["b", "2"], "-", 1129 RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 1130 RowBox[{"(", 1131 RowBox[{"b", "-", 1132 SqrtBox[ 1133 RowBox[{ 1134 SuperscriptBox["b", "2"], "-", 1135 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1136 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}]}]], 1137 RowBox[{"\[DifferentialD]", "x"}]}]}], "-", 1138 RowBox[{"\[Integral]", 1139 RowBox[{ 1140 FractionBox[ 1141 RowBox[{"2", " ", "c", " ", 1142 RowBox[{"ArcTanh", "[", "x", "]"}]}], 1143 RowBox[{ 1144 SqrtBox[ 1145 RowBox[{ 1146 SuperscriptBox["b", "2"], "-", 1147 RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 1148 RowBox[{"(", 1149 RowBox[{"b", "+", 1150 SqrtBox[ 1151 RowBox[{ 1152 SuperscriptBox["b", "2"], "-", 1153 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1154 RowBox[{"2", " ", "c", " ", "x"}]}], ")"}]}]], 1155 RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", 1156 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1157 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 1158 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 1159 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 1160 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 1161 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 1162 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 1163 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 1164 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 1165 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 1166 3.490146130994504*^9, 3.4901467369699683`*^9, {3.4901468104616976`*^9, 1167 3.490146825531324*^9}, {3.490147050252119*^9, 3.4901470877857847`*^9}, { 1168 3.4901476946736507`*^9, 3.49014770007126*^9}, {3.4902090038305483`*^9, 1169 3.4902090160609694`*^9}, {3.4902094023020477`*^9, 3.490209439913714*^9}}, 1170 Background->GrayLevel[0.85]], 1171 1172Cell[BoxData[ 1173 RowBox[{ 1174 FractionBox["1", 1175 RowBox[{"2", " ", 1176 SqrtBox[ 1177 RowBox[{ 1178 SuperscriptBox["b", "2"], "-", 1179 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], 1180 RowBox[{"(", 1181 RowBox[{ 1182 SuperscriptBox[ 1183 RowBox[{"ArcTanh", "[", 1184 FractionBox[ 1185 RowBox[{"b", "-", 1186 SqrtBox[ 1187 RowBox[{ 1188 SuperscriptBox["b", "2"], "-", 1189 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1190 RowBox[{"2", " ", "c"}]], "]"}], "2"], "-", 1191 SuperscriptBox[ 1192 RowBox[{"ArcTanh", "[", 1193 FractionBox[ 1194 RowBox[{"b", "+", 1195 SqrtBox[ 1196 RowBox[{ 1197 SuperscriptBox["b", "2"], "-", 1198 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1199 RowBox[{"2", " ", "c"}]], "]"}], "2"], "+", 1200 RowBox[{"2", " ", 1201 RowBox[{"ArcTanh", "[", 1202 FractionBox[ 1203 RowBox[{"b", "-", 1204 SqrtBox[ 1205 RowBox[{ 1206 SuperscriptBox["b", "2"], "-", 1207 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1208 RowBox[{"2", " ", "c"}]], "]"}], " ", 1209 RowBox[{"ArcTanh", "[", "x", "]"}]}], "-", 1210 RowBox[{"2", " ", 1211 RowBox[{"ArcTanh", "[", 1212 FractionBox[ 1213 RowBox[{"b", "+", 1214 SqrtBox[ 1215 RowBox[{ 1216 SuperscriptBox["b", "2"], "-", 1217 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1218 RowBox[{"2", " ", "c"}]], "]"}], " ", 1219 RowBox[{"ArcTanh", "[", "x", "]"}]}], "+", 1220 RowBox[{"2", " ", 1221 RowBox[{"ArcTanh", "[", 1222 FractionBox[ 1223 RowBox[{"b", "-", 1224 SqrtBox[ 1225 RowBox[{ 1226 SuperscriptBox["b", "2"], "-", 1227 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1228 RowBox[{"2", " ", "c"}]], "]"}], " ", 1229 RowBox[{"Log", "[", 1230 RowBox[{"1", "-", 1231 SuperscriptBox["\[ExponentialE]", 1232 RowBox[{ 1233 RowBox[{"-", "2"}], " ", 1234 RowBox[{"(", 1235 RowBox[{ 1236 RowBox[{"ArcTanh", "[", 1237 FractionBox[ 1238 RowBox[{"b", "-", 1239 SqrtBox[ 1240 RowBox[{ 1241 SuperscriptBox["b", "2"], "-", 1242 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1243 RowBox[{"2", " ", "c"}]], "]"}], "+", 1244 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "+", 1245 RowBox[{"2", " ", 1246 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1247 RowBox[{"Log", "[", 1248 RowBox[{"1", "-", 1249 SuperscriptBox["\[ExponentialE]", 1250 RowBox[{ 1251 RowBox[{"-", "2"}], " ", 1252 RowBox[{"(", 1253 RowBox[{ 1254 RowBox[{"ArcTanh", "[", 1255 FractionBox[ 1256 RowBox[{"b", "-", 1257 SqrtBox[ 1258 RowBox[{ 1259 SuperscriptBox["b", "2"], "-", 1260 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1261 RowBox[{"2", " ", "c"}]], "]"}], "+", 1262 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "-", 1263 RowBox[{"2", " ", 1264 RowBox[{"ArcTanh", "[", 1265 FractionBox[ 1266 RowBox[{"b", "+", 1267 SqrtBox[ 1268 RowBox[{ 1269 SuperscriptBox["b", "2"], "-", 1270 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1271 RowBox[{"2", " ", "c"}]], "]"}], " ", 1272 RowBox[{"Log", "[", 1273 RowBox[{"1", "-", 1274 SuperscriptBox["\[ExponentialE]", 1275 RowBox[{ 1276 RowBox[{"-", "2"}], " ", 1277 RowBox[{"(", 1278 RowBox[{ 1279 RowBox[{"ArcTanh", "[", 1280 FractionBox[ 1281 RowBox[{"b", "+", 1282 SqrtBox[ 1283 RowBox[{ 1284 SuperscriptBox["b", "2"], "-", 1285 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1286 RowBox[{"2", " ", "c"}]], "]"}], "+", 1287 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "-", 1288 RowBox[{"2", " ", 1289 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1290 RowBox[{"Log", "[", 1291 RowBox[{"1", "-", 1292 SuperscriptBox["\[ExponentialE]", 1293 RowBox[{ 1294 RowBox[{"-", "2"}], " ", 1295 RowBox[{"(", 1296 RowBox[{ 1297 RowBox[{"ArcTanh", "[", 1298 FractionBox[ 1299 RowBox[{"b", "+", 1300 SqrtBox[ 1301 RowBox[{ 1302 SuperscriptBox["b", "2"], "-", 1303 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1304 RowBox[{"2", " ", "c"}]], "]"}], "+", 1305 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], "+", 1306 RowBox[{"2", " ", 1307 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1308 RowBox[{"Log", "[", 1309 RowBox[{"\[ImaginaryI]", " ", 1310 RowBox[{"Sinh", "[", 1311 RowBox[{ 1312 RowBox[{"ArcTanh", "[", 1313 FractionBox[ 1314 RowBox[{"b", "-", 1315 SqrtBox[ 1316 RowBox[{ 1317 SuperscriptBox["b", "2"], "-", 1318 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1319 RowBox[{"2", " ", "c"}]], "]"}], "+", 1320 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 1321 RowBox[{"2", " ", 1322 RowBox[{"ArcTanh", "[", 1323 FractionBox[ 1324 RowBox[{"b", "-", 1325 SqrtBox[ 1326 RowBox[{ 1327 SuperscriptBox["b", "2"], "-", 1328 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1329 RowBox[{"2", " ", "c"}]], "]"}], " ", 1330 RowBox[{"Log", "[", 1331 RowBox[{"2", " ", "\[ImaginaryI]", " ", 1332 RowBox[{"Sinh", "[", 1333 RowBox[{ 1334 RowBox[{"ArcTanh", "[", 1335 FractionBox[ 1336 RowBox[{"b", "-", 1337 SqrtBox[ 1338 RowBox[{ 1339 SuperscriptBox["b", "2"], "-", 1340 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1341 RowBox[{"2", " ", "c"}]], "]"}], "+", 1342 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 1343 RowBox[{"2", " ", 1344 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1345 RowBox[{"Log", "[", 1346 RowBox[{"2", " ", "\[ImaginaryI]", " ", 1347 RowBox[{"Sinh", "[", 1348 RowBox[{ 1349 RowBox[{"ArcTanh", "[", 1350 FractionBox[ 1351 RowBox[{"b", "-", 1352 SqrtBox[ 1353 RowBox[{ 1354 SuperscriptBox["b", "2"], "-", 1355 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1356 RowBox[{"2", " ", "c"}]], "]"}], "+", 1357 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 1358 RowBox[{"2", " ", 1359 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1360 RowBox[{"Log", "[", 1361 RowBox[{"\[ImaginaryI]", " ", 1362 RowBox[{"Sinh", "[", 1363 RowBox[{ 1364 RowBox[{"ArcTanh", "[", 1365 FractionBox[ 1366 RowBox[{"b", "+", 1367 SqrtBox[ 1368 RowBox[{ 1369 SuperscriptBox["b", "2"], "-", 1370 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1371 RowBox[{"2", " ", "c"}]], "]"}], "+", 1372 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "+", 1373 RowBox[{"2", " ", 1374 RowBox[{"ArcTanh", "[", 1375 FractionBox[ 1376 RowBox[{"b", "+", 1377 SqrtBox[ 1378 RowBox[{ 1379 SuperscriptBox["b", "2"], "-", 1380 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1381 RowBox[{"2", " ", "c"}]], "]"}], " ", 1382 RowBox[{"Log", "[", 1383 RowBox[{"2", " ", "\[ImaginaryI]", " ", 1384 RowBox[{"Sinh", "[", 1385 RowBox[{ 1386 RowBox[{"ArcTanh", "[", 1387 FractionBox[ 1388 RowBox[{"b", "+", 1389 SqrtBox[ 1390 RowBox[{ 1391 SuperscriptBox["b", "2"], "-", 1392 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1393 RowBox[{"2", " ", "c"}]], "]"}], "+", 1394 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "+", 1395 RowBox[{"2", " ", 1396 RowBox[{"ArcTanh", "[", "x", "]"}], " ", 1397 RowBox[{"Log", "[", 1398 RowBox[{"2", " ", "\[ImaginaryI]", " ", 1399 RowBox[{"Sinh", "[", 1400 RowBox[{ 1401 RowBox[{"ArcTanh", "[", 1402 FractionBox[ 1403 RowBox[{"b", "+", 1404 SqrtBox[ 1405 RowBox[{ 1406 SuperscriptBox["b", "2"], "-", 1407 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1408 RowBox[{"2", " ", "c"}]], "]"}], "+", 1409 RowBox[{"ArcTanh", "[", "x", "]"}]}], "]"}]}], "]"}]}], "-", 1410 RowBox[{"PolyLog", "[", 1411 RowBox[{"2", ",", 1412 SuperscriptBox["\[ExponentialE]", 1413 RowBox[{ 1414 RowBox[{"-", "2"}], " ", 1415 RowBox[{"(", 1416 RowBox[{ 1417 RowBox[{"ArcTanh", "[", 1418 FractionBox[ 1419 RowBox[{"b", "-", 1420 SqrtBox[ 1421 RowBox[{ 1422 SuperscriptBox["b", "2"], "-", 1423 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1424 RowBox[{"2", " ", "c"}]], "]"}], "+", 1425 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}], "+", 1426 RowBox[{"PolyLog", "[", 1427 RowBox[{"2", ",", 1428 SuperscriptBox["\[ExponentialE]", 1429 RowBox[{ 1430 RowBox[{"-", "2"}], " ", 1431 RowBox[{"(", 1432 RowBox[{ 1433 RowBox[{"ArcTanh", "[", 1434 FractionBox[ 1435 RowBox[{"b", "+", 1436 SqrtBox[ 1437 RowBox[{ 1438 SuperscriptBox["b", "2"], "-", 1439 RowBox[{"4", " ", "a", " ", "c"}]}]]}], 1440 RowBox[{"2", " ", "c"}]], "]"}], "+", 1441 RowBox[{"ArcTanh", "[", "x", "]"}]}], ")"}]}]]}], "]"}]}], 1442 ")"}]}]], "Output", 1443 CellChangeTimes->{3.4902094306784973`*^9}] 1444}, Closed]], 1445 1446Cell[CellGroupData[{ 1447 1448Cell[TextData[{ 1449 StyleBox["Maple", 1450 FontSlant->"Italic"], 1451 " is able to integrate the expression:" 1452}], "Subsubtitle", 1453 CellDingbat->"\[FilledSmallSquare]", 1454 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1455 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 1456 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 1457 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 1458 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 1459 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 1460 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 1461 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 1462 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 1463 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 1464 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 1465 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 1466 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 1467 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 1468 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 1469 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 1470 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 1471 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 1472 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 1473 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 1474 3.4902097140217953`*^9, 3.4902097576862717`*^9}}], 1475 1476Cell[BoxData[ 1477 RowBox[{ 1478 RowBox[{"int", 1479 RowBox[{"(", 1480 RowBox[{ 1481 RowBox[{"arctanh", 1482 RowBox[{ 1483 RowBox[{"(", "x", ")"}], "/", 1484 RowBox[{"(", 1485 RowBox[{"a", "+", 1486 RowBox[{"b", "*", "x"}], "+", 1487 RowBox[{"c", "*", 1488 RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], ")"}]}], 1489 ";"}]], "Input", 1490 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1491 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 1492 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 1493 3.4553480557261343`*^9}, {3.455348571317518*^9, 3.455348579389125*^9}, { 1494 3.455348631163573*^9, 3.455348631474019*^9}, {3.4834816003868046`*^9, 1495 3.4834816024597855`*^9}, {3.4901471509190955`*^9, 3.490147160887513*^9}, 1496 3.490147464479646*^9, 3.4901477330809183`*^9}, 1497 Background->GrayLevel[0.85]], 1498 1499Cell[BoxData[ 1500 RowBox[{ 1501 FractionBox[ 1502 RowBox[{ 1503 RowBox[{"Log", "[", 1504 RowBox[{"1", "+", "x"}], "]"}], " ", 1505 RowBox[{"Log", "[", 1506 FractionBox[ 1507 RowBox[{"b", "-", 1508 SqrtBox[ 1509 RowBox[{ 1510 SuperscriptBox["b", "2"], "-", 1511 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1512 RowBox[{"2", " ", "c", " ", "x"}]}], 1513 RowBox[{"b", "-", 1514 RowBox[{"2", " ", "c"}], "-", 1515 SqrtBox[ 1516 RowBox[{ 1517 SuperscriptBox["b", "2"], "-", 1518 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "]"}]}], 1519 RowBox[{"2", " ", 1520 SqrtBox[ 1521 RowBox[{ 1522 SuperscriptBox["b", "2"], "-", 1523 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1524 FractionBox[ 1525 RowBox[{ 1526 RowBox[{"Log", "[", 1527 RowBox[{"1", "-", "x"}], "]"}], " ", 1528 RowBox[{"Log", "[", 1529 RowBox[{"-", 1530 FractionBox[ 1531 RowBox[{"b", "-", 1532 SqrtBox[ 1533 RowBox[{ 1534 SuperscriptBox["b", "2"], "-", 1535 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1536 RowBox[{"2", " ", "c", " ", "x"}]}], 1537 RowBox[{ 1538 RowBox[{"-", "b"}], "-", 1539 RowBox[{"2", " ", "c"}], "+", 1540 SqrtBox[ 1541 RowBox[{ 1542 SuperscriptBox["b", "2"], "-", 1543 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 1544 RowBox[{"2", " ", 1545 SqrtBox[ 1546 RowBox[{ 1547 SuperscriptBox["b", "2"], "-", 1548 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1549 FractionBox[ 1550 RowBox[{ 1551 RowBox[{"Log", "[", 1552 RowBox[{"1", "-", "x"}], "]"}], " ", 1553 RowBox[{"Log", "[", 1554 RowBox[{"-", 1555 FractionBox[ 1556 RowBox[{"b", "+", 1557 SqrtBox[ 1558 RowBox[{ 1559 SuperscriptBox["b", "2"], "-", 1560 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1561 RowBox[{"2", " ", "c", " ", "x"}]}], 1562 RowBox[{ 1563 RowBox[{"-", "b"}], "-", 1564 RowBox[{"2", " ", "c"}], "-", 1565 SqrtBox[ 1566 RowBox[{ 1567 SuperscriptBox["b", "2"], "-", 1568 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}], "]"}]}], 1569 RowBox[{"2", " ", 1570 SqrtBox[ 1571 RowBox[{ 1572 SuperscriptBox["b", "2"], "-", 1573 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1574 FractionBox[ 1575 RowBox[{ 1576 RowBox[{"Log", "[", 1577 RowBox[{"1", "+", "x"}], "]"}], " ", 1578 RowBox[{"Log", "[", 1579 FractionBox[ 1580 RowBox[{"b", "+", 1581 SqrtBox[ 1582 RowBox[{ 1583 SuperscriptBox["b", "2"], "-", 1584 RowBox[{"4", " ", "a", " ", "c"}]}]], "+", 1585 RowBox[{"2", " ", "c", " ", "x"}]}], 1586 RowBox[{"b", "-", 1587 RowBox[{"2", " ", "c"}], "+", 1588 SqrtBox[ 1589 RowBox[{ 1590 SuperscriptBox["b", "2"], "-", 1591 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "]"}]}], 1592 RowBox[{"2", " ", 1593 SqrtBox[ 1594 RowBox[{ 1595 SuperscriptBox["b", "2"], "-", 1596 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1597 FractionBox[ 1598 RowBox[{"PolyLog", "[", 1599 RowBox[{"2", ",", 1600 RowBox[{"-", 1601 FractionBox[ 1602 RowBox[{"2", " ", "c", " ", 1603 RowBox[{"(", 1604 RowBox[{"1", "-", "x"}], ")"}]}], 1605 RowBox[{ 1606 RowBox[{"-", "b"}], "-", 1607 RowBox[{"2", " ", "c"}], "-", 1608 SqrtBox[ 1609 RowBox[{ 1610 SuperscriptBox["b", "2"], "-", 1611 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1612 RowBox[{"2", " ", 1613 SqrtBox[ 1614 RowBox[{ 1615 SuperscriptBox["b", "2"], "-", 1616 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1617 FractionBox[ 1618 RowBox[{"PolyLog", "[", 1619 RowBox[{"2", ",", 1620 RowBox[{"-", 1621 FractionBox[ 1622 RowBox[{"2", " ", "c", " ", 1623 RowBox[{"(", 1624 RowBox[{"1", "-", "x"}], ")"}]}], 1625 RowBox[{ 1626 RowBox[{"-", "b"}], "-", 1627 RowBox[{"2", " ", "c"}], "+", 1628 SqrtBox[ 1629 RowBox[{ 1630 SuperscriptBox["b", "2"], "-", 1631 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1632 RowBox[{"2", " ", 1633 SqrtBox[ 1634 RowBox[{ 1635 SuperscriptBox["b", "2"], "-", 1636 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "+", 1637 FractionBox[ 1638 RowBox[{"PolyLog", "[", 1639 RowBox[{"2", ",", 1640 RowBox[{"-", 1641 FractionBox[ 1642 RowBox[{"2", " ", "c", " ", 1643 RowBox[{"(", 1644 RowBox[{"1", "+", "x"}], ")"}]}], 1645 RowBox[{"b", "-", 1646 RowBox[{"2", " ", "c"}], "-", 1647 SqrtBox[ 1648 RowBox[{ 1649 SuperscriptBox["b", "2"], "-", 1650 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1651 RowBox[{"2", " ", 1652 SqrtBox[ 1653 RowBox[{ 1654 SuperscriptBox["b", "2"], "-", 1655 RowBox[{"4", " ", "a", " ", "c"}]}]]}]], "-", 1656 FractionBox[ 1657 RowBox[{"PolyLog", "[", 1658 RowBox[{"2", ",", 1659 RowBox[{"-", 1660 FractionBox[ 1661 RowBox[{"2", " ", "c", " ", 1662 RowBox[{"(", 1663 RowBox[{"1", "+", "x"}], ")"}]}], 1664 RowBox[{"b", "-", 1665 RowBox[{"2", " ", "c"}], "+", 1666 SqrtBox[ 1667 RowBox[{ 1668 SuperscriptBox["b", "2"], "-", 1669 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]}], "]"}], 1670 RowBox[{"2", " ", 1671 SqrtBox[ 1672 RowBox[{ 1673 SuperscriptBox["b", "2"], "-", 1674 RowBox[{"4", " ", "a", " ", "c"}]}]]}]]}]], "Output", 1675 CellChangeTimes->{ 1676 3.4553471757908497`*^9, 3.455347464195555*^9, 3.4553478642307777`*^9, { 1677 3.4553479001924877`*^9, 3.455347905069501*^9}, 3.455348519012307*^9, 1678 3.4834815773737135`*^9, {3.4901458393519917`*^9, 3.4901458654976377`*^9}, { 1679 3.4901467707752275`*^9, 3.4901467755488358`*^9}, 3.4901469140458794`*^9, 1680 3.490147678402822*^9}] 1681}, Closed]], 1682 1683Cell["", "Text"], 1684 1685Cell["\<\ 1686Note that these systems give similar results to the above for the hyperbolic \ 1687arccotangent function.\ 1688\>", "Subsubtitle", 1689 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 1690 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 1691 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 1692 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 1693 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 1694 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 1695 3.444282629461632*^9}, {3.4443499318130817`*^9, 3.4443499392037086`*^9}, { 1696 3.4443502123965406`*^9, 3.444350220287888*^9}, {3.4466877703003297`*^9, 1697 3.446687773284621*^9}, {3.4466878378674865`*^9, 3.446687845468416*^9}, { 1698 3.446688019789077*^9, 3.4466880241152973`*^9}, {3.446693423609389*^9, 1699 3.4466934479243517`*^9}, {3.446694023131459*^9, 3.4466940235821075`*^9}, { 1700 3.4468670078489923`*^9, 3.42301075253125*^9}, 3.423171765484375*^9, { 1701 3.455324754760992*^9, 3.4553247817497997`*^9}, 3.4821992623952847`*^9, { 1702 3.482716792168875*^9, 3.482716823894494*^9}, {3.483203401445797*^9, 1703 3.4832034193315153`*^9}, {3.4832034600500655`*^9, 3.483203532123702*^9}, { 1704 3.4832040958843503`*^9, 3.4832041044566765`*^9}, 3.483204218670909*^9, 1705 3.4833920379275217`*^9, {3.483392125182989*^9, 3.4833921454921923`*^9}, { 1706 3.48339221312945*^9, 3.483392219528651*^9}, {3.483392987983635*^9, 1707 3.4833931408334227`*^9}, {3.4833932165322723`*^9, 3.483393223472251*^9}, { 1708 3.483395056508027*^9, 3.4833950705081587`*^9}, {3.4833959109166064`*^9, 1709 3.483395925577688*^9}, {3.483395964633848*^9, 3.4833959819287167`*^9}, { 1710 3.4833961127468243`*^9, 3.483396122781253*^9}, 3.490048900827781*^9, 1711 3.4900489594451337`*^9, {3.4902128221680546`*^9, 3.4902128464728975`*^9}, { 1712 3.4902329319281735`*^9, 3.490232932520975*^9}}], 1713 1714Cell["", "PageBreak", 1715 PageBreakBelow->True] 1716}, Open ]], 1717 1718Cell[CellGroupData[{ 1719 1720Cell["Inverse Hyperbolic Function Integration Problem 3", "Title", 1721 CellChangeTimes->{{3.4821873279145265`*^9, 3.4821873318001137`*^9}, { 1722 3.4821882475168495`*^9, 3.4821882614268513`*^9}, {3.4821886510671263`*^9, 1723 3.482188651607904*^9}, 3.482188721117854*^9, 3.4821899389389954`*^9, { 1724 3.482190071910198*^9, 3.482190073482459*^9}, 3.482190124175352*^9, 1725 3.4821906623291793`*^9, {3.482196017679613*^9, 3.482196050626989*^9}, { 1726 3.482196093678894*^9, 3.482196093889197*^9}, {3.4821961644606733`*^9, 1727 3.4821962071921186`*^9}, {3.4821968011762257`*^9, 3.482196804761381*^9}, 1728 3.482196871106781*^9, {3.4821973084456434`*^9, 3.482197309066536*^9}, { 1729 3.4821982364300194`*^9, 3.482198240976557*^9}, 3.482198357524144*^9, { 1730 3.4821988021534896`*^9, 3.4821988078316545`*^9}, 3.4821989164378223`*^9, { 1731 3.482198948964594*^9, 3.4821989770249424`*^9}, 3.4821998639402637`*^9, 1732 3.4902117046320915`*^9}, 1733 TextAlignment->Center, 1734 FontFamily->"Arial", 1735 FontSize->24], 1736 1737Cell[BoxData[ 1738 RowBox[{"\[Integral]", 1739 RowBox[{ 1740 FractionBox[ 1741 RowBox[{"ArcTanh", "[", 1742 RowBox[{"a", " ", 1743 SuperscriptBox["x", "n"]}], "]"}], "x"], 1744 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subtitle", 1745 CellDingbat->None, 1746 CellChangeTimes->{ 1747 3.478743829361326*^9, {3.47874445595232*^9, 3.4787444723959646`*^9}, 1748 3.478744815539381*^9, 3.4787977389071245`*^9, {3.4788096384077663`*^9, 1749 3.4788096532190638`*^9}, {3.4821753823697634`*^9, 3.482175431460352*^9}, { 1750 3.482175515541254*^9, 3.482175519006237*^9}, 3.4821881383098173`*^9, 1751 3.482197249951533*^9, 3.482198265491808*^9, 3.482198311638163*^9, { 1752 3.4821989115307665`*^9, 3.4821989119012995`*^9}, 3.482199441332584*^9, { 1753 3.4834815653163757`*^9, 3.4834815659572973`*^9}, 3.490148296585108*^9}, 1754 TextAlignment->Center, 1755 FontFamily->"Courier New", 1756 FontSize->20, 1757 FontWeight->"Bold"], 1758 1759Cell[CellGroupData[{ 1760 1761Cell[TextData[{ 1762 StyleBox["Rubi", 1763 FontSlant->"Italic"], 1764 " returns the polylog form of the rule for all symbolic and numeric n:" 1765}], "Subsubtitle", 1766 CellDingbat->"\[FilledSmallSquare]", 1767 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1768 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 1769 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 1770 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 1771 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 1772 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 1773 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 1774 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 1775 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 1776 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 1777 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 1778 3.423332643984375*^9, 3.42333264684375*^9}, 3.423341072609375*^9, 1779 3.4561670576690483`*^9, 3.4791559290778675`*^9, 3.482175999467106*^9, { 1780 3.482176939178344*^9, 3.482176943534608*^9}, 3.4821770265840273`*^9, { 1781 3.4898048224003077`*^9, 3.4898048266603136`*^9}, {3.4898052234408693`*^9, 1782 3.489805239230891*^9}, {3.4898052800709486`*^9, 3.4898052802509484`*^9}, { 1783 3.489807179413607*^9, 3.489807180423609*^9}, 3.4898795383741636`*^9, 1784 3.4901487258354616`*^9, {3.4901490814872866`*^9, 3.4901490825012884`*^9}, { 1785 3.490150217041281*^9, 3.490150235308913*^9}, {3.490150285229001*^9, 1786 3.490150291125811*^9}, {3.4901503339790864`*^9, 3.490150396862797*^9}}], 1787 1788Cell[BoxData[ 1789 RowBox[{"Int", "[", 1790 RowBox[{ 1791 FractionBox[ 1792 RowBox[{"ArcTanh", "[", 1793 RowBox[{"a", " ", 1794 SuperscriptBox["x", "n"]}], "]"}], "x"], ",", " ", "x"}], 1795 "]"}]], "Input", 1796 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1797 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 1798 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349954165222*^9, 1799 3.44434996146572*^9}, {3.4443499933215265`*^9, 3.423171727*^9}, { 1800 3.423616874609375*^9, 3.42361688925*^9}, {3.455334181485957*^9, 1801 3.455334194264331*^9}, {3.4553471254684896`*^9, 3.455347126660203*^9}, { 1802 3.455347168590496*^9, 3.455347170423131*^9}, {3.4553474605803566`*^9, 1803 3.4553474615517535`*^9}, {3.4553478671349535`*^9, 3.4553479098263407`*^9}, 1804 3.4553485173899746`*^9, {3.483481569372208*^9, 3.4834815699029713`*^9}}, 1805 Background->GrayLevel[0.85]], 1806 1807Cell[BoxData[ 1808 RowBox[{ 1809 RowBox[{"-", 1810 FractionBox[ 1811 RowBox[{"PolyLog", "[", 1812 RowBox[{"2", ",", 1813 RowBox[{ 1814 RowBox[{"-", "a"}], " ", 1815 SuperscriptBox["x", "n"]}]}], "]"}], 1816 RowBox[{"2", " ", "n"}]]}], "+", 1817 FractionBox[ 1818 RowBox[{"PolyLog", "[", 1819 RowBox[{"2", ",", 1820 RowBox[{"a", " ", 1821 SuperscriptBox["x", "n"]}]}], "]"}], 1822 RowBox[{"2", " ", "n"}]]}]], "Output", 1823 CellChangeTimes->{ 1824 3.4553471757908497`*^9, 3.455347464195555*^9, 3.4553478642307777`*^9, { 1825 3.4553479001924877`*^9, 3.455347905069501*^9}, 3.455348519012307*^9, 1826 3.4834815773737135`*^9}], 1827 1828Cell[BoxData[ 1829 RowBox[{"Int", "[", 1830 RowBox[{ 1831 FractionBox[ 1832 RowBox[{"ArcTanh", "[", 1833 RowBox[{"a", " ", 1834 SuperscriptBox["x", "5"]}], "]"}], "x"], ",", " ", "x"}], 1835 "]"}]], "Input", 1836 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1837 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 1838 3.444349843325843*^9, 3.4443498499854193`*^9}, 3.4443499479863377`*^9, { 1839 3.444349991088315*^9, 3.423171727*^9}, {3.42361689675*^9, 1840 3.423616909609375*^9}, 3.455334184320032*^9, {3.4553342246880784`*^9, 1841 3.4553342261301517`*^9}, {3.4553342969019165`*^9, 3.455334298233832*^9}, { 1842 3.4553471997953663`*^9, 3.4553472071859937`*^9}, {3.455347873984803*^9, 1843 3.4553478754368916`*^9}, {3.4553485285460157`*^9, 1844 3.4553485323615026`*^9}, {3.4834815814896317`*^9, 3.483481581910237*^9}}, 1845 Background->GrayLevel[0.85]], 1846 1847Cell[BoxData[ 1848 RowBox[{ 1849 RowBox[{ 1850 RowBox[{"-", 1851 FractionBox["1", "10"]}], " ", 1852 RowBox[{"PolyLog", "[", 1853 RowBox[{"2", ",", 1854 RowBox[{ 1855 RowBox[{"-", "a"}], " ", 1856 SuperscriptBox["x", "5"]}]}], "]"}]}], "+", 1857 RowBox[{ 1858 FractionBox["1", "10"], " ", 1859 RowBox[{"PolyLog", "[", 1860 RowBox[{"2", ",", 1861 RowBox[{"a", " ", 1862 SuperscriptBox["x", "5"]}]}], "]"}]}]}]], "Output", 1863 CellChangeTimes->{ 1864 3.4553468542785378`*^9, {3.4553472025493264`*^9, 3.45534720758657*^9}, 1865 3.4553478720920815`*^9, 3.455348533112582*^9, 3.4834815827814894`*^9}] 1866}, Closed]], 1867 1868Cell[CellGroupData[{ 1869 1870Cell[TextData[{ 1871 StyleBox["Mathematica", 1872 FontSlant->"Italic"], 1873 " returns the hypergeometric form of the rule for symbolic n, but the \ 1874polylog form for numeric n:" 1875}], "Subsubtitle", 1876 CellDingbat->"\[FilledSmallSquare]", 1877 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1878 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 1879 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 1880 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 1881 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 1882 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 1883 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 1884 3.4443500256179667`*^9}, {3.4466836176090527`*^9, 3.446683618790752*^9}, { 1885 3.4466950388319645`*^9, 3.423171727*^9}, {3.423617028171875*^9, 1886 3.4236170379375*^9}, {3.4553479526979876`*^9, 3.4553479664477587`*^9}, 1887 3.4553488631171055`*^9, {3.455349270663128*^9, 3.4553492792855263`*^9}, 1888 3.4821993033942385`*^9, {3.4901499064135356`*^9, 3.4901500044597073`*^9}, { 1889 3.4901500588102036`*^9, 3.4901500767190347`*^9}, {3.4901501385419436`*^9, 1890 3.490150177666812*^9}, {3.490150422587242*^9, 3.490150459262906*^9}}], 1891 1892Cell[BoxData[ 1893 RowBox[{"\[Integral]", 1894 RowBox[{ 1895 FractionBox[ 1896 RowBox[{"ArcTanh", "[", 1897 RowBox[{"a", " ", 1898 SuperscriptBox["x", "n"]}], "]"}], "x"], 1899 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 1900 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1901 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 1902 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 1903 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 1904 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 1905 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 1906 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 1907 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 1908 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 1909 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}}, 1910 Background->GrayLevel[0.85]], 1911 1912Cell[BoxData[ 1913 FractionBox[ 1914 RowBox[{"a", " ", 1915 SuperscriptBox["x", "n"], " ", 1916 RowBox[{"HypergeometricPFQ", "[", 1917 RowBox[{ 1918 RowBox[{"{", 1919 RowBox[{ 1920 FractionBox["1", "2"], ",", 1921 FractionBox["1", "2"], ",", "1"}], "}"}], ",", 1922 RowBox[{"{", 1923 RowBox[{ 1924 FractionBox["3", "2"], ",", 1925 FractionBox["3", "2"]}], "}"}], ",", 1926 RowBox[{ 1927 SuperscriptBox["a", "2"], " ", 1928 SuperscriptBox["x", 1929 RowBox[{"2", " ", "n"}]]}]}], "]"}]}], "n"]], "Output", 1930 CellChangeTimes->{3.4553492672882752`*^9, 3.4834815917443776`*^9}], 1931 1932Cell[BoxData[ 1933 RowBox[{"\[Integral]", 1934 RowBox[{ 1935 FractionBox[ 1936 RowBox[{"ArcTanh", "[", 1937 RowBox[{"a", " ", 1938 SuperscriptBox["x", "5"]}], "]"}], "x"], 1939 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 1940 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1941 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 1942 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 1943 3.4443498869285407`*^9}, {3.4443499715902786`*^9, 3.423171727*^9}, { 1944 3.423616902765625*^9, 3.423616905984375*^9}, {3.455346949345237*^9, 1945 3.4553469519389668`*^9}, {3.455347010242803*^9, 3.455347011544675*^9}, { 1946 3.4553470654321613`*^9, 3.45534706579268*^9}, {3.4553470967471905`*^9, 1947 3.4553470986899843`*^9}, {3.455347239051814*^9, 3.45534724229648*^9}, { 1948 3.4553474305271425`*^9, 3.4553474314484673`*^9}, {3.455347940029771*^9, 1949 3.45534794114137*^9}, {3.455348107600726*^9, 3.4553481090828576`*^9}, 1950 3.4553485570770416`*^9, {3.483481595079173*^9, 3.4834815954396915`*^9}, { 1951 3.490232023371378*^9, 3.4902320307345905`*^9}}, 1952 Background->GrayLevel[0.85]], 1953 1954Cell[BoxData[ 1955 RowBox[{ 1956 RowBox[{ 1957 RowBox[{"-", 1958 FractionBox["1", "10"]}], " ", 1959 RowBox[{"PolyLog", "[", 1960 RowBox[{"2", ",", 1961 RowBox[{ 1962 RowBox[{"-", "a"}], " ", 1963 SuperscriptBox["x", "5"]}]}], "]"}]}], "+", 1964 RowBox[{ 1965 FractionBox["1", "10"], " ", 1966 RowBox[{"PolyLog", "[", 1967 RowBox[{"2", ",", 1968 RowBox[{"a", " ", 1969 SuperscriptBox["x", "5"]}]}], "]"}]}]}]], "Output", 1970 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 1971 CellChangeTimes->{ 1972 3.44434988769965*^9, {3.4466836278337555`*^9, 3.423171727*^9}, 1973 3.4236170036875*^9, 3.455346953070594*^9, 3.455347013477454*^9, 1974 3.4553470664336014`*^9, 3.45534709909056*^9, 3.455347243347992*^9, 1975 3.4553474328304543`*^9, 3.455347941982579*^9, 3.4553485578681793`*^9, 1976 3.483481596000498*^9, 3.4902320261949825`*^9}] 1977}, Closed]], 1978 1979Cell[CellGroupData[{ 1980 1981Cell[TextData[{ 1982 StyleBox["Maple", 1983 FontSlant->"Italic"], 1984 " returns the polylog form of the rule for symbolic n, but an expression not \ 1985in closed-form when n is an integer:" 1986}], "Subsubtitle", 1987 CellDingbat->"\[FilledSmallSquare]", 1988 CellGroupingRules->{GroupTogetherGrouping, 10001.}, 1989 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 1990 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 1991 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 1992 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 1993 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 1994 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 1995 3.444282629461632*^9}, {3.444322558662424*^9, 3.444322586131923*^9}, { 1996 3.4466780286625423`*^9, 3.446678029423637*^9}, {3.4466948967576723`*^9, 1997 3.42317159478125*^9}, 3.423174910453125*^9, {3.423332331546875*^9, 1998 3.423332347125*^9}, {3.423332380203125*^9, 3.42333240928125*^9}, 1999 3.423341072625*^9, 3.4561670576790624`*^9, 3.4821759878804445`*^9, 2000 3.4821761016640577`*^9, 3.4821761392881584`*^9, 3.482176179285672*^9, 2001 3.4821770498975506`*^9, {3.489804505429864*^9, 3.489804512039873*^9}, { 2002 3.4898045424699154`*^9, 3.4898045431099167`*^9}, {3.4898045772899647`*^9, 2003 3.4898046123600135`*^9}, {3.489805011410572*^9, 3.4898050165905795`*^9}, { 2004 3.489806991903345*^9, 3.4898069937533474`*^9}, 3.489879548982182*^9, { 2005 3.4901488261904383`*^9, 3.490148828951643*^9}, {3.4901490397416134`*^9, 2006 3.4901490518472347`*^9}, {3.4901491110805387`*^9, 3.490149127226567*^9}, { 2007 3.490150480338544*^9, 3.490150536857443*^9}, {3.4901506089295692`*^9, 2008 3.490150621830792*^9}}], 2009 2010Cell[BoxData[ 2011 RowBox[{ 2012 RowBox[{"int", 2013 RowBox[{"(", 2014 RowBox[{ 2015 RowBox[{"arctanh", 2016 RowBox[{ 2017 RowBox[{"(", 2018 RowBox[{"a", "*", 2019 RowBox[{"x", "^", "n"}]}], ")"}], "/", "x"}]}], ",", " ", "x"}], 2020 ")"}]}], ";"}]], "Input", 2021 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2022 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 2023 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 2024 3.4553480557261343`*^9}, {3.455348571317518*^9, 3.455348579389125*^9}, { 2025 3.455348631163573*^9, 3.455348631474019*^9}, {3.4834816003868046`*^9, 2026 3.4834816024597855`*^9}}, 2027 Background->GrayLevel[0.85]], 2028 2029Cell[BoxData[ 2030 RowBox[{ 2031 FractionBox[ 2032 RowBox[{"dilog", " ", 2033 RowBox[{"(", 2034 RowBox[{"1", "-", 2035 RowBox[{"a", " ", 2036 SuperscriptBox["x", "n"]}]}], ")"}]}], 2037 RowBox[{"2", " ", "n"}]], "-", 2038 FractionBox[ 2039 RowBox[{"dilog", " ", 2040 RowBox[{"(", 2041 RowBox[{"1", "+", 2042 RowBox[{"a", " ", 2043 SuperscriptBox["x", "n"]}]}], ")"}]}], 2044 RowBox[{"2", " ", "n"}]]}]], "Output", 2045 CellChangeTimes->{3.490148318191146*^9}], 2046 2047Cell[BoxData[ 2048 RowBox[{ 2049 RowBox[{"int", 2050 RowBox[{"(", 2051 RowBox[{ 2052 RowBox[{"arctanh", 2053 RowBox[{ 2054 RowBox[{"(", 2055 RowBox[{"a", "*", 2056 RowBox[{"x", "^", "5"}]}], ")"}], "/", "x"}]}], ",", " ", "x"}], 2057 ")"}]}], ";"}]], "Input", 2058 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2059 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 2060 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 2061 3.4553480685545807`*^9}, {3.455348699371651*^9, 3.4553487024060144`*^9}, { 2062 3.4553490858273473`*^9, 3.4553490905841875`*^9}, {3.4834817652138147`*^9, 2063 3.4834817657846355`*^9}, {3.4834822204383955`*^9, 3.4834822248146877`*^9}}, 2064 Background->GrayLevel[0.85]], 2065 2066Cell[BoxData[ 2067 RowBox[{ 2068 RowBox[{ 2069 RowBox[{"1", "/", "2"}], "*", "ln", 2070 RowBox[{"(", "x", ")"}], "*", "ln", 2071 RowBox[{"(", 2072 RowBox[{"1", "+", 2073 RowBox[{"a", "*", 2074 RowBox[{"x", "^", "5"}]}]}], ")"}]}], "-", 2075 RowBox[{ 2076 RowBox[{"5", "/", "2"}], "*", "a", "*", "sum", 2077 RowBox[{"(", 2078 RowBox[{ 2079 RowBox[{ 2080 RowBox[{ 2081 RowBox[{"1", "/", "5"}], "/", "a"}], "*", 2082 RowBox[{"(", 2083 RowBox[{ 2084 RowBox[{"ln", 2085 RowBox[{"(", "x", ")"}], "*", "ln", 2086 RowBox[{"(", 2087 RowBox[{ 2088 RowBox[{"(", 2089 RowBox[{"_R1", "-", "x"}], ")"}], "/", "_R1"}], ")"}]}], "+", 2090 RowBox[{"dilog", 2091 RowBox[{"(", 2092 RowBox[{ 2093 RowBox[{"(", 2094 RowBox[{"_R1", "-", "x"}], ")"}], "/", "_R1"}], ")"}]}]}], 2095 ")"}]}], ",", 2096 RowBox[{"_R1", "=", 2097 RowBox[{"RootOf", 2098 RowBox[{"(", 2099 RowBox[{ 2100 RowBox[{ 2101 RowBox[{"_Z", "^", "5"}], "*", "a"}], "+", "1"}], ")"}]}]}]}], 2102 ")"}]}], "-", 2103 RowBox[{ 2104 RowBox[{"1", "/", "2"}], "*", "ln", 2105 RowBox[{"(", "x", ")"}], "*", "ln", 2106 RowBox[{"(", 2107 RowBox[{"1", "-", 2108 RowBox[{"a", "*", 2109 RowBox[{"x", "^", "5"}]}]}], ")"}]}], "+", 2110 RowBox[{ 2111 RowBox[{"5", "/", "2"}], "*", "a", "*", "sum", 2112 RowBox[{"(", 2113 RowBox[{ 2114 RowBox[{ 2115 RowBox[{ 2116 RowBox[{"1", "/", "5"}], "/", "a"}], "*", 2117 RowBox[{"(", 2118 RowBox[{ 2119 RowBox[{"ln", 2120 RowBox[{"(", "x", ")"}], "*", "ln", 2121 RowBox[{"(", 2122 RowBox[{ 2123 RowBox[{"(", 2124 RowBox[{"_R1", "-", "x"}], ")"}], "/", "_R1"}], ")"}]}], "+", 2125 RowBox[{"dilog", 2126 RowBox[{"(", 2127 RowBox[{ 2128 RowBox[{"(", 2129 RowBox[{"_R1", "-", "x"}], ")"}], "/", "_R1"}], ")"}]}]}], 2130 ")"}]}], ",", 2131 RowBox[{"_R1", "=", 2132 RowBox[{"RootOf", 2133 RowBox[{"(", 2134 RowBox[{ 2135 RowBox[{ 2136 RowBox[{"_Z", "^", "5"}], "*", "a"}], "-", "1"}], ")"}]}]}]}], 2137 ")"}]}]}]], "Output"] 2138}, Closed]], 2139 2140Cell["", "Text"], 2141 2142Cell["\<\ 2143Note that these systems give similar results to the above for the hyperbolic \ 2144arccotangent function.\ 2145\>", "Subsubtitle", 2146 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 2147 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 2148 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 2149 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 2150 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 2151 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 2152 3.444282629461632*^9}, {3.4443499318130817`*^9, 3.4443499392037086`*^9}, { 2153 3.4443502123965406`*^9, 3.444350220287888*^9}, {3.4466877703003297`*^9, 2154 3.446687773284621*^9}, {3.4466878378674865`*^9, 3.446687845468416*^9}, { 2155 3.446688019789077*^9, 3.4466880241152973`*^9}, {3.446693423609389*^9, 2156 3.4466934479243517`*^9}, {3.446694023131459*^9, 3.4466940235821075`*^9}, { 2157 3.4468670078489923`*^9, 3.42301075253125*^9}, 3.423171765484375*^9, { 2158 3.455324754760992*^9, 3.4553247817497997`*^9}, 3.4821992623952847`*^9, { 2159 3.482716792168875*^9, 3.482716823894494*^9}, {3.483203401445797*^9, 2160 3.4832034193315153`*^9}, {3.4832034600500655`*^9, 3.483203532123702*^9}, { 2161 3.4832040958843503`*^9, 3.4832041044566765`*^9}, 3.483204218670909*^9, 2162 3.4833920379275217`*^9, {3.483392125182989*^9, 3.4833921454921923`*^9}, { 2163 3.48339221312945*^9, 3.483392219528651*^9}, {3.483392987983635*^9, 2164 3.4833931408334227`*^9}, {3.4833932165322723`*^9, 3.483393223472251*^9}, { 2165 3.483395056508027*^9, 3.4833950705081587`*^9}, {3.4833959109166064`*^9, 2166 3.483395925577688*^9}, {3.483395964633848*^9, 3.4833959819287167`*^9}, { 2167 3.4833961127468243`*^9, 3.483396122781253*^9}, 3.490048900827781*^9, 2168 3.4900489594451337`*^9, {3.4902128221680546`*^9, 3.4902128464728975`*^9}, { 2169 3.4902329357189803`*^9, 3.4902329362025814`*^9}}], 2170 2171Cell["", "PageBreak", 2172 PageBreakBelow->True] 2173}, Open ]], 2174 2175Cell[CellGroupData[{ 2176 2177Cell["Inverse Hyperbolic Function Integration Problem 4", "Title", 2178 CellChangeTimes->{{3.4821873279145265`*^9, 3.4821873318001137`*^9}, { 2179 3.4821882475168495`*^9, 3.4821882614268513`*^9}, {3.4821886510671263`*^9, 2180 3.482188651607904*^9}, 3.482188721117854*^9, 3.4821899389389954`*^9, { 2181 3.482190071910198*^9, 3.482190073482459*^9}, 3.482190124175352*^9, 2182 3.4821906623291793`*^9, {3.482196017679613*^9, 3.482196050626989*^9}, { 2183 3.482196093678894*^9, 3.482196093889197*^9}, {3.4821961644606733`*^9, 2184 3.4821962071921186`*^9}, {3.4821968011762257`*^9, 3.482196804761381*^9}, 2185 3.482196871106781*^9, {3.4821973084456434`*^9, 3.482197309066536*^9}, { 2186 3.4821982364300194`*^9, 3.482198240976557*^9}, 3.482198357524144*^9, { 2187 3.4821988021534896`*^9, 3.4821988078316545`*^9}, 3.4821989164378223`*^9, { 2188 3.482198948964594*^9, 3.4821989770249424`*^9}, 3.4821998639402637`*^9, 2189 3.4901457521946383`*^9, 3.4901481926733255`*^9, 3.4902265806362257`*^9}, 2190 TextAlignment->Center, 2191 FontFamily->"Arial", 2192 FontSize->24], 2193 2194Cell[BoxData[ 2195 RowBox[{"\[Integral]", 2196 RowBox[{ 2197 RowBox[{"ArcTanh", "[", 2198 RowBox[{"a", " ", 2199 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}], 2200 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subtitle", 2201 CellDingbat->None, 2202 CellChangeTimes->{ 2203 3.478743829361326*^9, {3.47874445595232*^9, 3.4787444723959646`*^9}, 2204 3.478744815539381*^9, 3.4787977389071245`*^9, {3.4788096384077663`*^9, 2205 3.4788096532190638`*^9}, {3.4821753823697634`*^9, 3.482175431460352*^9}, { 2206 3.482175515541254*^9, 3.482175519006237*^9}, 3.4821881383098173`*^9, 2207 3.482197249951533*^9, 3.482198265491808*^9, 3.482198311638163*^9, { 2208 3.4821989115307665`*^9, 3.4821989119012995`*^9}, 3.482199441332584*^9, { 2209 3.4834815653163757`*^9, 3.4834815659572973`*^9}, {3.4901457904147053`*^9, 2210 3.490145818447955*^9}, {3.490146761836412*^9, 3.490146763115614*^9}, { 2211 3.4901469062926655`*^9, 3.490146908195869*^9}, 3.490147670977209*^9, 2212 3.490148293309102*^9, {3.4902117130873065`*^9, 3.4902117160669117`*^9}, 2213 3.490226617102289*^9}, 2214 TextAlignment->Center, 2215 FontFamily->"Courier New", 2216 FontSize->20, 2217 FontWeight->"Bold"], 2218 2219Cell[CellGroupData[{ 2220 2221Cell[TextData[{ 2222 StyleBox["Rubi", 2223 FontSlant->"Italic"], 2224 " returns a 5 term sum free of the imaginary unit:" 2225}], "Subsubtitle", 2226 CellDingbat->"\[FilledSmallSquare]", 2227 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2228 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 2229 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 2230 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 2231 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 2232 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 2233 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 2234 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 2235 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 2236 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 2237 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 2238 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 2239 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 2240 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 2241 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 2242 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 2243 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 2244 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 2245 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 2246 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 2247 3.490209819789981*^9, 3.4902098250471907`*^9}, {3.4902118069994717`*^9, 2248 3.490211808996275*^9}, {3.4902121317608423`*^9, 3.4902121356608486`*^9}, { 2249 3.4902268166174393`*^9, 3.490226833746269*^9}, {3.490227071847087*^9, 2250 3.490227076917096*^9}}], 2251 2252Cell[BoxData[ 2253 RowBox[{"Int", "[", 2254 RowBox[{ 2255 RowBox[{"ArcTanh", "[", 2256 RowBox[{"a", " ", 2257 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}], ",", " ", "x"}], 2258 "]"}]], "Input", 2259 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2260 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 2261 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349954165222*^9, 2262 3.44434996146572*^9}, {3.4443499933215265`*^9, 3.423171727*^9}, { 2263 3.423616874609375*^9, 3.42361688925*^9}, {3.455334181485957*^9, 2264 3.455334194264331*^9}, {3.4553471254684896`*^9, 3.455347126660203*^9}, { 2265 3.455347168590496*^9, 3.455347170423131*^9}, {3.4553474605803566`*^9, 2266 3.4553474615517535`*^9}, {3.4553478671349535`*^9, 3.4553479098263407`*^9}, 2267 3.4553485173899746`*^9, {3.483481569372208*^9, 3.4834815699029713`*^9}, { 2268 3.4901458288063726`*^9, 3.4901458649828367`*^9}, {3.4901467652216177`*^9, 2269 3.4901467684976234`*^9}, {3.490146910364273*^9, 3.4901469119086757`*^9}, 2270 3.4901476752360163`*^9, {3.4902117428521585`*^9, 3.490211745847364*^9}, { 2271 3.490212063947523*^9, 3.490212065226725*^9}, {3.490212098922784*^9, 2272 3.4902120998275857`*^9}, {3.4902267360344977`*^9, 2273 3.4902267455037146`*^9}, {3.490226895463177*^9, 3.4902269038559923`*^9}}, 2274 Background->GrayLevel[0.85]], 2275 2276Cell[BoxData[ 2277 RowBox[{ 2278 RowBox[{"x", " ", 2279 RowBox[{"ArcTanh", "[", 2280 RowBox[{"a", " ", 2281 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}], "-", 2282 RowBox[{ 2283 FractionBox["1", "2"], " ", "x", " ", 2284 RowBox[{"Log", "[", 2285 RowBox[{"1", "+", 2286 FractionBox[ 2287 RowBox[{ 2288 RowBox[{"(", 2289 RowBox[{"1", "-", 2290 SuperscriptBox["a", "2"]}], ")"}], " ", 2291 SuperscriptBox["\[ExponentialE]", 2292 RowBox[{"2", " ", "x"}]]}], 2293 RowBox[{"1", "-", 2294 RowBox[{"2", " ", "a"}], "+", 2295 SuperscriptBox["a", "2"]}]]}], "]"}]}], "+", 2296 RowBox[{ 2297 FractionBox["1", "2"], " ", "x", " ", 2298 RowBox[{"Log", "[", 2299 RowBox[{"1", "+", 2300 FractionBox[ 2301 RowBox[{ 2302 RowBox[{"(", 2303 RowBox[{"1", "-", 2304 SuperscriptBox["a", "2"]}], ")"}], " ", 2305 SuperscriptBox["\[ExponentialE]", 2306 RowBox[{"2", " ", "x"}]]}], 2307 RowBox[{"1", "+", 2308 RowBox[{"2", " ", "a"}], "+", 2309 SuperscriptBox["a", "2"]}]]}], "]"}]}], "-", 2310 RowBox[{ 2311 FractionBox["1", "4"], " ", 2312 RowBox[{"PolyLog", "[", 2313 RowBox[{"2", ",", 2314 RowBox[{"-", 2315 FractionBox[ 2316 RowBox[{ 2317 RowBox[{"(", 2318 RowBox[{"1", "-", 2319 SuperscriptBox["a", "2"]}], ")"}], " ", 2320 SuperscriptBox["\[ExponentialE]", 2321 RowBox[{"2", " ", "x"}]]}], 2322 RowBox[{"1", "-", 2323 RowBox[{"2", " ", "a"}], "+", 2324 SuperscriptBox["a", "2"]}]]}]}], "]"}]}], "+", 2325 RowBox[{ 2326 FractionBox["1", "4"], " ", 2327 RowBox[{"PolyLog", "[", 2328 RowBox[{"2", ",", 2329 RowBox[{"-", 2330 FractionBox[ 2331 RowBox[{ 2332 RowBox[{"(", 2333 RowBox[{"1", "-", 2334 SuperscriptBox["a", "2"]}], ")"}], " ", 2335 SuperscriptBox["\[ExponentialE]", 2336 RowBox[{"2", " ", "x"}]]}], 2337 RowBox[{"1", "+", 2338 RowBox[{"2", " ", "a"}], "+", 2339 SuperscriptBox["a", "2"]}]]}]}], "]"}]}]}]], "Output", 2340 CellChangeTimes->{{3.490226892015571*^9, 3.4902268967579794`*^9}}] 2341}, Closed]], 2342 2343Cell[CellGroupData[{ 2344 2345Cell[TextData[{ 2346 StyleBox["Mathematica", 2347 FontSlant->"Italic"], 2348 " returns a large complicated expression involving the imaginary unit:" 2349}], "Subsubtitle", 2350 CellDingbat->"\[FilledSmallSquare]", 2351 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2352 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 2353 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 2354 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 2355 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 2356 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 2357 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 2358 3.4443500256179667`*^9}, {3.4466836176090527`*^9, 3.446683618790752*^9}, { 2359 3.4466950388319645`*^9, 3.423171727*^9}, {3.423617028171875*^9, 2360 3.4236170379375*^9}, {3.4553479526979876`*^9, 3.4553479664477587`*^9}, 2361 3.4553488631171055`*^9, {3.455349270663128*^9, 3.4553492792855263`*^9}, 2362 3.4821993033942385`*^9, {3.4901461922558117`*^9, 3.490146250311514*^9}, { 2363 3.490146703164709*^9, 3.4901467180783353`*^9}, {3.4901468663877954`*^9, 2364 3.4901468754358115`*^9}, {3.4902095985815926`*^9, 2365 3.4902096159912233`*^9}, {3.4902096750217266`*^9, 3.4902096759109287`*^9}, 2366 3.490209788418326*^9, {3.4902098449840255`*^9, 3.49020987610608*^9}, { 2367 3.490212150028474*^9, 3.4902121822737303`*^9}, {3.4902269254184294`*^9, 2368 3.4902269328128424`*^9}, {3.4902270625650706`*^9, 3.4902270670578785`*^9}}], 2369 2370Cell[BoxData[ 2371 RowBox[{"\[Integral]", 2372 RowBox[{ 2373 RowBox[{"ArcTanh", "[", 2374 RowBox[{"a", " ", 2375 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}], 2376 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 2377 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2378 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 2379 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 2380 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 2381 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 2382 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 2383 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 2384 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 2385 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, 2386 3.455348542746435*^9, {3.483481589411022*^9, 3.483481589851656*^9}, 2387 3.490146130994504*^9, 3.490146788044458*^9, {3.4901469204886904`*^9, 2388 3.4901469227038946`*^9}, 3.4901476840968323`*^9, {3.4902117640681963`*^9, 2389 3.490211777141019*^9}, {3.49022675445813*^9, 3.490226776422969*^9}}, 2390 Background->GrayLevel[0.85]], 2391 2392Cell[BoxData[ 2393 RowBox[{ 2394 RowBox[{"x", " ", 2395 RowBox[{"ArcTanh", "[", 2396 RowBox[{"a", " ", 2397 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}], "-", 2398 RowBox[{ 2399 FractionBox["1", 2400 RowBox[{"4", " ", 2401 SqrtBox[ 2402 RowBox[{"-", 2403 SuperscriptBox["a", "2"]}]]}]], 2404 RowBox[{"a", " ", 2405 RowBox[{"(", 2406 RowBox[{ 2407 RowBox[{ 2408 RowBox[{"-", "4"}], " ", "x", " ", 2409 RowBox[{"ArcTan", "[", 2410 FractionBox[ 2411 RowBox[{"Coth", "[", "x", "]"}], 2412 SqrtBox[ 2413 RowBox[{"-", 2414 SuperscriptBox["a", "2"]}]]], "]"}]}], "+", 2415 RowBox[{"2", " ", "\[ImaginaryI]", " ", 2416 RowBox[{"ArcCos", "[", 2417 FractionBox[ 2418 RowBox[{"1", "+", 2419 SuperscriptBox["a", "2"]}], 2420 RowBox[{ 2421 RowBox[{"-", "1"}], "+", 2422 SuperscriptBox["a", "2"]}]], "]"}], " ", 2423 RowBox[{"ArcTan", "[", 2424 RowBox[{ 2425 SqrtBox[ 2426 RowBox[{"-", 2427 SuperscriptBox["a", "2"]}]], " ", 2428 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}], "+", 2429 RowBox[{ 2430 RowBox[{"(", 2431 RowBox[{ 2432 RowBox[{"ArcCos", "[", 2433 FractionBox[ 2434 RowBox[{"1", "+", 2435 SuperscriptBox["a", "2"]}], 2436 RowBox[{ 2437 RowBox[{"-", "1"}], "+", 2438 SuperscriptBox["a", "2"]}]], "]"}], "-", 2439 RowBox[{"2", " ", 2440 RowBox[{"(", 2441 RowBox[{ 2442 RowBox[{"ArcTan", "[", 2443 FractionBox[ 2444 RowBox[{"Coth", "[", "x", "]"}], 2445 SqrtBox[ 2446 RowBox[{"-", 2447 SuperscriptBox["a", "2"]}]]], "]"}], "+", 2448 RowBox[{"ArcTan", "[", 2449 RowBox[{ 2450 SqrtBox[ 2451 RowBox[{"-", 2452 SuperscriptBox["a", "2"]}]], " ", 2453 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}], ")"}]}]}], ")"}], 2454 " ", 2455 RowBox[{"Log", "[", 2456 FractionBox[ 2457 RowBox[{ 2458 SqrtBox["2"], " ", 2459 SqrtBox[ 2460 RowBox[{"-", 2461 SuperscriptBox["a", "2"]}]], " ", 2462 SuperscriptBox["\[ExponentialE]", 2463 RowBox[{"-", "x"}]]}], 2464 RowBox[{ 2465 SqrtBox[ 2466 RowBox[{ 2467 RowBox[{"-", "1"}], "+", 2468 SuperscriptBox["a", "2"]}]], " ", 2469 SqrtBox[ 2470 RowBox[{ 2471 RowBox[{"-", "1"}], "-", 2472 SuperscriptBox["a", "2"], "+", 2473 RowBox[{ 2474 RowBox[{"(", 2475 RowBox[{ 2476 RowBox[{"-", "1"}], "+", 2477 SuperscriptBox["a", "2"]}], ")"}], " ", 2478 RowBox[{"Cosh", "[", 2479 RowBox[{"2", " ", "x"}], "]"}]}]}]]}]], "]"}]}], "+", 2480 RowBox[{ 2481 RowBox[{"(", 2482 RowBox[{ 2483 RowBox[{"ArcCos", "[", 2484 FractionBox[ 2485 RowBox[{"1", "+", 2486 SuperscriptBox["a", "2"]}], 2487 RowBox[{ 2488 RowBox[{"-", "1"}], "+", 2489 SuperscriptBox["a", "2"]}]], "]"}], "+", 2490 RowBox[{"2", " ", 2491 RowBox[{"(", 2492 RowBox[{ 2493 RowBox[{"ArcTan", "[", 2494 FractionBox[ 2495 RowBox[{"Coth", "[", "x", "]"}], 2496 SqrtBox[ 2497 RowBox[{"-", 2498 SuperscriptBox["a", "2"]}]]], "]"}], "+", 2499 RowBox[{"ArcTan", "[", 2500 RowBox[{ 2501 SqrtBox[ 2502 RowBox[{"-", 2503 SuperscriptBox["a", "2"]}]], " ", 2504 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}], ")"}]}]}], ")"}], 2505 " ", 2506 RowBox[{"Log", "[", 2507 FractionBox[ 2508 RowBox[{ 2509 SqrtBox["2"], " ", 2510 SqrtBox[ 2511 RowBox[{"-", 2512 SuperscriptBox["a", "2"]}]], " ", 2513 SuperscriptBox["\[ExponentialE]", "x"]}], 2514 RowBox[{ 2515 SqrtBox[ 2516 RowBox[{ 2517 RowBox[{"-", "1"}], "+", 2518 SuperscriptBox["a", "2"]}]], " ", 2519 SqrtBox[ 2520 RowBox[{ 2521 RowBox[{"-", "1"}], "-", 2522 SuperscriptBox["a", "2"], "+", 2523 RowBox[{ 2524 RowBox[{"(", 2525 RowBox[{ 2526 RowBox[{"-", "1"}], "+", 2527 SuperscriptBox["a", "2"]}], ")"}], " ", 2528 RowBox[{"Cosh", "[", 2529 RowBox[{"2", " ", "x"}], "]"}]}]}]]}]], "]"}]}], "-", 2530 RowBox[{ 2531 RowBox[{"(", 2532 RowBox[{ 2533 RowBox[{"ArcCos", "[", 2534 FractionBox[ 2535 RowBox[{"1", "+", 2536 SuperscriptBox["a", "2"]}], 2537 RowBox[{ 2538 RowBox[{"-", "1"}], "+", 2539 SuperscriptBox["a", "2"]}]], "]"}], "-", 2540 RowBox[{"2", " ", 2541 RowBox[{"ArcTan", "[", 2542 RowBox[{ 2543 SqrtBox[ 2544 RowBox[{"-", 2545 SuperscriptBox["a", "2"]}]], " ", 2546 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}]}], ")"}], " ", 2547 RowBox[{"(", 2548 RowBox[{ 2549 RowBox[{"Log", "[", "2", "]"}], "+", 2550 RowBox[{"Log", "[", 2551 RowBox[{"-", 2552 FractionBox[ 2553 RowBox[{ 2554 RowBox[{"(", 2555 RowBox[{ 2556 RowBox[{"\[ImaginaryI]", " ", 2557 SuperscriptBox["a", "2"]}], "+", 2558 SqrtBox[ 2559 RowBox[{"-", 2560 SuperscriptBox["a", "2"]}]]}], ")"}], " ", 2561 RowBox[{"(", 2562 RowBox[{ 2563 RowBox[{"-", "1"}], "+", 2564 RowBox[{"Tanh", "[", "x", "]"}]}], ")"}]}], 2565 RowBox[{ 2566 RowBox[{"(", 2567 RowBox[{ 2568 RowBox[{"-", "1"}], "+", 2569 SuperscriptBox["a", "2"]}], ")"}], " ", 2570 RowBox[{"(", 2571 RowBox[{"\[ImaginaryI]", "+", 2572 RowBox[{ 2573 SqrtBox[ 2574 RowBox[{"-", 2575 SuperscriptBox["a", "2"]}]], " ", 2576 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}]]}], "]"}]}], 2577 ")"}]}], "-", 2578 RowBox[{ 2579 RowBox[{"(", 2580 RowBox[{ 2581 RowBox[{"ArcCos", "[", 2582 FractionBox[ 2583 RowBox[{"1", "+", 2584 SuperscriptBox["a", "2"]}], 2585 RowBox[{ 2586 RowBox[{"-", "1"}], "+", 2587 SuperscriptBox["a", "2"]}]], "]"}], "+", 2588 RowBox[{"2", " ", 2589 RowBox[{"ArcTan", "[", 2590 RowBox[{ 2591 SqrtBox[ 2592 RowBox[{"-", 2593 SuperscriptBox["a", "2"]}]], " ", 2594 RowBox[{"Tanh", "[", "x", "]"}]}], "]"}]}]}], ")"}], " ", 2595 RowBox[{"(", 2596 RowBox[{ 2597 RowBox[{"Log", "[", "2", "]"}], "+", 2598 RowBox[{"Log", "[", 2599 RowBox[{"-", 2600 FractionBox[ 2601 RowBox[{ 2602 RowBox[{"(", 2603 RowBox[{ 2604 RowBox[{ 2605 RowBox[{"-", "\[ImaginaryI]"}], " ", 2606 SuperscriptBox["a", "2"]}], "+", 2607 SqrtBox[ 2608 RowBox[{"-", 2609 SuperscriptBox["a", "2"]}]]}], ")"}], " ", 2610 RowBox[{"(", 2611 RowBox[{"1", "+", 2612 RowBox[{"Tanh", "[", "x", "]"}]}], ")"}]}], 2613 RowBox[{ 2614 RowBox[{"(", 2615 RowBox[{ 2616 RowBox[{"-", "1"}], "+", 2617 SuperscriptBox["a", "2"]}], ")"}], " ", 2618 RowBox[{"(", 2619 RowBox[{"\[ImaginaryI]", "+", 2620 RowBox[{ 2621 SqrtBox[ 2622 RowBox[{"-", 2623 SuperscriptBox["a", "2"]}]], " ", 2624 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}]]}], "]"}]}], 2625 ")"}]}], "+", 2626 RowBox[{"\[ImaginaryI]", " ", 2627 RowBox[{"(", 2628 RowBox[{ 2629 RowBox[{"-", 2630 RowBox[{"PolyLog", "[", 2631 RowBox[{"2", ",", 2632 FractionBox[ 2633 RowBox[{ 2634 RowBox[{"(", 2635 RowBox[{"1", "+", 2636 SuperscriptBox["a", "2"], "-", 2637 RowBox[{"2", " ", "\[ImaginaryI]", " ", 2638 SqrtBox[ 2639 RowBox[{"-", 2640 SuperscriptBox["a", "2"]}]]}]}], ")"}], " ", 2641 RowBox[{"(", 2642 RowBox[{ 2643 RowBox[{"-", "\[ImaginaryI]"}], "+", 2644 RowBox[{ 2645 SqrtBox[ 2646 RowBox[{"-", 2647 SuperscriptBox["a", "2"]}]], " ", 2648 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}], 2649 RowBox[{ 2650 RowBox[{"(", 2651 RowBox[{ 2652 RowBox[{"-", "1"}], "+", 2653 SuperscriptBox["a", "2"]}], ")"}], " ", 2654 RowBox[{"(", 2655 RowBox[{"\[ImaginaryI]", "+", 2656 RowBox[{ 2657 SqrtBox[ 2658 RowBox[{"-", 2659 SuperscriptBox["a", "2"]}]], " ", 2660 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}]]}], "]"}]}], 2661 "+", 2662 RowBox[{"PolyLog", "[", 2663 RowBox[{"2", ",", 2664 FractionBox[ 2665 RowBox[{ 2666 RowBox[{"(", 2667 RowBox[{"1", "+", 2668 SuperscriptBox["a", "2"], "+", 2669 RowBox[{"2", " ", "\[ImaginaryI]", " ", 2670 SqrtBox[ 2671 RowBox[{"-", 2672 SuperscriptBox["a", "2"]}]]}]}], ")"}], " ", 2673 RowBox[{"(", 2674 RowBox[{ 2675 RowBox[{"-", "\[ImaginaryI]"}], "+", 2676 RowBox[{ 2677 SqrtBox[ 2678 RowBox[{"-", 2679 SuperscriptBox["a", "2"]}]], " ", 2680 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}], 2681 RowBox[{ 2682 RowBox[{"(", 2683 RowBox[{ 2684 RowBox[{"-", "1"}], "+", 2685 SuperscriptBox["a", "2"]}], ")"}], " ", 2686 RowBox[{"(", 2687 RowBox[{"\[ImaginaryI]", "+", 2688 RowBox[{ 2689 SqrtBox[ 2690 RowBox[{"-", 2691 SuperscriptBox["a", "2"]}]], " ", 2692 RowBox[{"Tanh", "[", "x", "]"}]}]}], ")"}]}]]}], "]"}]}], 2693 ")"}]}]}], ")"}]}]}]}]], "Output", 2694 CellChangeTimes->{ 2695 3.4553492672882752`*^9, 3.4834815917443776`*^9, 3.4901461331629076`*^9, 2696 3.4901467917104645`*^9, 3.490146925355899*^9, 3.490147686343236*^9, { 2697 3.490211767063401*^9, 3.4902117787010217`*^9}, {3.4902267564861336`*^9, 2698 3.4902267768753695`*^9}}] 2699}, Closed]], 2700 2701Cell[CellGroupData[{ 2702 2703Cell[TextData[{ 2704 StyleBox["Maple", 2705 FontSlant->"Italic"], 2706 " returns a large complicated expression involving the imaginary unit:" 2707}], "Subsubtitle", 2708 CellDingbat->"\[FilledSmallSquare]", 2709 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2710 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 2711 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 2712 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 2713 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 2714 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 2715 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 2716 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 2717 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 2718 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 2719 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 2720 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 2721 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 2722 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 2723 3.455347583937736*^9, 3.455347624856574*^9}, 3.4553489047269373`*^9, 2724 3.4821992623552275`*^9, {3.4901462939291897`*^9, 3.4901463311664553`*^9}, { 2725 3.4901464136906004`*^9, 3.490146448338261*^9}, {3.4901466420282016`*^9, 2726 3.4901466446334057`*^9}, {3.490146979175994*^9, 3.490147018896064*^9}, { 2727 3.49014785956594*^9, 3.4901478680991554`*^9}, {3.490208912008787*^9, 2728 3.490208956515665*^9}, {3.4902095456818995`*^9, 3.49020957427675*^9}, { 2729 3.490209819789981*^9, 3.4902098250471907`*^9}, {3.4902118069994717`*^9, 2730 3.490211808996275*^9}, {3.4902121317608423`*^9, 3.4902121356608486`*^9}, { 2731 3.490212322018776*^9, 3.490212338632805*^9}, 3.490227047011843*^9, 2732 3.4902271051831455`*^9}], 2733 2734Cell[BoxData[ 2735 RowBox[{ 2736 RowBox[{"int", 2737 RowBox[{"(", 2738 RowBox[{ 2739 RowBox[{"arctanh", 2740 RowBox[{"(", 2741 RowBox[{"a", "*", "tanh", 2742 RowBox[{"(", "x", ")"}]}], ")"}]}], ",", "x"}], ")"}]}], 2743 ";"}]], "Input", 2744 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 2745 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 2746 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 2747 3.4553480557261343`*^9}, {3.455348571317518*^9, 3.455348579389125*^9}, { 2748 3.455348631163573*^9, 3.455348631474019*^9}, {3.4834816003868046`*^9, 2749 3.4834816024597855`*^9}, {3.4901471509190955`*^9, 3.490147160887513*^9}, 2750 3.490147464479646*^9, 3.4901477330809183`*^9, {3.4902122466862435`*^9, 2751 3.490212247606645*^9}, {3.490226946197666*^9, 3.490226952531277*^9}}, 2752 Background->GrayLevel[0.85]], 2753 2754Cell[BoxData[ 2755 RowBox[{ 2756 RowBox[{ 2757 RowBox[{ 2758 RowBox[{"-", "1"}], "/", "2"}], "*", "a", "*", 2759 RowBox[{"x", "/", 2760 RowBox[{"(", 2761 RowBox[{"1", "+", "a"}], ")"}]}], "*", "ln", 2762 RowBox[{"(", 2763 RowBox[{ 2764 RowBox[{"(", 2765 RowBox[{ 2766 RowBox[{ 2767 RowBox[{"(", 2768 RowBox[{ 2769 RowBox[{"(", 2770 RowBox[{"1", "+", "a"}], ")"}], "*", 2771 RowBox[{"(", 2772 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2773 RowBox[{"(", 2774 RowBox[{"1", "/", "2"}], ")"}]}], "-", 2775 RowBox[{"exp", 2776 RowBox[{"(", "x", ")"}]}], "-", 2777 RowBox[{"a", "*", "exp", 2778 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 2779 RowBox[{ 2780 RowBox[{"(", 2781 RowBox[{ 2782 RowBox[{"(", 2783 RowBox[{"1", "+", "a"}], ")"}], "*", 2784 RowBox[{"(", 2785 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2786 RowBox[{"(", 2787 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 2788 RowBox[{ 2789 RowBox[{"1", "/", "2"}], "*", "a", "*", 2790 RowBox[{"x", "/", 2791 RowBox[{"(", 2792 RowBox[{"1", "+", "a"}], ")"}]}], "*", "ln", 2793 RowBox[{"(", 2794 RowBox[{ 2795 RowBox[{"(", 2796 RowBox[{ 2797 RowBox[{ 2798 RowBox[{"(", 2799 RowBox[{ 2800 RowBox[{"(", 2801 RowBox[{"1", "+", "a"}], ")"}], "*", 2802 RowBox[{"(", 2803 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2804 RowBox[{"(", 2805 RowBox[{"1", "/", "2"}], ")"}]}], "+", 2806 RowBox[{"exp", 2807 RowBox[{"(", "x", ")"}]}], "+", 2808 RowBox[{"a", "*", "exp", 2809 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 2810 RowBox[{ 2811 RowBox[{"(", 2812 RowBox[{ 2813 RowBox[{"(", 2814 RowBox[{"1", "+", "a"}], ")"}], "*", 2815 RowBox[{"(", 2816 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2817 RowBox[{"(", 2818 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "+", 2819 RowBox[{ 2820 RowBox[{"1", "/", "2"}], "*", 2821 RowBox[{"a", "/", 2822 RowBox[{"(", 2823 RowBox[{"a", "-", "1"}], ")"}]}], "*", "ln", 2824 RowBox[{"(", 2825 RowBox[{"exp", 2826 RowBox[{"(", "x", ")"}]}], ")"}], "*", "ln", 2827 RowBox[{"(", 2828 RowBox[{ 2829 RowBox[{"(", 2830 RowBox[{ 2831 RowBox[{ 2832 RowBox[{"(", 2833 RowBox[{ 2834 RowBox[{"(", 2835 RowBox[{"1", "+", "a"}], ")"}], "*", 2836 RowBox[{"(", 2837 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2838 RowBox[{"(", 2839 RowBox[{"1", "/", "2"}], ")"}]}], "+", 2840 RowBox[{"exp", 2841 RowBox[{"(", "x", ")"}]}], "-", 2842 RowBox[{"a", "*", "exp", 2843 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 2844 RowBox[{ 2845 RowBox[{"(", 2846 RowBox[{ 2847 RowBox[{"(", 2848 RowBox[{"1", "+", "a"}], ")"}], "*", 2849 RowBox[{"(", 2850 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2851 RowBox[{"(", 2852 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "+", 2853 RowBox[{ 2854 RowBox[{"1", "/", "2"}], "*", 2855 RowBox[{"a", "/", 2856 RowBox[{"(", 2857 RowBox[{"a", "-", "1"}], ")"}]}], "*", "ln", 2858 RowBox[{"(", 2859 RowBox[{"exp", 2860 RowBox[{"(", "x", ")"}]}], ")"}], "*", "ln", 2861 RowBox[{"(", 2862 RowBox[{ 2863 RowBox[{"(", 2864 RowBox[{ 2865 RowBox[{ 2866 RowBox[{"(", 2867 RowBox[{ 2868 RowBox[{"(", 2869 RowBox[{"1", "+", "a"}], ")"}], "*", 2870 RowBox[{"(", 2871 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2872 RowBox[{"(", 2873 RowBox[{"1", "/", "2"}], ")"}]}], "-", 2874 RowBox[{"exp", 2875 RowBox[{"(", "x", ")"}]}], "+", 2876 RowBox[{"a", "*", "exp", 2877 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 2878 RowBox[{ 2879 RowBox[{"(", 2880 RowBox[{ 2881 RowBox[{"(", 2882 RowBox[{"1", "+", "a"}], ")"}], "*", 2883 RowBox[{"(", 2884 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 2885 RowBox[{"(", 2886 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 2887 RowBox[{ 2888 RowBox[{"1", "/", "2"}], "*", "I", "*", "Pi", "*", "x"}], "+", 2889 RowBox[{ 2890 RowBox[{"1", "/", "2"}], "*", "I", "*", "Pi", "*", "csgn", 2891 RowBox[{ 2892 RowBox[{"(", 2893 RowBox[{ 2894 RowBox[{"I", "/", 2895 RowBox[{"(", 2896 RowBox[{"1", "+", 2897 RowBox[{"exp", 2898 RowBox[{"(", 2899 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 2900 RowBox[{"(", 2901 RowBox[{ 2902 RowBox[{ 2903 RowBox[{"(", 2904 RowBox[{ 2905 RowBox[{"-", "1"}], "+", 2906 RowBox[{"exp", 2907 RowBox[{"(", 2908 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 2909 RowBox[{"exp", 2910 RowBox[{"(", 2911 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "^", 2912 "2"}], "*", "x"}], "-", 2913 RowBox[{ 2914 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 2915 RowBox[{ 2916 RowBox[{"(", 2917 RowBox[{ 2918 RowBox[{"I", "/", 2919 RowBox[{"(", 2920 RowBox[{"1", "+", 2921 RowBox[{"exp", 2922 RowBox[{"(", 2923 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 2924 RowBox[{"(", 2925 RowBox[{ 2926 RowBox[{ 2927 RowBox[{"(", 2928 RowBox[{ 2929 RowBox[{"-", "1"}], "+", 2930 RowBox[{"exp", 2931 RowBox[{"(", 2932 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 2933 RowBox[{"exp", 2934 RowBox[{"(", 2935 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "^", 2936 "3"}], "*", "x"}], "-", 2937 RowBox[{ 2938 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 2939 RowBox[{ 2940 RowBox[{"(", 2941 RowBox[{ 2942 RowBox[{"I", "/", 2943 RowBox[{"(", 2944 RowBox[{"1", "+", 2945 RowBox[{"exp", 2946 RowBox[{"(", 2947 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 2948 RowBox[{"(", 2949 RowBox[{ 2950 RowBox[{ 2951 RowBox[{"(", 2952 RowBox[{ 2953 RowBox[{"-", "1"}], "+", 2954 RowBox[{"exp", 2955 RowBox[{"(", 2956 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 2957 RowBox[{"exp", 2958 RowBox[{"(", 2959 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "^", 2960 "3"}], "*", "x"}], "-", 2961 RowBox[{ 2962 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 2963 RowBox[{ 2964 RowBox[{"(", 2965 RowBox[{ 2966 RowBox[{"I", "/", 2967 RowBox[{"(", 2968 RowBox[{"1", "+", 2969 RowBox[{"exp", 2970 RowBox[{"(", 2971 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 2972 RowBox[{"(", 2973 RowBox[{ 2974 RowBox[{ 2975 RowBox[{"(", 2976 RowBox[{ 2977 RowBox[{"-", "1"}], "+", 2978 RowBox[{"exp", 2979 RowBox[{"(", 2980 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 2981 RowBox[{"exp", 2982 RowBox[{"(", 2983 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "^", 2984 "2"}], "*", "csgn", 2985 RowBox[{"(", 2986 RowBox[{"I", "*", 2987 RowBox[{"(", 2988 RowBox[{ 2989 RowBox[{ 2990 RowBox[{"(", 2991 RowBox[{ 2992 RowBox[{"-", "1"}], "+", 2993 RowBox[{"exp", 2994 RowBox[{"(", 2995 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 2996 RowBox[{"exp", 2997 RowBox[{"(", 2998 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "*", 2999 "x"}], "+", 3000 RowBox[{ 3001 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 3002 RowBox[{ 3003 RowBox[{"(", 3004 RowBox[{ 3005 RowBox[{"I", "/", 3006 RowBox[{"(", 3007 RowBox[{"1", "+", 3008 RowBox[{"exp", 3009 RowBox[{"(", 3010 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 3011 RowBox[{"(", 3012 RowBox[{ 3013 RowBox[{ 3014 RowBox[{"(", 3015 RowBox[{ 3016 RowBox[{"-", "1"}], "+", 3017 RowBox[{"exp", 3018 RowBox[{"(", 3019 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3020 RowBox[{"exp", 3021 RowBox[{"(", 3022 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "^", 3023 "2"}], "*", "csgn", 3024 RowBox[{"(", 3025 RowBox[{"I", "/", 3026 RowBox[{"(", 3027 RowBox[{"1", "+", 3028 RowBox[{"exp", 3029 RowBox[{"(", 3030 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], ")"}], "*", "x"}], "+", 3031 RowBox[{ 3032 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 3033 RowBox[{ 3034 RowBox[{"(", 3035 RowBox[{ 3036 RowBox[{"I", "/", 3037 RowBox[{"(", 3038 RowBox[{"1", "+", 3039 RowBox[{"exp", 3040 RowBox[{"(", 3041 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 3042 RowBox[{"(", 3043 RowBox[{ 3044 RowBox[{ 3045 RowBox[{"(", 3046 RowBox[{ 3047 RowBox[{"-", "1"}], "+", 3048 RowBox[{"exp", 3049 RowBox[{"(", 3050 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3051 RowBox[{"exp", 3052 RowBox[{"(", 3053 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "^", 3054 "2"}], "*", "csgn", 3055 RowBox[{"(", 3056 RowBox[{"I", "*", 3057 RowBox[{"(", 3058 RowBox[{ 3059 RowBox[{ 3060 RowBox[{"(", 3061 RowBox[{ 3062 RowBox[{"-", "1"}], "+", 3063 RowBox[{"exp", 3064 RowBox[{"(", 3065 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3066 RowBox[{"exp", 3067 RowBox[{"(", 3068 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "*", 3069 "x"}], "+", 3070 RowBox[{ 3071 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 3072 RowBox[{"(", 3073 RowBox[{ 3074 RowBox[{"I", "/", 3075 RowBox[{"(", 3076 RowBox[{"1", "+", 3077 RowBox[{"exp", 3078 RowBox[{"(", 3079 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 3080 RowBox[{"(", 3081 RowBox[{ 3082 RowBox[{ 3083 RowBox[{"(", 3084 RowBox[{ 3085 RowBox[{"-", "1"}], "+", 3086 RowBox[{"exp", 3087 RowBox[{"(", 3088 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 3089 RowBox[{"exp", 3090 RowBox[{"(", 3091 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "*", 3092 "csgn", 3093 RowBox[{"(", 3094 RowBox[{"I", "/", 3095 RowBox[{"(", 3096 RowBox[{"1", "+", 3097 RowBox[{"exp", 3098 RowBox[{"(", 3099 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], ")"}], "*", "csgn", 3100 RowBox[{"(", 3101 RowBox[{"I", "*", 3102 RowBox[{"(", 3103 RowBox[{ 3104 RowBox[{ 3105 RowBox[{"(", 3106 RowBox[{ 3107 RowBox[{"-", "1"}], "+", 3108 RowBox[{"exp", 3109 RowBox[{"(", 3110 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 3111 RowBox[{"exp", 3112 RowBox[{"(", 3113 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "*", 3114 "x"}], "-", 3115 RowBox[{ 3116 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 3117 RowBox[{ 3118 RowBox[{"(", 3119 RowBox[{ 3120 RowBox[{"I", "/", 3121 RowBox[{"(", 3122 RowBox[{"1", "+", 3123 RowBox[{"exp", 3124 RowBox[{"(", 3125 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 3126 RowBox[{"(", 3127 RowBox[{ 3128 RowBox[{ 3129 RowBox[{"(", 3130 RowBox[{ 3131 RowBox[{"-", "1"}], "+", 3132 RowBox[{"exp", 3133 RowBox[{"(", 3134 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "-", 3135 RowBox[{"exp", 3136 RowBox[{"(", 3137 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1"}], ")"}]}], ")"}], "^", 3138 "2"}], "*", "csgn", 3139 RowBox[{"(", 3140 RowBox[{"I", "/", 3141 RowBox[{"(", 3142 RowBox[{"1", "+", 3143 RowBox[{"exp", 3144 RowBox[{"(", 3145 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], ")"}], "*", "x"}], "-", 3146 RowBox[{ 3147 RowBox[{"1", "/", "4"}], "*", "I", "*", "Pi", "*", "csgn", 3148 RowBox[{"(", 3149 RowBox[{ 3150 RowBox[{"I", "/", 3151 RowBox[{"(", 3152 RowBox[{"1", "+", 3153 RowBox[{"exp", 3154 RowBox[{"(", 3155 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "*", 3156 RowBox[{"(", 3157 RowBox[{ 3158 RowBox[{ 3159 RowBox[{"(", 3160 RowBox[{ 3161 RowBox[{"-", "1"}], "+", 3162 RowBox[{"exp", 3163 RowBox[{"(", 3164 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3165 RowBox[{"exp", 3166 RowBox[{"(", 3167 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "*", 3168 "csgn", 3169 RowBox[{"(", 3170 RowBox[{"I", "/", 3171 RowBox[{"(", 3172 RowBox[{"1", "+", 3173 RowBox[{"exp", 3174 RowBox[{"(", 3175 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], ")"}], "*", "csgn", 3176 RowBox[{"(", 3177 RowBox[{"I", "*", 3178 RowBox[{"(", 3179 RowBox[{ 3180 RowBox[{ 3181 RowBox[{"(", 3182 RowBox[{ 3183 RowBox[{"-", "1"}], "+", 3184 RowBox[{"exp", 3185 RowBox[{"(", 3186 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3187 RowBox[{"exp", 3188 RowBox[{"(", 3189 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], ")"}], "*", 3190 "x"}], "+", 3191 RowBox[{ 3192 RowBox[{"1", "/", "2"}], "*", 3193 RowBox[{"a", "/", 3194 RowBox[{"(", 3195 RowBox[{"a", "-", "1"}], ")"}]}], "*", "dilog", 3196 RowBox[{"(", 3197 RowBox[{ 3198 RowBox[{"(", 3199 RowBox[{ 3200 RowBox[{ 3201 RowBox[{"(", 3202 RowBox[{ 3203 RowBox[{"(", 3204 RowBox[{"1", "+", "a"}], ")"}], "*", 3205 RowBox[{"(", 3206 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3207 RowBox[{"(", 3208 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3209 RowBox[{"exp", 3210 RowBox[{"(", "x", ")"}]}], "+", 3211 RowBox[{"a", "*", "exp", 3212 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3213 RowBox[{ 3214 RowBox[{"(", 3215 RowBox[{ 3216 RowBox[{"(", 3217 RowBox[{"1", "+", "a"}], ")"}], "*", 3218 RowBox[{"(", 3219 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3220 RowBox[{"(", 3221 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "+", 3222 RowBox[{ 3223 RowBox[{"1", "/", "2"}], "*", 3224 RowBox[{"a", "/", 3225 RowBox[{"(", 3226 RowBox[{"a", "-", "1"}], ")"}]}], "*", "dilog", 3227 RowBox[{"(", 3228 RowBox[{ 3229 RowBox[{"(", 3230 RowBox[{ 3231 RowBox[{ 3232 RowBox[{"(", 3233 RowBox[{ 3234 RowBox[{"(", 3235 RowBox[{"1", "+", "a"}], ")"}], "*", 3236 RowBox[{"(", 3237 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3238 RowBox[{"(", 3239 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3240 RowBox[{"exp", 3241 RowBox[{"(", "x", ")"}]}], "-", 3242 RowBox[{"a", "*", "exp", 3243 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3244 RowBox[{ 3245 RowBox[{"(", 3246 RowBox[{ 3247 RowBox[{"(", 3248 RowBox[{"1", "+", "a"}], ")"}], "*", 3249 RowBox[{"(", 3250 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3251 RowBox[{"(", 3252 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3253 RowBox[{ 3254 RowBox[{"1", "/", "2"}], "*", 3255 RowBox[{"a", "/", 3256 RowBox[{"(", 3257 RowBox[{"1", "+", "a"}], ")"}]}], "*", "dilog", 3258 RowBox[{"(", 3259 RowBox[{ 3260 RowBox[{"(", 3261 RowBox[{ 3262 RowBox[{ 3263 RowBox[{"(", 3264 RowBox[{ 3265 RowBox[{"(", 3266 RowBox[{"1", "+", "a"}], ")"}], "*", 3267 RowBox[{"(", 3268 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3269 RowBox[{"(", 3270 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3271 RowBox[{"exp", 3272 RowBox[{"(", "x", ")"}]}], "-", 3273 RowBox[{"a", "*", "exp", 3274 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3275 RowBox[{ 3276 RowBox[{"(", 3277 RowBox[{ 3278 RowBox[{"(", 3279 RowBox[{"1", "+", "a"}], ")"}], "*", 3280 RowBox[{"(", 3281 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3282 RowBox[{"(", 3283 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3284 RowBox[{ 3285 RowBox[{"1", "/", "2"}], "*", 3286 RowBox[{"a", "/", 3287 RowBox[{"(", 3288 RowBox[{"1", "+", "a"}], ")"}]}], "*", "dilog", 3289 RowBox[{"(", 3290 RowBox[{ 3291 RowBox[{"(", 3292 RowBox[{ 3293 RowBox[{ 3294 RowBox[{"(", 3295 RowBox[{ 3296 RowBox[{"(", 3297 RowBox[{"1", "+", "a"}], ")"}], "*", 3298 RowBox[{"(", 3299 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3300 RowBox[{"(", 3301 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3302 RowBox[{"exp", 3303 RowBox[{"(", "x", ")"}]}], "+", 3304 RowBox[{"a", "*", "exp", 3305 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3306 RowBox[{ 3307 RowBox[{"(", 3308 RowBox[{ 3309 RowBox[{"(", 3310 RowBox[{"1", "+", "a"}], ")"}], "*", 3311 RowBox[{"(", 3312 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3313 RowBox[{"(", 3314 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3315 RowBox[{ 3316 RowBox[{"1", "/", "2"}], "*", "x", "*", 3317 RowBox[{ 3318 RowBox[{"(", 3319 RowBox[{ 3320 RowBox[{"ln", 3321 RowBox[{"(", 3322 RowBox[{ 3323 RowBox[{"(", 3324 RowBox[{ 3325 RowBox[{ 3326 RowBox[{"(", 3327 RowBox[{ 3328 RowBox[{"(", 3329 RowBox[{"1", "+", "a"}], ")"}], "*", 3330 RowBox[{"(", 3331 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3332 RowBox[{"(", 3333 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3334 RowBox[{"exp", 3335 RowBox[{"(", "x", ")"}]}], "-", 3336 RowBox[{"a", "*", "exp", 3337 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3338 RowBox[{ 3339 RowBox[{"(", 3340 RowBox[{ 3341 RowBox[{"(", 3342 RowBox[{"1", "+", "a"}], ")"}], "*", 3343 RowBox[{"(", 3344 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3345 RowBox[{"(", 3346 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "+", 3347 RowBox[{"ln", 3348 RowBox[{"(", 3349 RowBox[{ 3350 RowBox[{"(", 3351 RowBox[{ 3352 RowBox[{ 3353 RowBox[{"(", 3354 RowBox[{ 3355 RowBox[{"(", 3356 RowBox[{"1", "+", "a"}], ")"}], "*", 3357 RowBox[{"(", 3358 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3359 RowBox[{"(", 3360 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3361 RowBox[{"exp", 3362 RowBox[{"(", "x", ")"}]}], "+", 3363 RowBox[{"a", "*", "exp", 3364 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3365 RowBox[{ 3366 RowBox[{"(", 3367 RowBox[{ 3368 RowBox[{"(", 3369 RowBox[{"1", "+", "a"}], ")"}], "*", 3370 RowBox[{"(", 3371 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3372 RowBox[{"(", 3373 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}]}], ")"}], "/", 3374 RowBox[{"(", 3375 RowBox[{"1", "+", "a"}], ")"}]}]}], "-", 3376 RowBox[{ 3377 RowBox[{ 3378 RowBox[{"1", "/", "2"}], "/", 3379 RowBox[{"(", 3380 RowBox[{"a", "-", "1"}], ")"}]}], "*", "ln", 3381 RowBox[{"(", 3382 RowBox[{"exp", 3383 RowBox[{"(", "x", ")"}]}], ")"}], "*", "ln", 3384 RowBox[{"(", 3385 RowBox[{ 3386 RowBox[{"(", 3387 RowBox[{ 3388 RowBox[{ 3389 RowBox[{"(", 3390 RowBox[{ 3391 RowBox[{"(", 3392 RowBox[{"1", "+", "a"}], ")"}], "*", 3393 RowBox[{"(", 3394 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3395 RowBox[{"(", 3396 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3397 RowBox[{"exp", 3398 RowBox[{"(", "x", ")"}]}], "+", 3399 RowBox[{"a", "*", "exp", 3400 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3401 RowBox[{ 3402 RowBox[{"(", 3403 RowBox[{ 3404 RowBox[{"(", 3405 RowBox[{"1", "+", "a"}], ")"}], "*", 3406 RowBox[{"(", 3407 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3408 RowBox[{"(", 3409 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3410 RowBox[{ 3411 RowBox[{ 3412 RowBox[{"1", "/", "2"}], "/", 3413 RowBox[{"(", 3414 RowBox[{"a", "-", "1"}], ")"}]}], "*", "ln", 3415 RowBox[{"(", 3416 RowBox[{"exp", 3417 RowBox[{"(", "x", ")"}]}], ")"}], "*", "ln", 3418 RowBox[{"(", 3419 RowBox[{ 3420 RowBox[{"(", 3421 RowBox[{ 3422 RowBox[{ 3423 RowBox[{"(", 3424 RowBox[{ 3425 RowBox[{"(", 3426 RowBox[{"1", "+", "a"}], ")"}], "*", 3427 RowBox[{"(", 3428 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3429 RowBox[{"(", 3430 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3431 RowBox[{"exp", 3432 RowBox[{"(", "x", ")"}]}], "-", 3433 RowBox[{"a", "*", "exp", 3434 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3435 RowBox[{ 3436 RowBox[{"(", 3437 RowBox[{ 3438 RowBox[{"(", 3439 RowBox[{"1", "+", "a"}], ")"}], "*", 3440 RowBox[{"(", 3441 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3442 RowBox[{"(", 3443 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "+", 3444 RowBox[{ 3445 RowBox[{"1", "/", "2"}], "*", "x", "*", "ln", 3446 RowBox[{"(", 3447 RowBox[{ 3448 RowBox[{ 3449 RowBox[{"(", 3450 RowBox[{ 3451 RowBox[{"-", "1"}], "+", 3452 RowBox[{"exp", 3453 RowBox[{"(", 3454 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}], "*", "a"}], "+", 3455 RowBox[{"exp", 3456 RowBox[{"(", 3457 RowBox[{"2", "*", "x"}], ")"}]}], "+", "1"}], ")"}]}], "-", 3458 RowBox[{ 3459 RowBox[{"1", "/", "2"}], "*", "ln", 3460 RowBox[{"(", 3461 RowBox[{"exp", 3462 RowBox[{"(", "x", ")"}]}], ")"}], "*", "ln", 3463 RowBox[{"(", 3464 RowBox[{ 3465 RowBox[{"-", "a"}], "+", 3466 RowBox[{"a", "*", "exp", 3467 RowBox[{"(", 3468 RowBox[{"2", "*", "x"}], ")"}]}], "-", "1", "-", 3469 RowBox[{"exp", 3470 RowBox[{"(", 3471 RowBox[{"2", "*", "x"}], ")"}]}]}], ")"}]}], "-", 3472 RowBox[{ 3473 RowBox[{ 3474 RowBox[{"1", "/", "2"}], "/", 3475 RowBox[{"(", 3476 RowBox[{"a", "-", "1"}], ")"}]}], "*", "dilog", 3477 RowBox[{"(", 3478 RowBox[{ 3479 RowBox[{"(", 3480 RowBox[{ 3481 RowBox[{ 3482 RowBox[{"(", 3483 RowBox[{ 3484 RowBox[{"(", 3485 RowBox[{"1", "+", "a"}], ")"}], "*", 3486 RowBox[{"(", 3487 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3488 RowBox[{"(", 3489 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3490 RowBox[{"exp", 3491 RowBox[{"(", "x", ")"}]}], "-", 3492 RowBox[{"a", "*", "exp", 3493 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3494 RowBox[{ 3495 RowBox[{"(", 3496 RowBox[{ 3497 RowBox[{"(", 3498 RowBox[{"1", "+", "a"}], ")"}], "*", 3499 RowBox[{"(", 3500 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3501 RowBox[{"(", 3502 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3503 RowBox[{ 3504 RowBox[{ 3505 RowBox[{"1", "/", "2"}], "/", 3506 RowBox[{"(", 3507 RowBox[{"a", "-", "1"}], ")"}]}], "*", "dilog", 3508 RowBox[{"(", 3509 RowBox[{ 3510 RowBox[{"(", 3511 RowBox[{ 3512 RowBox[{ 3513 RowBox[{"(", 3514 RowBox[{ 3515 RowBox[{"(", 3516 RowBox[{"1", "+", "a"}], ")"}], "*", 3517 RowBox[{"(", 3518 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3519 RowBox[{"(", 3520 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3521 RowBox[{"exp", 3522 RowBox[{"(", "x", ")"}]}], "+", 3523 RowBox[{"a", "*", "exp", 3524 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3525 RowBox[{ 3526 RowBox[{"(", 3527 RowBox[{ 3528 RowBox[{"(", 3529 RowBox[{"1", "+", "a"}], ")"}], "*", 3530 RowBox[{"(", 3531 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3532 RowBox[{"(", 3533 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3534 RowBox[{ 3535 RowBox[{ 3536 RowBox[{"1", "/", "2"}], "/", 3537 RowBox[{"(", 3538 RowBox[{"1", "+", "a"}], ")"}]}], "*", "dilog", 3539 RowBox[{"(", 3540 RowBox[{ 3541 RowBox[{"(", 3542 RowBox[{ 3543 RowBox[{ 3544 RowBox[{"(", 3545 RowBox[{ 3546 RowBox[{"(", 3547 RowBox[{"1", "+", "a"}], ")"}], "*", 3548 RowBox[{"(", 3549 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3550 RowBox[{"(", 3551 RowBox[{"1", "/", "2"}], ")"}]}], "-", 3552 RowBox[{"exp", 3553 RowBox[{"(", "x", ")"}]}], "-", 3554 RowBox[{"a", "*", "exp", 3555 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3556 RowBox[{ 3557 RowBox[{"(", 3558 RowBox[{ 3559 RowBox[{"(", 3560 RowBox[{"1", "+", "a"}], ")"}], "*", 3561 RowBox[{"(", 3562 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3563 RowBox[{"(", 3564 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}], "-", 3565 RowBox[{ 3566 RowBox[{ 3567 RowBox[{"1", "/", "2"}], "/", 3568 RowBox[{"(", 3569 RowBox[{"1", "+", "a"}], ")"}]}], "*", "dilog", 3570 RowBox[{"(", 3571 RowBox[{ 3572 RowBox[{"(", 3573 RowBox[{ 3574 RowBox[{ 3575 RowBox[{"(", 3576 RowBox[{ 3577 RowBox[{"(", 3578 RowBox[{"1", "+", "a"}], ")"}], "*", 3579 RowBox[{"(", 3580 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3581 RowBox[{"(", 3582 RowBox[{"1", "/", "2"}], ")"}]}], "+", 3583 RowBox[{"exp", 3584 RowBox[{"(", "x", ")"}]}], "+", 3585 RowBox[{"a", "*", "exp", 3586 RowBox[{"(", "x", ")"}]}]}], ")"}], "/", 3587 RowBox[{ 3588 RowBox[{"(", 3589 RowBox[{ 3590 RowBox[{"(", 3591 RowBox[{"1", "+", "a"}], ")"}], "*", 3592 RowBox[{"(", 3593 RowBox[{"a", "-", "1"}], ")"}]}], ")"}], "^", 3594 RowBox[{"(", 3595 RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}]}]], "Output", 3596 CellChangeTimes->{{3.490227294357878*^9, 3.490227313530312*^9}}] 3597}, Closed]], 3598 3599Cell["", "Text"], 3600 3601Cell["\<\ 3602Note that these systems give similar results to the above for the hyperbolic \ 3603arccotangent function.\ 3604\>", "Subsubtitle", 3605 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 3606 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 3607 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 3608 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 3609 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 3610 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 3611 3.444282629461632*^9}, {3.4443499318130817`*^9, 3.4443499392037086`*^9}, { 3612 3.4443502123965406`*^9, 3.444350220287888*^9}, {3.4466877703003297`*^9, 3613 3.446687773284621*^9}, {3.4466878378674865`*^9, 3.446687845468416*^9}, { 3614 3.446688019789077*^9, 3.4466880241152973`*^9}, {3.446693423609389*^9, 3615 3.4466934479243517`*^9}, {3.446694023131459*^9, 3.4466940235821075`*^9}, { 3616 3.4468670078489923`*^9, 3.42301075253125*^9}, 3.423171765484375*^9, { 3617 3.455324754760992*^9, 3.4553247817497997`*^9}, 3.4821992623952847`*^9, { 3618 3.482716792168875*^9, 3.482716823894494*^9}, {3.483203401445797*^9, 3619 3.4832034193315153`*^9}, {3.4832034600500655`*^9, 3.483203532123702*^9}, { 3620 3.4832040958843503`*^9, 3.4832041044566765`*^9}, 3.483204218670909*^9, 3621 3.4833920379275217`*^9, {3.483392125182989*^9, 3.4833921454921923`*^9}, { 3622 3.48339221312945*^9, 3.483392219528651*^9}, {3.483392987983635*^9, 3623 3.4833931408334227`*^9}, {3.4833932165322723`*^9, 3.483393223472251*^9}, { 3624 3.483395056508027*^9, 3.4833950705081587`*^9}, {3.4833959109166064`*^9, 3625 3.483395925577688*^9}, {3.483395964633848*^9, 3.4833959819287167`*^9}, { 3626 3.4833961127468243`*^9, 3.483396122781253*^9}, 3.490048900827781*^9, 3627 3.4900489594451337`*^9, {3.4902128221680546`*^9, 3.4902128464728975`*^9}, { 3628 3.4902329392289867`*^9, 3.49023294124139*^9}}], 3629 3630Cell["", "PageBreak", 3631 PageBreakBelow->True] 3632}, Open ]], 3633 3634Cell[CellGroupData[{ 3635 3636Cell["Inverse Hyperbolic Function Integration Problem 5", "Title", 3637 CellChangeTimes->{{3.4821873279145265`*^9, 3.4821873318001137`*^9}, { 3638 3.4821882475168495`*^9, 3.4821882614268513`*^9}, {3.4821886510671263`*^9, 3639 3.482188651607904*^9}, 3.482188721117854*^9, 3.4821899389389954`*^9, { 3640 3.482190071910198*^9, 3.482190073482459*^9}, 3.482190124175352*^9, 3641 3.4821906623291793`*^9, {3.482196017679613*^9, 3.482196050626989*^9}, { 3642 3.482196093678894*^9, 3.482196093889197*^9}, {3.4821961644606733`*^9, 3643 3.4821962071921186`*^9}, {3.4821968011762257`*^9, 3.482196804761381*^9}, 3644 3.482196871106781*^9, {3.4821973084456434`*^9, 3.482197309066536*^9}, { 3645 3.4821982364300194`*^9, 3.482198240976557*^9}, 3.482198357524144*^9, { 3646 3.4821988021534896`*^9, 3.4821988078316545`*^9}, 3.4821989164378223`*^9, { 3647 3.482198948964594*^9, 3.4821989770249424`*^9}, 3.4821998630289536`*^9, 3648 3.4901481958869305`*^9, 3.4902117069720955`*^9, 3.4902265829606295`*^9}, 3649 TextAlignment->Center, 3650 FontFamily->"Arial", 3651 FontSize->24], 3652 3653Cell[BoxData[ 3654 RowBox[{"\[Integral]", 3655 RowBox[{ 3656 RowBox[{"ArcSinh", "[", 3657 SuperscriptBox["\[ExponentialE]", 3658 RowBox[{"a", "+", 3659 RowBox[{"b", " ", "x"}]}]], "]"}], 3660 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Subtitle", 3661 CellDingbat->None, 3662 CellChangeTimes->{ 3663 3.478743829361326*^9, {3.47874445595232*^9, 3.4787444723959646`*^9}, 3664 3.478744815539381*^9, 3.4787977389071245`*^9, {3.4788096384077663`*^9, 3665 3.4788096532190638`*^9}, {3.4821753823697634`*^9, 3.482175431460352*^9}, { 3666 3.482175515541254*^9, 3.482175519006237*^9}, 3.4821881383098173`*^9, 3667 3.482197249951533*^9, 3.482198265491808*^9, 3.482198311638163*^9, { 3668 3.4821989115307665`*^9, 3.4821989119012995`*^9}, 3.4821994315485153`*^9, 3669 3.4901483010779157`*^9}, 3670 TextAlignment->Center, 3671 FontFamily->"Courier New", 3672 FontSize->20, 3673 FontWeight->"Bold"], 3674 3675Cell[CellGroupData[{ 3676 3677Cell[TextData[{ 3678 StyleBox["Rubi", 3679 FontSlant->"Italic"], 3680 " uses the substitution u=a+b x to generalize rule:" 3681}], "Subsubtitle", 3682 CellDingbat->"\[FilledSmallSquare]", 3683 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3684 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 3685 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 3686 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 3687 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 3688 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 3689 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 3690 3.444282629461632*^9}, {3.4443225459641647`*^9, 3.4443225485078225`*^9}, { 3691 3.4466948911496077`*^9, 3.42301074665625*^9}, 3.42317159478125*^9, { 3692 3.423174840640625*^9, 3.423174854046875*^9}, {3.4233322945*^9, 3693 3.4233323091875*^9}, {3.42333236403125*^9, 3.423332366546875*^9}, { 3694 3.423332643984375*^9, 3.42333264684375*^9}, {3.423338772921875*^9, 3695 3.423338774734375*^9}, 3.423341072796875*^9, {3.423341460375*^9, 3696 3.4233414605625*^9}, {3.42335786965625*^9, 3.423357883921875*^9}, { 3697 3.455347583937736*^9, 3.455347624856574*^9}, 3.4821992623351984`*^9}], 3698 3699Cell[BoxData[ 3700 RowBox[{"Int", "[", 3701 RowBox[{ 3702 RowBox[{"ArcSinh", "[", 3703 SuperscriptBox["\[ExponentialE]", "x"], "]"}], ",", " ", "x"}], 3704 "]"}]], "Input", 3705 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3706 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 3707 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349954165222*^9, 3708 3.44434996146572*^9}, {3.4443499933215265`*^9, 3.423171727*^9}, { 3709 3.423616874609375*^9, 3.42361688925*^9}, {3.455334181485957*^9, 3710 3.455334194264331*^9}, {3.4553471254684896`*^9, 3.455347126660203*^9}, { 3711 3.455347168590496*^9, 3.455347170423131*^9}, {3.4553474605803566`*^9, 3712 3.4553474615517535`*^9}, {3.4553478671349535`*^9, 3.4553479098263407`*^9}}, 3713 Background->GrayLevel[0.85]], 3714 3715Cell[BoxData[ 3716 RowBox[{ 3717 RowBox[{ 3718 FractionBox["1", "2"], " ", 3719 SuperscriptBox[ 3720 RowBox[{"ArcSinh", "[", 3721 SuperscriptBox["\[ExponentialE]", "x"], "]"}], "2"]}], "+", 3722 RowBox[{ 3723 RowBox[{"ArcSinh", "[", 3724 SuperscriptBox["\[ExponentialE]", "x"], "]"}], " ", 3725 RowBox[{"Log", "[", 3726 RowBox[{"1", "-", 3727 SuperscriptBox["\[ExponentialE]", 3728 RowBox[{ 3729 RowBox[{"-", "2"}], " ", 3730 RowBox[{"ArcSinh", "[", 3731 SuperscriptBox["\[ExponentialE]", "x"], "]"}]}]]}], "]"}]}], "-", 3732 RowBox[{ 3733 FractionBox["1", "2"], " ", 3734 RowBox[{"PolyLog", "[", 3735 RowBox[{"2", ",", 3736 SuperscriptBox["\[ExponentialE]", 3737 RowBox[{ 3738 RowBox[{"-", "2"}], " ", 3739 RowBox[{"ArcSinh", "[", 3740 SuperscriptBox["\[ExponentialE]", "x"], "]"}]}]]}], 3741 "]"}]}]}]], "Output", 3742 CellChangeTimes->{3.4901480204022226`*^9}], 3743 3744Cell[BoxData[ 3745 RowBox[{"Int", "[", 3746 RowBox[{ 3747 RowBox[{"ArcSinh", "[", 3748 SuperscriptBox["\[ExponentialE]", 3749 RowBox[{"a", "+", 3750 RowBox[{"b", " ", "x"}]}]], "]"}], ",", " ", "x"}], "]"}]], "Input", 3751 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3752 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 3753 3.444349843325843*^9, 3.4443498499854193`*^9}, 3.4443499479863377`*^9, { 3754 3.444349991088315*^9, 3.423171727*^9}, {3.42361689675*^9, 3755 3.423616909609375*^9}, 3.455334184320032*^9, {3.4553342246880784`*^9, 3756 3.4553342261301517`*^9}, {3.4553342969019165`*^9, 3.455334298233832*^9}, { 3757 3.4553471997953663`*^9, 3.4553472071859937`*^9}, {3.455347873984803*^9, 3758 3.4553478754368916`*^9}}, 3759 Background->GrayLevel[0.85]], 3760 3761Cell[BoxData[ 3762 RowBox[{ 3763 FractionBox[ 3764 SuperscriptBox[ 3765 RowBox[{"ArcSinh", "[", 3766 SuperscriptBox["\[ExponentialE]", 3767 RowBox[{"a", "+", 3768 RowBox[{"b", " ", "x"}]}]], "]"}], "2"], 3769 RowBox[{"2", " ", "b"}]], "+", 3770 FractionBox[ 3771 RowBox[{ 3772 RowBox[{"ArcSinh", "[", 3773 SuperscriptBox["\[ExponentialE]", 3774 RowBox[{"a", "+", 3775 RowBox[{"b", " ", "x"}]}]], "]"}], " ", 3776 RowBox[{"Log", "[", 3777 RowBox[{"1", "-", 3778 SuperscriptBox["\[ExponentialE]", 3779 RowBox[{ 3780 RowBox[{"-", "2"}], " ", 3781 RowBox[{"ArcSinh", "[", 3782 SuperscriptBox["\[ExponentialE]", 3783 RowBox[{"a", "+", 3784 RowBox[{"b", " ", "x"}]}]], "]"}]}]]}], "]"}]}], "b"], "-", 3785 FractionBox[ 3786 RowBox[{"PolyLog", "[", 3787 RowBox[{"2", ",", 3788 SuperscriptBox["\[ExponentialE]", 3789 RowBox[{ 3790 RowBox[{"-", "2"}], " ", 3791 RowBox[{"ArcSinh", "[", 3792 SuperscriptBox["\[ExponentialE]", 3793 RowBox[{"a", "+", 3794 RowBox[{"b", " ", "x"}]}]], "]"}]}]]}], "]"}], 3795 RowBox[{"2", " ", "b"}]]}]], "Output", 3796 CellChangeTimes->{ 3797 3.4553468542785378`*^9, {3.4553472025493264`*^9, 3.45534720758657*^9}, 3798 3.4553478720920815`*^9, 3.490148028202236*^9}] 3799}, Closed]], 3800 3801Cell[CellGroupData[{ 3802 3803Cell[TextData[{ 3804 StyleBox["Mathematica ", 3805 FontSlant->"Italic"], 3806 "does not use the substitution u=a+b x to generalize rule:" 3807}], "Subsubtitle", 3808 CellDingbat->"\[FilledSmallSquare]", 3809 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3810 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 3811 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 3812 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 3813 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 3814 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 3815 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 3816 3.4443500256179667`*^9}, {3.4466836176090527`*^9, 3.446683618790752*^9}, { 3817 3.4466950388319645`*^9, 3.423171727*^9}, {3.423617028171875*^9, 3818 3.4236170379375*^9}, {3.4553479526979876`*^9, 3.4553479664477587`*^9}, 3819 3.4821993033742094`*^9}], 3820 3821Cell[BoxData[ 3822 RowBox[{"\[Integral]", 3823 RowBox[{ 3824 RowBox[{"ArcSinh", "[", 3825 SuperscriptBox["\[ExponentialE]", "x"], "]"}], 3826 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 3827 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3828 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 3829 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 3830 3.4443498869285407`*^9}, {3.444349974083864*^9, 3.423171727*^9}, 3831 3.423616899578125*^9, {3.455334328146845*^9, 3.455334346853744*^9}, { 3832 3.455347028589184*^9, 3.4553470351786594`*^9}, {3.455347077739859*^9, 3833 3.455347084088989*^9}, {3.455347223879998*^9, 3.4553472252820144`*^9}, { 3834 3.455347418329603*^9, 3.4553474190906973`*^9}, {3.4553479192198477`*^9, 3835 3.4553479280225058`*^9}, {3.455348103234448*^9, 3.4553481049168673`*^9}, { 3836 3.4901480508378763`*^9, 3.4901480567970867`*^9}}, 3837 Background->GrayLevel[0.85]], 3838 3839Cell[BoxData[ 3840 RowBox[{ 3841 RowBox[{"x", " ", 3842 RowBox[{"ArcSinh", "[", 3843 SuperscriptBox["\[ExponentialE]", "x"], "]"}]}], "+", 3844 RowBox[{ 3845 FractionBox["1", "2"], " ", 3846 SuperscriptBox[ 3847 RowBox[{"ArcSinh", "[", 3848 SuperscriptBox["\[ExponentialE]", "x"], "]"}], "2"]}], "+", 3849 RowBox[{ 3850 RowBox[{"ArcSinh", "[", 3851 SuperscriptBox["\[ExponentialE]", "x"], "]"}], " ", 3852 RowBox[{"Log", "[", 3853 RowBox[{"1", "-", 3854 SuperscriptBox["\[ExponentialE]", 3855 RowBox[{ 3856 RowBox[{"-", "2"}], " ", 3857 RowBox[{"ArcSinh", "[", 3858 SuperscriptBox["\[ExponentialE]", "x"], "]"}]}]]}], "]"}]}], "-", 3859 RowBox[{"x", " ", 3860 RowBox[{"Log", "[", 3861 RowBox[{ 3862 SuperscriptBox["\[ExponentialE]", "x"], "+", 3863 SqrtBox[ 3864 RowBox[{"1", "+", 3865 SuperscriptBox["\[ExponentialE]", 3866 RowBox[{"2", " ", "x"}]]}]]}], "]"}]}], "-", 3867 RowBox[{ 3868 FractionBox["1", "2"], " ", 3869 RowBox[{"PolyLog", "[", 3870 RowBox[{"2", ",", 3871 SuperscriptBox["\[ExponentialE]", 3872 RowBox[{ 3873 RowBox[{"-", "2"}], " ", 3874 RowBox[{"ArcSinh", "[", 3875 SuperscriptBox["\[ExponentialE]", "x"], "]"}]}]]}], 3876 "]"}]}]}]], "Output", 3877 CellChangeTimes->{{3.4553345133832016`*^9, 3.4553345257509856`*^9}, 3878 3.4553345761534605`*^9, {3.4553346108834*^9, 3.4553346169521265`*^9}, 3879 3.4553469166181774`*^9, {3.455347029170019*^9, 3.4553470358996964`*^9}, { 3880 3.455347080593963*^9, 3.4553470845596657`*^9}, 3.4553472273449807`*^9, 3881 3.4553474203224688`*^9, {3.4553479224745283`*^9, 3.455347928413067*^9}, { 3882 3.490148046563469*^9, 3.4901480523198786`*^9}}], 3883 3884Cell[BoxData[ 3885 RowBox[{"\[Integral]", 3886 RowBox[{ 3887 RowBox[{"ArcSinh", "[", 3888 SuperscriptBox["\[ExponentialE]", 3889 RowBox[{"a", "+", 3890 RowBox[{"b", " ", "x"}]}]], "]"}], 3891 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 3892 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3893 CellChangeTimes->{{3.4443495887898383`*^9, 3.4443496017885294`*^9}, { 3894 3.444349843325843*^9, 3.4443498499854193`*^9}, {3.444349884144538*^9, 3895 3.4443498869285407`*^9}, {3.4443499715902786`*^9, 3.423171727*^9}, { 3896 3.423616902765625*^9, 3.423616905984375*^9}, {3.455346949345237*^9, 3897 3.4553469519389668`*^9}, {3.455347010242803*^9, 3.455347011544675*^9}, { 3898 3.4553470654321613`*^9, 3.45534706579268*^9}, {3.4553470967471905`*^9, 3899 3.4553470986899843`*^9}, {3.455347239051814*^9, 3.45534724229648*^9}, { 3900 3.4553474305271425`*^9, 3.4553474314484673`*^9}, {3.455347940029771*^9, 3901 3.45534794114137*^9}, {3.455348107600726*^9, 3.4553481090828576`*^9}}, 3902 Background->GrayLevel[0.85]], 3903 3904Cell[BoxData[ 3905 RowBox[{"\[Integral]", 3906 RowBox[{ 3907 RowBox[{"ArcSinh", "[", 3908 SuperscriptBox["\[ExponentialE]", 3909 RowBox[{"a", "+", 3910 RowBox[{"b", " ", "x"}]}]], "]"}], 3911 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output", 3912 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3913 CellChangeTimes->{ 3914 3.44434988769965*^9, {3.4466836278337555`*^9, 3.423171727*^9}, 3915 3.4236170036875*^9, 3.455346953070594*^9, 3.455347013477454*^9, 3916 3.4553470664336014`*^9, 3.45534709909056*^9, 3.455347243347992*^9, 3917 3.4553474328304543`*^9, 3.455347941982579*^9, 3.490148060603493*^9}] 3918}, Closed]], 3919 3920Cell[CellGroupData[{ 3921 3922Cell[TextData[{ 3923 StyleBox["Maple", 3924 FontSlant->"Italic"], 3925 " is unable to integrate either expression:" 3926}], "Subsubtitle", 3927 CellDingbat->"\[FilledSmallSquare]", 3928 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3929 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 3930 3.4442795689408193`*^9, 3.444279589991088*^9}, {3.444279647073168*^9, 3931 3.4442796571877117`*^9}, {3.444279727518843*^9, 3.4442797400368433`*^9}, { 3932 3.444280099393573*^9, 3.444280101777*^9}, {3.4442806470510654`*^9, 3933 3.444280676072797*^9}, {3.4442820110924606`*^9, 3.444282021837912*^9}, { 3934 3.444282633968112*^9, 3.4442826382943325`*^9}, {3.444350020730939*^9, 3935 3.4443500407697535`*^9}, {3.444350203233365*^9, 3.4443502040245028`*^9}, { 3936 3.444350234528365*^9, 3.4443502387243986`*^9}, {3.4466836227764835`*^9, 3937 3.4466836230168285`*^9}, {3.4466839811618156`*^9, 3938 3.4466839896239843`*^9}, {3.4466950433384447`*^9, 3.42301083234375*^9}, 3939 3.423171727*^9, 3.423617053328125*^9, {3.4553480765961437`*^9, 3940 3.455348092218608*^9}, 3.482199323663384*^9, {3.490150678022091*^9, 3941 3.490150723995372*^9}}], 3942 3943Cell[BoxData[ 3944 RowBox[{ 3945 RowBox[{"int", 3946 RowBox[{"(", 3947 RowBox[{ 3948 RowBox[{"arcsinh", 3949 RowBox[{"(", 3950 RowBox[{"exp", 3951 RowBox[{"(", "x", ")"}]}], ")"}]}], ",", " ", "x"}], ")"}]}], 3952 ";"}]], "Input", 3953 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3954 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 3955 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 3956 3.4553480557261343`*^9}}, 3957 Background->GrayLevel[0.85]], 3958 3959Cell[BoxData[ 3960 RowBox[{"\[Integral]", 3961 RowBox[{ 3962 RowBox[{"ArcSinh", "[", 3963 SuperscriptBox["\[ExponentialE]", "x"], "]"}], 3964 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", 3965 CellChangeTimes->{{3.45534811980828*^9, 3.455348119838323*^9}}], 3966 3967Cell[BoxData[ 3968 RowBox[{ 3969 RowBox[{"int", 3970 RowBox[{"(", 3971 RowBox[{ 3972 RowBox[{"arcsinh", 3973 RowBox[{"(", 3974 RowBox[{"exp", 3975 RowBox[{"(", 3976 RowBox[{"a", "+", 3977 RowBox[{"b", "*", "x"}]}], ")"}]}], ")"}]}], ",", " ", "x"}], 3978 ")"}]}], ";"}]], "Input", 3979 CellGroupingRules->{GroupTogetherGrouping, 10000.}, 3980 CellChangeTimes->{{3.444350078924618*^9, 3.423171727*^9}, { 3981 3.4236169183125*^9, 3.423616928921875*^9}, {3.4553480452110147`*^9, 3982 3.4553480685545807`*^9}}, 3983 Background->GrayLevel[0.85]], 3984 3985Cell[BoxData[ 3986 RowBox[{"\[Integral]", 3987 RowBox[{ 3988 RowBox[{"ArcSinh", "[", 3989 SuperscriptBox["\[ExponentialE]", 3990 RowBox[{"a", "+", 3991 RowBox[{"b", " ", "x"}]}]], "]"}], 3992 RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"] 3993}, Closed]], 3994 3995Cell["", "Text"], 3996 3997Cell["\<\ 3998Note that these systems give similar results to the above for the hyperbolic \ 3999arccosine function.\ 4000\>", "Subsubtitle", 4001 CellChangeTimes->{{3.444279480103077*^9, 3.444279533129325*^9}, { 4002 3.4442795689408193`*^9, 3.4442795703428354`*^9}, {3.4442796301187887`*^9, 4003 3.444279637930021*^9}, {3.44427971631273*^9, 3.4442797217004766`*^9}, { 4004 3.444280077662325*^9, 3.4442800880072002`*^9}, {3.4442805977001023`*^9, 4005 3.4442806206330786`*^9}, {3.444280660430304*^9, 3.4442806722873535`*^9}, { 4006 3.444282034255768*^9, 3.4442820400040336`*^9}, {3.4442826252155266`*^9, 4007 3.444282629461632*^9}, {3.4443499318130817`*^9, 3.4443499392037086`*^9}, { 4008 3.4443502123965406`*^9, 3.444350220287888*^9}, {3.4466877703003297`*^9, 4009 3.446687773284621*^9}, {3.4466878378674865`*^9, 3.446687845468416*^9}, { 4010 3.446688019789077*^9, 3.4466880241152973`*^9}, {3.446693423609389*^9, 4011 3.4466934479243517`*^9}, {3.446694023131459*^9, 3.4466940235821075`*^9}, { 4012 3.4468670078489923`*^9, 3.42301075253125*^9}, 3.423171765484375*^9, { 4013 3.455324754760992*^9, 3.4553247817497997`*^9}, 3.4821992623952847`*^9, { 4014 3.482716792168875*^9, 3.482716823894494*^9}, {3.483203401445797*^9, 4015 3.4832034193315153`*^9}, {3.4832034600500655`*^9, 3.483203532123702*^9}, { 4016 3.4832040958843503`*^9, 3.4832041044566765`*^9}, 3.483204218670909*^9, 4017 3.4833920379275217`*^9, {3.483392125182989*^9, 3.4833921454921923`*^9}, { 4018 3.48339221312945*^9, 3.483392219528651*^9}, {3.483392987983635*^9, 4019 3.4833931408334227`*^9}, {3.4833932165322723`*^9, 3.483393223472251*^9}, { 4020 3.483395056508027*^9, 3.4833950705081587`*^9}, {3.4833959109166064`*^9, 4021 3.483395925577688*^9}, {3.483395964633848*^9, 3.4833959819287167`*^9}, { 4022 3.4833961127468243`*^9, 3.483396122781253*^9}, 3.490048900827781*^9, 4023 3.4900489594451337`*^9, {3.4902128221680546`*^9, 3.4902128464728975`*^9}, { 4024 3.4902134682243896`*^9, 3.490213470798394*^9}, {3.490232944158595*^9, 4025 3.490232944751396*^9}}] 4026}, Open ]] 4027}, 4028AutoGeneratedPackage->None, 4029CellGrouping->Manual, 4030WindowSize->{1912, 961}, 4031WindowMargins->{{0, Automatic}, {Automatic, 0}}, 4032PrintingCopies->1, 4033PrintingPageRange->{Automatic, Automatic}, 4034PageHeaders->{{ 4035 Cell[ 4036 TextData[{ 4037 Cell[ 4038 TextData[{ 4039 CounterBox["Page"]}], "PageNumber"], " ", 4040 Cell[ 4041 " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, CellFrameMargins -> 4], 4042 Cell[ 4043 TextData[{ 4044 ValueBox["FileName"]}], "Header"]}], 4045 CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, { 4046 None, None, None}}, 4047PrintingOptions->{"FacingPages"->False, 4048"FirstPageHeader"->True, 4049"PrintCellBrackets"->False, 4050"PrintMultipleHorizontalPages"->False, 4051"PrintRegistrationMarks"->False, 4052"PrintingMargins"->{{28.8, 28.8}, {14.4, 14.4}}}, 4053FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", 4054StyleDefinitions->"Default.nb" 4055] 4056(* End of Notebook Content *) 4057 4058(* Internal cache information *) 4059(*CellTagsOutline 4060CellTagsIndex->{} 4061*) 4062(*CellTagsIndex 4063CellTagsIndex->{} 4064*) 4065(*NotebookFileOutline 4066Notebook[{ 4067Cell[CellGroupData[{ 4068Cell[567, 22, 1001, 15, 69, "Title"], 4069Cell[1571, 39, 1092, 23, 72, "Subtitle"], 4070Cell[CellGroupData[{ 4071Cell[2688, 66, 1826, 28, 29, "Subsubtitle", 4072 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4073Cell[4517, 96, 1197, 21, 64, "Input", 4074 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4075Cell[5717, 119, 1527, 47, 57, "Output"] 4076}, Closed]], 4077Cell[CellGroupData[{ 4078Cell[7281, 171, 1463, 26, 29, "Subsubtitle", 4079 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4080Cell[8747, 199, 1138, 21, 64, "Input", 4081 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4082Cell[9888, 222, 4478, 127, 164, "Output"], 4083Cell[14369, 351, 1474, 29, 65, "Input", 4084 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4085Cell[15846, 382, 1118, 40, 57, "Output"] 4086}, Closed]], 4087Cell[CellGroupData[{ 4088Cell[17001, 427, 1849, 28, 29, "Subsubtitle", 4089 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4090Cell[18853, 457, 830, 20, 47, "Input", 4091 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4092Cell[19686, 479, 1527, 47, 57, "Output"] 4093}, Closed]], 4094Cell[21228, 529, 16, 0, 26, "Text"], 4095Cell[21247, 531, 1921, 27, 28, "Subsubtitle"], 4096Cell[23171, 560, 44, 1, 4, "PageBreak", 4097 PageBreakBelow->True] 4098}, Open ]], 4099Cell[CellGroupData[{ 4100Cell[23252, 566, 1025, 15, 69, "Title"], 4101Cell[24280, 583, 1106, 25, 74, "Subtitle"], 4102Cell[CellGroupData[{ 4103Cell[25411, 612, 1765, 27, 29, "Subsubtitle", 4104 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4105Cell[27179, 641, 1111, 21, 65, "Input", 4106 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4107Cell[28293, 664, 5435, 181, 163, "Output"] 4108}, Closed]], 4109Cell[CellGroupData[{ 4110Cell[33765, 850, 1398, 24, 29, "Subsubtitle", 4111 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4112Cell[35166, 876, 1150, 22, 65, "Input", 4113 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4114Cell[36319, 900, 446, 12, 48, "Output"], 4115Cell[36768, 914, 1442, 30, 70, "Input", 4116 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4117Cell[38213, 946, 4925, 169, 149, "Output"], 4118Cell[43141, 1117, 2183, 52, 89, "Input", 4119 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4120Cell[45327, 1171, 9108, 271, 379, "Output"] 4121}, Closed]], 4122Cell[CellGroupData[{ 4123Cell[54472, 1447, 1663, 26, 29, "Subsubtitle", 4124 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4125Cell[56138, 1475, 849, 21, 48, "Input", 4126 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4127Cell[56990, 1498, 5435, 181, 163, "Output"] 4128}, Closed]], 4129Cell[62440, 1682, 16, 0, 26, "Text"], 4130Cell[62459, 1684, 1919, 27, 28, "Subsubtitle"], 4131Cell[64381, 1713, 44, 1, 4, "PageBreak", 4132 PageBreakBelow->True] 4133}, Open ]], 4134Cell[CellGroupData[{ 4135Cell[64462, 1719, 977, 15, 69, "Title"], 4136Cell[65442, 1736, 869, 20, 72, "Subtitle"], 4137Cell[CellGroupData[{ 4138Cell[66336, 1760, 1652, 25, 29, "Subsubtitle", 4139 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4140Cell[67991, 1787, 869, 17, 64, "Input", 4141 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4142Cell[68863, 1806, 610, 19, 49, "Output"], 4143Cell[69476, 1827, 850, 17, 67, "Input", 4144 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4145Cell[70329, 1846, 580, 18, 47, "Output"] 4146}, Closed]], 4147Cell[CellGroupData[{ 4148Cell[70946, 1869, 1243, 20, 29, "Subsubtitle", 4149 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4150Cell[72192, 1891, 963, 18, 64, "Input", 4151 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4152Cell[73158, 1911, 584, 18, 55, "Output"], 4153Cell[73745, 1931, 1094, 20, 67, "Input", 4154 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4155Cell[74842, 1953, 814, 22, 47, "Output", 4156 CellGroupingRules->{GroupTogetherGrouping, 10000.}] 4157}, Closed]], 4158Cell[CellGroupData[{ 4159Cell[75693, 1980, 1731, 27, 29, "Subsubtitle", 4160 CellGroupingRules->{GroupTogetherGrouping, 10001.}], 4161Cell[77427, 2009, 655, 17, 47, "Input", 4162 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4163Cell[78085, 2028, 452, 16, 49, "Output"], 4164Cell[78540, 2046, 711, 17, 47, "Input", 4165 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4166Cell[79254, 2065, 2050, 71, 30, "Output"] 4167}, Closed]], 4168Cell[81319, 2139, 16, 0, 26, "Text"], 4169Cell[81338, 2141, 1921, 27, 28, "Subsubtitle"], 4170Cell[83262, 2170, 44, 1, 4, "PageBreak", 4171 PageBreakBelow->True] 4172}, Open ]], 4173Cell[CellGroupData[{ 4174Cell[83343, 2176, 1025, 15, 69, "Title"], 4175Cell[84371, 2193, 1103, 23, 68, "Subtitle"], 4176Cell[CellGroupData[{ 4177Cell[85499, 2220, 1876, 29, 29, "Subsubtitle", 4178 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4179Cell[87378, 2251, 1287, 22, 45, "Input", 4180 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4181Cell[88668, 2275, 1979, 64, 47, "Output"] 4182}, Closed]], 4183Cell[CellGroupData[{ 4184Cell[90684, 2344, 1499, 23, 29, "Subsubtitle", 4185 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4186Cell[92186, 2369, 1168, 20, 58, "Input", 4187 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4188Cell[93357, 2391, 10257, 306, 277, "Output"] 4189}, Closed]], 4190Cell[CellGroupData[{ 4191Cell[103651, 2702, 1895, 29, 29, "Subsubtitle", 4192 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4193Cell[105549, 2733, 826, 18, 45, "Input", 4194 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4195Cell[106378, 2753, 24817, 842, 395, "Output"] 4196}, Closed]], 4197Cell[131210, 3598, 16, 0, 26, "Text"], 4198Cell[131229, 3600, 1918, 27, 28, "Subsubtitle"], 4199Cell[133150, 3629, 44, 1, 1, "PageBreak", 4200 PageBreakBelow->True] 4201}, Open ]], 4202Cell[CellGroupData[{ 4203Cell[133231, 3635, 1025, 15, 69, "Title"], 4204Cell[134259, 3652, 839, 20, 68, "Subtitle"], 4205Cell[CellGroupData[{ 4206Cell[135123, 3676, 1243, 20, 29, "Subsubtitle", 4207 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4208Cell[136369, 3698, 750, 14, 49, "Input", 4209 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4210Cell[137122, 3714, 863, 27, 47, "Output"], 4211Cell[137988, 3743, 761, 15, 49, "Input", 4212 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4213Cell[138752, 3760, 1223, 37, 60, "Output"] 4214}, Closed]], 4215Cell[CellGroupData[{ 4216Cell[140012, 3802, 925, 16, 29, "Subsubtitle", 4217 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4218Cell[140940, 3820, 908, 16, 59, "Input", 4219 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4220Cell[141851, 3838, 1595, 43, 46, "Output"], 4221Cell[143449, 3883, 974, 18, 59, "Input", 4222 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4223Cell[144426, 3903, 585, 13, 43, "Output", 4224 CellGroupingRules->{GroupTogetherGrouping, 10000.}] 4225}, Closed]], 4226Cell[CellGroupData[{ 4227Cell[145048, 3921, 1104, 19, 29, "Subsubtitle", 4228 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4229Cell[146155, 3942, 472, 14, 47, "Input", 4230 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4231Cell[146630, 3958, 246, 6, 43, "Input"], 4232Cell[146879, 3966, 535, 16, 47, "Input", 4233 CellGroupingRules->{GroupTogetherGrouping, 10000.}], 4234Cell[147417, 3984, 234, 7, 43, "Input"] 4235}, Closed]], 4236Cell[147666, 3994, 16, 0, 26, "Text"], 4237Cell[147685, 3996, 1966, 28, 28, "Subsubtitle"] 4238}, Open ]] 4239} 4240] 4241*) 4242 4243(* End of internal cache information *) 4244