Lassen und , . Was ist die Erwartung von als ?
Lassen und , . Was ist die Erwartung von als ?
Antworten:
Die Antwort ist in der Tat , wie in den früheren Antworten auf der Grundlage von Simulationen und endlichen Annäherungen vermutet.
Die Lösung wird leicht durch die Einführung einer Folge von Funktionen . Obwohl wir sofort mit diesem Schritt fortfahren könnten, könnte er ziemlich mysteriös erscheinen. Der erste Teil dieser Lösung erklärt, wie man diese kochen kann . Der zweite Teil zeigt, wie sie ausgenutzt werden, um eine Funktionsgleichung zu finden, die von der Begrenzungsfunktion erfüllt wird . Der dritte Teil zeigt die (Routine-) Berechnungen an, die zur Lösung dieser Funktionsgleichung erforderlich sind.f n ( t ) f ( t ) = lim n → ∞ f n ( t )
Wir können dies erreichen, indem wir einige mathematische Standardtechniken zur Problemlösung anwenden. In diesem Fall, in dem irgendeine Art von Operation ad infinitum wiederholt wird, existiert die Grenze als ein fester Punkt dieser Operation. Der Schlüssel besteht dann darin, die Operation zu identifizieren.
Die Schwierigkeit besteht darin, dass der Wechsel von zu kompliziert aussieht. Es ist einfacher, diesen Schritt als aus dem von an die Variablen zu betrachten, als aus dem von an die Variablen . Wenn wir betrachten würden, dass wie in der Frage beschrieben aufgebaut ist - wobei gleichmäßig auf , bedingt gleichmäßig auf ist und so weiter - dann Einführung vonE [ X 1 X 2 ≤ X n - 1 X n ] X 1 ( X 2 , … , X n ) X n ( X 1 , X 2 , … , X n - 1 ) ( X 2 , … , X nX 2 [ 0 , 1 ] X 3 [ X 2 , 1 ] X 1 X i 1 - X 1 1bewirkt, dass jedes nachfolgende um den Faktor Richtung der oberen Grenze schrumpft . Diese Überlegung führt natürlich zu der folgenden Konstruktion.
Als sei , da es etwas einfacher ist, Zahlen gegen als gegen zu verkleinern . Somit ist gleichmäßig in und ist gleichmäßig in abhängig von für alle Wir interessieren uns für zwei Dinge:1 Y i = 1 - X i Y 1 [ 0 , 1 ] Y i + 1 [ 0 , Y i ] ( Y 1 , Y 2 , ... , Y i ) i = 1 , 2 ,
Der Grenzwert von .
Wie sich diese Werte verhalten, wenn alle gleichmäßig auf werden : indem alle Werte mit einem gemeinsamen Faktor , skaliert werden . 0 t 0 ≤ t ≤ 1
Zu diesem Zweck definieren
Es ist klar, dass jedes für jedes reelle definiert und stetig (tatsächlich unendlich differenzierbar) ist . Wir werden uns auf ihr Verhalten für . t t ∈ [ 0 , 1 ]
Folgendes ist offensichtlich:
Jedes ist eine monoton abnehmende Funktion von auf .[ 0 , 1 ] [ 0
für alle .
für alle .
Dies impliziert, dass für alle und .t ∈ [ 0 , 1 ] f ( 0 ) = 1
Beachten Sie, dass abhängig von die Variable in einheitlich ist und die Variablen (abhängig von allen vorhergehenden Variablen) in einheitlich sind , erfüllen genau die Bedingungen, die von erfüllt werden . FolglichY 2 / Y 1 [ 0 , 1 ] Y i + 1 / Y 1 [ 0 , Y i / Y 1 ] ( Y 2 / Y 1 , Y 3 / Y 1 , ... , Y n / Y 1 ) ( Y 1 , … , Y n - 1 )
Dies ist die rekursive Beziehung, nach der wir gesucht haben.
In der Grenze als muss es daher der Fall sein, dass für unabhängig von allen gleichverteilt in ,Y [ 0 , 1 ] Y i
Das heißt, muss ein fester Punkt des Funktions sein , für dieL
Löschen Sie den Bruch indem Sie beide Seiten mit multiplizieren . Da die rechte Seite ein Integral ist, können wir es in Bezug auf , giving unterscheident
Äquivalent dazu, wenn man subtrahiert und beide Seiten durch dividiert ,
für . Wir können dies durch Kontinuität erweitern, um . Mit der Anfangsbedingung (3) ist die eindeutige Lösungt = 0 f ( 0 ) = 1
Folglich wird durch (4), die limitierende Erwartung ist , QED. f ( 1 ) = e - 1 = 1 / e
Da Mathematica ein beliebtes Werkzeug zur Untersuchung dieses Problems zu sein scheint, finden Sie hier einen Mathematica- Code zur Berechnung und Darstellung von für kleine . Die Darstellung von zeigt eine schnelle Konvergenz zu (als schwarzes Diagramm dargestellt). n f 1 , f 2 , f 3 , f 4 e - t
a = 0 <= t <= 1;
l[g_] := Function[{t}, (1/t) Integrate[(1 - x) g[x], {x, 0, t}, Assumptions -> a]];
f = Evaluate@Through[NestList[l, 1 - #/2 &, 3][t]]
Plot[f, {t,0,1}]
Aktualisieren
Ich denke, es ist eine sichere Wette, dass die Antwort . Ich lief die Integrale für den erwarteten Wert von bis mit Mathematica und mit Ich haben = 2 n = 100 n = 100
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(bis zu 100 Dezimalstellen). Der Kehrwert dieses Wertes ist
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
Der Unterschied zu dem reziproken und ist
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Ich glaube, das ist zu nahe, um ein vernünftiger Zufall zu sein.
Der Mathematica- Code lautet:
Do[
x = Table[ToExpression["x" <> ToString[i]], {i, n}];
integrand = Expand[Simplify[(x[[n - 1]]/(1 - x[[n - 1]])) Integrate[x[[n]], {x[[n]], x[[n - 1]], 1}]]];
Do[
integrand = Expand[Simplify[x[[i - 1]] Integrate[integrand, {x[[i]], x[[i - 1]], 1}]/(1 - x[[i - 1]])]],
{i, n - 1, 2, -1}]
Print[{n, N[Integrate[integrand, {x1, 0, 1}], 100]}],
{n, 2, 100}]
Ende der Aktualisierung
Dies ist eher ein ausführlicher Kommentar als eine Antwort.
Wenn wir einen Brute-Force-Weg gehen, indem wir den erwarteten Wert für mehrere Werte von bestimmen , erkennt möglicherweise jemand ein Muster und kann dann ein Limit festlegen .
Für haben wir den erwarteten Wert des Produkts
das ist 96547/259200 oder ungefähr 0,3724807098765432.
Wenn wir das Integral von 0 auf 1 reduzieren, haben wir ein Polynom in mit den folgenden Ergebnissen für bis (und ich habe den Index entfernt, um die Lesbarkeit zu verbessern): n = 1 n = 6
Wenn jemand die Form der ganzzahligen Koeffizienten erkennt, kann möglicherweise eine Grenze als bestimmt werden (nachdem die Integration von 0 auf 1 durchgeführt wurde, die entfernt wurde, um das zugrunde liegende Polynom anzuzeigen).
Gute Frage. Nur als kurzen Kommentar möchte ich Folgendes erwähnen:
wird schnell zu 1 konvergieren, daher ist die Einstellung von für die Monte-Carlo-Prüfung mehr als der Trick.
Wenn , dann durch Monte - Carlo - Simulation, wie , .
Das folgende Diagramm vergleicht das simulierte Monte-Carlo-PDF von mit einer [dh einem Beta (a, 1) pdf)]
... hier mit Parameter :
(Quelle: tri.org.au )
woher:
Die Passform sieht ziemlich gut aus.
Code
Hier sind 1 Million Pseudozufallszeichnungen des Produkts (etwa mit ), hier mit Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
Der Stichprobenmittelwert ist:
Mean[data]
0,367657
Rein intuitiv und basierend auf Rustys anderer Antwort sollte die Antwort ungefähr so lauten:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
Welches gibt uns 0.3583668
. Für jedes teilen Sie den Bereich in zwei Hälften, wobei bei beginnt . Es ist also ein Produkt von usw.
Das ist nur Intuition.
Das Problem mit Rustys Antwort ist, dass U [1] in jeder einzelnen Simulation identisch ist. Die Simulationen sind nicht unabhängig. Eine Lösung dafür ist einfach. Bewegen Sie die Linie mit U[1] = runif(1,0,1)
in die erste Schleife. Das Ergebnis ist:
set.seed(3) #Just for reproducibility of my solution
n = 1000 #Number of random variables
S = 1000 #Number of Monte Carlo samples
Z = rep(NA,S)
U = rep(NA,n)
for(j in 1:S){
U[1] = runif(1,0,1)
for(i in 2:n){
U[i] = runif(1,U[i-1],1)
}
Z[j] = prod(U)
}
mean(Z)
Das gibt 0.3545284
.