package Ġnet . fw itz . math . binary Ċ Ċ import Ġkotlin . math . ln Ċ import Ġkotlin . math . ln 1 p Ċ import Ġkotlin . math . sqrt Ċ Ċ /** Ċ Ġ* ĠSome Ġreal - valu ed Ġfunctions Ġthat Ġaren 't Ġpart Ġof Ġthe Ġstandard Ġlibrary . Ċ Ġ*/ Ċ object ĠReal Math Ġ{ ĊĠĠĠ Ġfun Ġrac osh ( a : ĠDouble ) Ġ= Ġln ( a Ġ+ Ġsqrt ( a Ġ* Ġa Ġ- Ġ 1 )) ĊĊĠĠĠ Ġ// Ġat anh ( x ) Ġ= Ġ 0 . 5 Ġ* Ġlog [ Ġ( 1 + x ) Ġ/ Ġ( 1 - x ) Ġ] ĊĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠ Ġ= Ġ 0 . 5 Ġ* Ġ( log ( 1 Ġ+ Ġx ) Ġ- Ġlog ( 1 Ġ- Ġx )) ĊĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠ Ġ= Ġ 0 . 5 Ġ* Ġ( log 1 p ( x ) Ġ- Ġlog 1 p (- x )) ĊĠĠĠ Ġ// ĠĠĠĠĠĠĠĠĠ Ġ= Ġ 0 . 5 Ġ* Ġlog 1 p ( x ) Ġ- Ġ 0 . 5 Ġ* Ġlog 1 p (- x ) ĊĠĠĠ Ġfun Ġr atan h ( x : ĠDouble ) Ġ= Ġ 0 . 5 Ġ* Ġln 1 p ( x ) Ġ- Ġ 0 . 5 Ġ* Ġln 1 p (- x ) Ċ }