(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     13470,        359]
NotebookOptionsPosition[     12371,        315]
NotebookOutlinePosition[     12758,        332]
CellTagsIndexPosition[     12715,        329]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  FractionBox["1", 
   RowBox[{"1", " ", "-", " ", 
    RowBox[{"b", " ", 
     SuperscriptBox["x", "2"]}]}]]}]], "Input",
 CellChangeTimes->{{3.664716872037472*^9, 3.664716894745929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fint", "=", " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.664716934944458*^9, 3.6647169462766027`*^9}, {
  3.664716988134685*^9, 3.664716989357485*^9}, {3.664717078666444*^9, 
  3.664717095405324*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"ArcTanh", "[", 
   RowBox[{
    SqrtBox["b"], " ", "x"}], "]"}], 
  SqrtBox["b"]]], "Output",
 CellChangeTimes->{
  3.664716947305686*^9, 3.664716990468379*^9, {3.6647170815004168`*^9, 
   3.664717105502769*^9}, 3.6647177145284157`*^9, 3.6787196462965107`*^9, 
   3.678780092382627*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.664716964558538*^9, 3.664716967557214*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"ArcTanh", "[", 
   RowBox[{
    SqrtBox["b"], " ", "x"}], "]"}], 
  SqrtBox["b"]]], "Output",
 CellChangeTimes->{3.664716968100897*^9, 3.664717107132703*^9, 
  3.664717714628347*^9, 3.67871964632878*^9, 3.678780092423414*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fint1", "[", "x_", "]"}], ":=", 
  RowBox[{"fint", "/.", 
   RowBox[{"b", "\[Rule]", " ", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.6647169930846453`*^9, 3.664716996477668*^9}, {
  3.664717168182261*^9, 3.664717173461294*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fint1", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1.2"}], ",", " ", "1.2"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", " ", "\"\<fint1(x)\>\""}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", " ", "1.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4"}], ",", " ", "4"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<fint1(x) = arctanh(x)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.66471704071395*^9, 3.66471706688095*^9}, {
  3.66471715223118*^9, 3.6647171949421387`*^9}, {3.664717236131304*^9, 
  3.664717315966146*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, {
        Directive[
         Opacity[1.], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwtV2k0lQvYPcd0TLnSZLimZCZFhMrzJokGFZqFKEqlwRCi+R63bjeKkK6x
khShUlSeV4WSOcoQZT7HGV7zeByf71vfs9Ze+8/ea+39Z6/1aHqdcj4iQqPR
mufwv/zpzeePElMU0v7v5ElLYlG+/CiFo8QCc47NPNJs8ELvHT6FdiS9dNsh
GXJ5Okt5EYvC5+VTdzL/lCYNXJy3x3dQ6HbYI/SgjhSpI/buqlIrhUVxAxUN
HpLk0lfab+43UFhjcao4vJBBqvlEcVWrKezP9ldyNmCQyksmNVLLKTRUVs16
+EyCXPzZa9fSEgp/XZAzTV8rQSqEVl5/WEQh1+pkwb0f4qScgUWxzksKs9MV
kmPOi5PSrSlDmdkURtodS12oK07S1wUcyE6l8IPC6Lfd0WKkgPczyiSRwjza
4uUhW8XIiWT7T3kxFBrsTNtYKitGDtCUjQuYFP4pL5sjniBKcvOuHrK8RGFF
0NLbVl6iJMuLd7colMInKxPqFUxEyd+fSGHxCQq3KrYuLa4RIX8GGZit96Ew
dcI8X++BCNmkE+v70YPCGLPHQz4hImTt37615c4U7p2+o12tK0JWWtWJbd5K
IfbN572hi5Cf+62tKjdSeNVlEWfyJ53ErXLptZYUnvgoxtCKp5NFM+e+O5vO
5TH053QG0cmCnA7pRkMKT3tOi2fuopM58q8CmtUoDGkxJ8QU6WRyw4GNnWIU
GrNFnidm0MjEv0pDDwv5OPnTsUHuJo2MszDJ6R3nI3Og9rT+WRp5K0FkCaef
jyuNbzuaEjTygtsT1nAtH+Xczvall87iwe6xf8ST+LgdS04sOi/EHYzvGWNx
fKRrxso83iNEO4NXJX3RfEz7r3tN5SohGp0OGP9yjY/iu7RXFw/MoGCa8rp1
go/33ykYlvvPYOICttWStXxUyZFbb3VJgLcsPrtKWvBxUbHKAqPDAryy7/Gp
SRM+otLzO2EOAjyWcuRRqxYfrz8FI00FAVoadsqnyvDReCDp4Z4n0/jdtrVP
r5WH7ENKs8U9U1hxpEhEuZGH0kc2ssOqp7D473uqMjU8ZDyptQl6PYWPqve4
8D7wcERMvEn9xhQG7m8ozsvioSsZ9FHfdAoVzlbdtQ7jYV9P26fFNydxexpu
2KrEQynJxVoShyZwYiKC+VaBhxJNjqSW0wSm71j7xUCWh2dV/COPrZnAsdk3
TlKzXKyYnKr2WzyB/7nn7yvr5mJZ8I3WldXj2K/y6BSRy0W6bH3JFrtxvBZ3
4/6qTVzsMXjdpr9pDJfzHdofEFyMC4sIsLYcw6aNDM0F1lzsVJ+94K0/hoaj
VzMGjbh4cpfJwxmZMax3icjLUeCip+JPcKwfRfX5p8v12jkY6zf277TXKBb9
s2v4zyAO3s3dYEeLGcH7HHpblj8HL3z4w6yWOYLhW3LKLI9ycLW0xMTzsBG0
kWEkuh7g4Ofx187JXiNYcuMNcXM9B50DZ+JWmo3g5+sqt6bncTDi3VSf3I9h
/B7ZodeS0Y9t/+yvf6w3jMNXT7rHN7FxWeygywB3ECt3RS2PrWdj5qTPDqfu
QXyomyeMrmSj5pWqihetg7j760jyDZKNJ32bhbEVg1ikEP4rIpONL9/RvuVk
DuKltBueh0PY2H9mSGeVzyDK4mOvlYpzfupOnVHvAGpPdfh83cNCp18fDnHm
duolrcvdficL02+HRJ77RaEto3t3yWYW2kkZCORqKfRc2Gv/eh0LNVIyrnnk
UZi4vF/ngRYLmz5lT18LpFDee6g3jOpD/49ffOsEfJz6KuJrENmH1ZFylhML
+ViTpOV7vaAXhWqDqqs9uXgWS8ToK3sw5JTiU/OLbOzidxxc+qIL58toZRtO
9mLVlpqcqoWdWBFfvTM6vBtzdZSSTO/8Ru2+Uds1+zpxsbunxIb2NvzVflyp
1OQ3Hr1xxzHwcQtev1WV3Ov5E7PzI8oVM3/gFEt/hbChCTvNRc3rfBtQRCrG
JmxZI0q9Wt8mcK/DvzA027GuDm3VzPtDDCpx2PeR/f70SsySohgpr0rRbzQ5
u5lTivxmc4s9HohyQ+evsiMRN8uOK5Pb81GhzEa5dE8+vi08nfXjXAI2XbUZ
kQxNQJ5oYYbS/nh4vXgvQ+tAPDywi5rNr86HvPr4N94/8uHK3ptZCuxiuOQz
b1X7HwjbadFbbouWgc4yJ6bW2jLQTqpzGQqohIN7/l54n6oEmbQdAQXWdWB7
a9Eq3aw6iFFUq/IIb4CAtIFx9zWNoB9ryr3L/AGv/CS8LXKaQGvENjbkcgu4
iTC0aGY/wWjyzdZN79uAHliqVaD8GzTpa47Uef6Gt5LHuNKLO2HV3q1GQaKd
EPw6Lk7DuxucVtJ3e9zoAnnhw7SW172QKDD7lCLVAyoB3nnBVmzwT7xnvftJ
LySdqyp9tpEL/OIZY5/nvZDB++javJMLJ7sOaQa/6oUfbbtCZN25cMLIQDKu
pBcau0dTmcFcOFZc1NjY3AvBNulBXx9z4XBn6+ld0n2AB1VdU2R4cMBA7bHr
8T7gn+Mpv2rigUNR+gIXYxZkXdY9JvMPBQpZur+6zVhQqG3y1CORgtZ7z7KC
rVnQ+qFbHp9Q4B9asD5xEwu29uTEpnymINay4lTHIRYk7xmvDxQdgN8Fg19P
xbFgqsON12w7AKEviGs3Z1ngvUSEPFg2ALYPSrerSbAhYUHXj+rqAZCN2ayS
K8uGIvdvXPsfA5B61jX/mxIbAu1/b9jKGoCylUd/K69iw39nNPWzpQdBITdq
7ZOjbHDxajjWsGMQsp61j5TWsaGQGVWu0zUIa2ODlKya2LB/9aOSo9xBqD4v
a/OsnQ3Q8svvxeggDG+2jrzDYQNrteEib8khWMu+q+Qh3g+Hl4j8Ml4+BDXa
22wmLPvBrlS07Mr5IRhJfhtpkNoPDoYy8El1GJhM52dJGf3wbv4y5Y16w6Do
z66Vz+4Hkc/TEXWmw7Bu3RLl8cJ+qLvptXOew5y+9eyzj9/6IXr23N6FAcOg
pGhQ58bggLqKalfY12GwuZ2gHOXPgfC0l033mSPQJFG0NyaQA4bBM+emb49A
QHhrXHwYB4i9jYxjSSOQ6au2IJXJgS8u16L8X46Ags1DmbxkDnx1JMN1u0ag
p/+5oL6aA9c5ki2BG0bhpl15+2ITLlDzsOyT/BjoFLH+VDHnwpS3pb+l2hiU
mEgfUF/DhS3psVqk4RiMKW/7obuJC+ffGb6V3TQGHoP1NZYeXFhpBFNpF8bA
NLmd3B/FhYCgHjnB4Bg0j4+mJ1NcsPa78OA9ZxyKLS0Ll41xIW/z8UcvZsYh
PTSsJkvAhXdejDPVf0zAiWnhdIEUDyYdpDiBqyZAKGTsqtHiwesHzvSEixOw
VEKZQdvLg+IGmkar6iRIbHJTZbrzoDS4TCHAdBI4kclmskd4kNor1Fi7aRJe
Sml5Kp7lwWn3jKAjZybBfp5R4YqbPNgt1Ti28vMk+C20OX6I5MHTjMxvBZem
wGnXpct9ZTzIJfoW9SVMgVnch/iTVTzQUZ3RdcubAsGSTZ9CW3jg5LnJUqVr
Cm6p7FC9M8IDlQMxX1Q3T8OLpV41H/T4sKEnN3xUVwAJ3g97HEz4sOX9G/t9
GwUQ/rB3utqcD5dS9mxf5i0Ae53jeq22fNDefUZRkCKAJv3Ay8NufKDbzFOX
U58BwQqm2bLbfLj4662jtoUQWLPO3mvi+fD7elen+T4hNFarxzgn8SHo3NXW
1nAh5JwoHLr0hA+OVpp9glIhHMrk5rWV8KFMprvcwnMWnM4VdoyU86F0RZxO
7N+zYG3PnC9bzYfEtGWWhXmzsLBb/Yx1Cx/EwwZurBOlEWXqLivih/hg++mi
3umDNOIFX90zZ4IPNg7Hb60LohGp77lRpUI+CBIumsX/SyNCDzCpYWkKoiIV
UqRJGmEUX5izQ4uCl2Y2p2qN6ISiD7PdV5+C2Z1kbqsjnRA3d5G7aEKBRTZT
r8iXTrTXc09mr5nzr8oXaGXQidtyGsbSrhTI9dtqHTARIS60cd0091OQ9V7v
Y5arCOH3rPCmpScF3fczJN3OixB2m124PicoWDx2scm1SoRYoaTx54WzFJwN
ShtpmxAhVFncLXdDKOhY8FFpm44oMfYX8+nHaxRUaOgL4iJFiS5Xl9aWGxQw
hUXTv96KErVaGjJD0RQcuEq7xh8SJd4Nca2l4in416EgS8FYjHhSUuinkURB
krZmT5afGBEXzUxc/WAujx4rV/eZGHHFw6XCaW4XQ49EnJcfEiPcZrj6Ea8o
+EC5r+v4V5xwqCzcF/uWguahiSt3e8QJ8/vM609LKAjO/QNObZQglvq5FH4o
pwAa7k2rPJcg5Kw02M1VFNjduuPWtoxBTDN4ioPfKDCufKH3/QmDYH0vdJBs
oaAv+u1stK0k0fCIGaL+m4LjgstNM6OSREmgS6ZFLwWqarEnL9ZIETkbNJq2
cef6P41gf+6SJhIVeIwjQ3N9dhzcKHSXJSI7CleHT1BQarp2twXKEaVmVXVp
kxT8//9F/A/efS+c
         "]]}}}, {}}, {
    DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {
       FormBox["\"x\"", TraditionalForm], 
       FormBox["\"fint1(x)\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None}, 
     PlotRange -> {{-1.2, 1.2}, {-4, 4}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox["\"fint1(x) = arctanh(x)\"", TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.6647170590362167`*^9, 3.6647170674974623`*^9}, {
   3.664717153193516*^9, 3.6647171955751753`*^9}, 3.6647173166818857`*^9, 
   3.66471771479945*^9, 3.678719646393407*^9, 3.678780092490404*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "/.", 
    RowBox[{"b", "\[Rule]", " ", "1"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", 
     SqrtBox["0.5"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.664717345258266*^9, 3.664717374158594*^9}, 
   3.664717431875167*^9}],

Cell[BoxData["0.8813735870195538`"], "Output",
 CellChangeTimes->{3.6647173755395823`*^9, 3.664717433994474*^9, 
  3.664717714852642*^9, 3.6787196464362803`*^9, 3.678780092532893*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", 
   SqrtBox[
    RowBox[{"1", "/", "2"}]]], 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.664717558129734*^9, 3.664717577401477*^9}}],

Cell[BoxData[
 RowBox[{"ConditionalExpression", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"ArcTanh", "[", 
     FractionBox[
      SqrtBox["b"], 
      SqrtBox["2"]], "]"}], 
    SqrtBox["b"]], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Im", "[", "b", "]"}], "\[NotEqual]", "0"}], "||", 
    RowBox[{
     RowBox[{"Re", "[", "b", "]"}], "\[LessEqual]", "2"}]}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.664717581081889*^9, 3.664717716745528*^9, 
  3.678719647974596*^9, 3.678780094039238*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", 
   SqrtBox[
    RowBox[{"1", "/", "2"}]]], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], "/.", 
     RowBox[{"b", "\[Rule]", " ", "1"}]}], ")"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.664717558129734*^9, 3.664717577401477*^9}, {
  3.664717608656662*^9, 3.664717622616247*^9}}],

Cell[BoxData[
 RowBox[{"ArcTanh", "[", 
  FractionBox["1", 
   SqrtBox["2"]], "]"}]], "Output",
 CellChangeTimes->{3.6647176236005363`*^9, 3.664717717335453*^9, 
  3.6787196484841967`*^9, 3.678780094455511*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.664717627578898*^9, 3.664717629288993*^9}}],

Cell[BoxData["0.8813735870195429`"], "Output",
 CellChangeTimes->{3.664717629940302*^9, 3.664717717387226*^9, 
  3.678719648564912*^9, 3.67878009447432*^9}]
}, Open  ]]
},
WindowSize->{1142, 934},
WindowMargins->{{158, Automatic}, {56, Automatic}},
Magnification:>1.5 Inherited,
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 262, 7, 72, "Input"],
Cell[CellGroupData[{
Cell[845, 31, 318, 7, 43, "Input"],
Cell[1166, 40, 325, 9, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1528, 54, 201, 5, 68, "Input"],
Cell[1732, 61, 264, 7, 80, "Output"]
}, Open  ]],
Cell[2011, 71, 262, 6, 44, "Input"],
Cell[CellGroupData[{
Cell[2298, 81, 869, 23, 69, "Input"],
Cell[3170, 106, 6816, 121, 380, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10023, 232, 360, 10, 59, "Input"],
Cell[10386, 244, 183, 2, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10606, 251, 271, 8, 77, "Input"],
Cell[10880, 261, 500, 16, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11417, 282, 409, 12, 77, "Input"],
Cell[11829, 296, 210, 5, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12076, 306, 120, 2, 43, "Input"],
Cell[12199, 310, 156, 2, 43, "Output"]
}, Open  ]]
}
]
*)