Calcule una función de distribución para racionales en el intervalo de la unidad 

Ordene los números racionales entre cero y uno por su representación binaria.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X RankedRational[n_Integer?Positive] := Block[{dig = IntegerDigits[n, 2], avec, cf}, avec = Reverse[Pick[Range[Length[dig] - 1, 0, -1], dig, 1]]; cf = ConstantArray[0, Length[avec] + 1]; cf[[3 ;; -1]] = Differences[avec]; cf[[-1]] += 1; cf[[2]] = avec[[1]] + 1; cf // FromContinuedFraction ]

In[2]:=

X Table[RankedRational[n], {n, 1, 16}]

Out[2]=

La función de distribución acumulada de los racionales en este orden es la función MinkowskiQuestionMark.

In[3]:=

X cdf[x_] = CDF[EmpiricalDistribution[Table[RankedRational[n], {n, 1024}]], x];

muestre la entrada completa de Wolfram Languageoculte la entrada

In[4]:=

X Plot[{MinkowskiQuestionMark[x], cdf[x] }, {x, 0, 1}, PlotStyle -> {Red, Directive[Thick, Black, Dashing[.04]]}, PlotTheme -> "Detailed", AspectRatio -> 1, ImageSize -> Medium]

Out[4]=