File:KhinchinGegenbeispiele.svg: Difference between revisions
Jump to navigation
Jump to search
Content deleted Content added
{{Information |Description={{en|1=Mathematica Plot of counter-examples of the evolutions of several real numbers to Khinchin's constant<br> Red: Euler's number (<math>e</math>)<br> Blue: The [ |
|||
Line 18: | Line 18: | ||
}} |
}} |
||
Source code: |
Source code: |
||
<source lang="text"> |
|||
KhinchinEntwicklung[Zahl_, Länge_] := |
|||
Table[N[(Times @@ ContinuedFraction[Zahl, n])^(1/n)], {n, 1, Länge}] |
|||
$MaxExtraPrecision = 250; |
|||
ListLinePlot[{Table[Khinchin, {n, 1, 500}], |
|||
KhinchinEntwicklung[E, 500], |
|||
KhinchinEntwicklung[2^(1/2), 500], |
|||
KhinchinEntwicklung[3^(1/2), 500] |
|||
}, PlotStyle -> {Black, Red, Blue, Green}, PlotRange -> {1, 5}] |
|||
</source> |
|||
[[Category:Continued fractions]] |
[[Category:Continued fractions]] |
||
[[Category:Mathematica diagrams]] |
[[Category:Mathematica diagrams]] |
||
== [[Commons:Copyright tags|Licensing]] == |
== [[Commons:Copyright tags|Licensing]] == |
||
{{self|GFDL|cc-by-sa-3.0}} |
{{self|GFDL|cc-by-sa-3.0}} |