파일:Convergence in distribution (sum of uniform rvs).gif

문서 내용이 다른 언어로는 지원되지 않습니다.
위키백과, 우리 모두의 백과사전.

Convergence_in_distribution_(sum_of_uniform_rvs).gif(200 × 148 픽셀, 파일 크기: 20 KB, MIME 종류: image/gif, 반복됨, 9 프레임, 12 s)

파일 설명

설명
English: Z_n is a normalized sum of iid uniform random variables: Z_n = 1/√n Sum{U(-1,1): i=1,...,n}. The animation shows how the pdfs of Z_n converge to a normal N(0,⅓) random variable.
출처 자작
저자 Stpasha

Mathematica source

f[x_] := If[-1 <= x <= 1, 1/2, 0];
f2[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f[x - t] \[DifferentialD]t\)];
f3[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f2[x - t] \[DifferentialD]t\)];
f4[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f3[x - t] \[DifferentialD]t\)];
f5[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f4[x - t] \[DifferentialD]t\)];
f6[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f5[x - t] \[DifferentialD]t\)];
f7[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f6[x - t] \[DifferentialD]t\)];
f8[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f7[x - t] \[DifferentialD]t\)];
f9[x_] := Evaluate[\!\(\*SubsuperscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\[Infinity]\)]f[t] f8[x - t] \[DifferentialD]t\)];
fn[n_, x_] := \[Piecewise] {
  {Sqrt[1] f1[Sqrt[1] x], n == 1},
  {Sqrt[2] f2[Sqrt[2] x], n == 2},
  {Sqrt[3] f3[Sqrt[3] x], n == 3},
  {Sqrt[4] f4[Sqrt[4] x], n == 4},
  {Sqrt[5] f5[Sqrt[5] x], n == 5},
  {Sqrt[6] f6[Sqrt[6] x], n == 6},
  {Sqrt[7] f7[Sqrt[7] x], n == 7},
  {Sqrt[8] f8[Sqrt[8] x], n == 8},
  {Sqrt[9] f9[Sqrt[9] x], n == 9}
  }
Table[
  Plot[fn[n, x], {x, -2, 2}, 
    Exclusions -> None, 
    PlotRange -> {0, 0.8}, 
    ImageSize -> 200, 
    PlotStyle -> Thickness[Large], 
    LabelStyle -> Directive[Larger], 
    Epilog -> Inset[Style["\!\(\*StyleBox[\"n\",\nFontSlant->\"Italic\"]\) = " <> ToString[n],18], {1.2, 0.75}]
    ], 
  {n, 1, 9, 1}
  ]
Export["c:/anim.gif", %, 
  "DisplayDurations" -> {1, 1, 1, 1, 1, 1, 1, 1, .25}, 
  "TransparentColor" -> White
  ]

라이선스

Creative Commons CC-Zero 이 파일은 크리에이티브 커먼즈 CC0 1.0 보편적 퍼블릭 도메인 귀속에 따라 이용할 수 있습니다.
저작물에 본 권리증서를 첨부한 자는 법률에서 허용하는 범위 내에서 저작인접권 및 관련된 모든 권리들을 포함하여 저작권법에 따라 전 세계적으로 해당 저작물에 대해 자신이 갖는 일체의 권리를 포기함으로써 저작물을 퍼블릭 도메인으로 양도하였습니다. 저작권자의 허락을 구하지 않아도 이 저작물을 상업적인 목적을 포함하여 모든 목적으로 복제, 수정·변경, 배포, 공연·실연할 수 있습니다.

설명

이 파일이 나타내는 바에 대한 한 줄 설명을 추가합니다

이 파일에 묘사된 항목

다음을 묘사함

e339929786640eeee64c3a39fc1c1e5030ec7e9f

20,318 바이트

148 화소

200 화소

파일 역사

날짜/시간 링크를 클릭하면 해당 시간의 파일을 볼 수 있습니다.

날짜/시간섬네일크기사용자설명
현재2009년 9월 14일 (월) 08:502009년 9월 14일 (월) 08:50 판의 섬네일200 × 148 (20 KB)Stpasha{{Information |Description={{en|1=Z_n is a normalized sum of iid uniform random variables: Z_n = 1/√n Sum[][-1,1], i=1,...,n]. The animation shows how the pdfs of Z_n converge to a normal N(0, ⅓) random variable.}} |Source=Own work by uploader |A

다음 문서 1개가 이 파일을 사용하고 있습니다:

이 파일을 사용하고 있는 모든 위키의 문서 목록

다음 위키에서 이 파일을 사용하고 있습니다: