Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Теория вероятностей и математическая статистика на базе Maple. Лабораторный практикум. Учебное пособие
.pdf
f
f
PZ z P X k PY z k
¦
f
k
ɉɭɫɬɶXɢY±ɧɟɡɚɜɢɫɢɦɵɟ ɧɟɩɪɟɪɵɜɧɵɟ ɫɥɭɱɚɣɧɵɟɜɟɥɢɱɢɧɵɢɦɟɸɳɢɟ
ɩɥɨɬɧɨɫɬɢ fx ɢ gy ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ Ɍɨɝɞɚ ɩɥɨɬɧɨɫɬɶ ɫɥɭɱɚɣɧɨɣ ɜɟɥɢɱɢɧɵ
Z X Yɪɚɜɧɚ
f f
xgz xdx f z ygydy
³³
f f
ǮȇȋȇȔȏȌ 8ǵșȑȗȕȐșȌțȇȐȒǸȚȓȓȢǸǩPZVȏȉȢȖȕȒȚȞȏșȌȋȕȘșȚȖȑȖȗȕȝȌȋȚȗȇȓ
ConvolutionDiscr2, ConvolutionDiscrN,
ȾɚɧɵɪɹɞɵɪɚɫɩɪɟɞɟɥɟɧɢɹɞɢɫɤɪɟɬɧɵɯɫɜɏɢY
Ǽ Y
p p
ɉɪɢɦɟɧɢɜ ɮɨɪɦɭɥɭ ɩɥɨɬɧɨɫɬɢ ɫɭɦɦɵ ɞɜɭɯ ɧɟɡɚɜɢɫɢɦɵɯ ɧɟɩɪɟɪɵɜ
ɧɵɯɫɜ
ɡɭɥɶɬɚɬɫɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵ
ɧɚɣɞɢɬɟɪɹɞɪɚɫɩɪɟɞɟɥɟɧɢɹɫɜZ X Yɉɪɨɜɟɪɶɬɟɫɜɨɣɪɟ
ConvolutionDiscr2(distributionlist1,distributionlist2)
ɉɪɟɞɩɨɥɚɝɚɟɬɫɹ ɱɬɨ ɫɩɢɫɨɤ
distributionlist1 ɞɨɥɠɟɧ ɫɨɞɟɪɠɚɬɶ n
ɜɥɨɠɟɧɧɵɯ ɫɩɢɫɤɨɜ ɞɥɢɧɵ ɝɞɟ n ± ɞɥɢɧɚ ɪɹɞɚ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɞɢɫɤɪɟɬɧɨɣ
ɫɜ ɏɩɪɢ ɷɬɨɦ ɜɤɚɠɞɨɦ ɜɥɨɠɟɧɧɨɦ ɫɩɢɫɤɟɩɟɪɜɵɦ ɷɥɟɦɟɧɬɨɦ ɛɭɞɟɬɡɧɚɱɟ
ɧɢɟ ɫ ɜ ɏ ɜɬɨɪɵɦ ɷɥɟɦɟɧɬɨɦ ± ɜɟɪɨɹɬɧɨɫɬɶ ɫ ɤɨɬɨɪɨɣ ɨɧɚ ɩɪɢɧɢɦɚɟɬ ɷɬɨ
ɡɧɚɱɟɧɢɟ Ⱥɧɚɥɨɝɢɱɧɨ ɫɩɢɫɨɤ
distributionlist2 ɞɨɥɠɟɧ ɫɨɞɟɪɠɚɬɶ m
ɜɥɨɠɟɧɧɵɯ ɫɩɢɫɤɨɜ ɞɥɢɧɵ ɝɞɟ m ± ɞɥɢɧɚ ɪɹɞɚ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɞɢɫɤɪɟɬɧɨɣ
ɫɜY
ȼɧɚɱɚɥɟ ɩɪɢɜɟɞɟɦ ɨɛɪɚɡɰɵ ɜɵɩɨɥɧɟɧɢɹ ɬɟɯ ɤɨɦɚɧɞ 0DSOH ɤɨɬɨɪɵɟ
ɩɨɧɚɞɨɛɹɬɫɹɩɪɢɜɵɩɨɥɧɟɧɢɹɷɬɨɝɨɡɚɞɚɧɢɹ
ɉɪɢɦɟɪɢɡɜɥɟɱɟɧɢɹɷɥɟɦɟɧɬɨɜ ɢɡ ɜɥɨɠɟɧɧɵɯ ɫɩɢɫɤɚɯȾɚɧɫɩɢɫɨɤɫɨɫɬɨɹ
ɳɢɣɢɡɬɪɟɯɜɥɨɠɟɧɧɵɯɜɧɟɝɨɫɩɢɫɤɨɜ
S:=[[1,3],[4,-1],[5,7,6]]:
ȼɵɛɟɪɟɦɣɷɥɟɦɟɧɬɜɦɜɥɨɠɟɧɧɨɦɫɩɢɫɤɟ
k:=2: i:=3: S[i][k];
ɇɚɣɞɟɦɬɟɩɟɪɶɫɭɦɦɭɩɟɪɜɵɯɷɥɟɦɟɧɬɨɜɢɡɝɨɢɝɨɜɥɨɠɟɧɧɵɯɫɩɢɫɤɨɜ
sum(S[i][1],i=2..3);
Ⱦɚɧɪɹɞɪɚɫɩɪɟɞɟɥɟɧɢɹɞɢɫɤɪɟɬɧɨɣɫɜɏ
Ǽ
p
ɋɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵConvolutionDiscrN(distributionlist,n)
ɧɚɣɞɢɬɟ ɜɟɪɨɹɬɧɨɫɬɶ P Z ɞɥɹ ɫɥɭɱɚɣɧɨɣ ɜɟɥɢɱɢɧɵ Z X
X
«X
n
XX ± ɧɟɡɚɜɢɫɢɦɵɟ ɫɥɭɱɚɣɧɵɟ ɜɟɥɢɱɢɧɵ ɡɚɤɨɧ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɤɨɬɨ
ɝɞɟ
n
ɪɵɯɫɨɜɩɚɞɚɟɬɫɪɹɞɨɦɪɚɫɩɪɟɞɟɥɟɧɢɹɫɜɏ.
ɋɩɢɫɨɤ
distributionlist ɞɨɥɠɟɧ ɫɨɞɟɪɠɚɬɶ m ɜɥɨɠɟɧɧɵɯ ɫɩɢɫɤɨɜ
ɞɥɢɧɵɝɞɟm±ɞɥɢɧɚɪɹɞɚɪɚɫɩɪɟɞɟɥɟɧɢɹɞɢɫɤɪɟɬɧɨɣɫɜɏ
ǮȇȋȇȔȏȌ 9
ȾɚɧɵɞɜɟɧɟɡɚɜɢɫɢɦɵɟɧɟɩɪɟɪɵɜɧɵɟɫɜɏɢYɪɚɜɧɨɦɟɪɧɨɪɚɫɩɪɟɞɟ
ɥɟɧɧɵɟɧɚɨɬɪɟɡɤɟ>@ ɉɪɢɦɟɧɢɜ ɮɨɪɦɭɥɭ ɩɥɨɬɧɨɫɬɢ ɫɭɦɦɵɞɜɭɯɧɟɡɚɜɢɫɢ
ɦɵɯɧɟɩɪɟɪɵɜɧɵɯɫɜ
ɇɚɣɞɢɬɟɩɥɨɬɧɨɫɬɶɪɚɫɩɪɟɞɟɥɟɧɢɹɫɥɭɱɚɣɧɨɣɜɟɥɢɱɢɧɵZ X Y
ɉɪɨɜɟɪɶɬɟɫɜɨɣɪɟɡɭɥɶɬɚɬɫɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵ
ConvolutionContinN(fun,n)ɝɞɟfun±ɩɥɨɬɧɨɫɬɶɪɚɫɩɪɟɞɟɥɟɧɢɹɡɚ
ɞɚɧɧɨɣɧɟɩɪɟɪɵɜɧɨɣ ɫɜ ɏ
n± ɤɨɥɢɱɟɫɬɜɨɫɭɦɦɢɪɭɟɦɵɯ ɫɥɭɱɚɣɧɵɯ ɜɟ
ɥɢɱɢɧ
Ⱦɚɧɵɞɜɟɧɟɡɚɜɢɫɢɦɵɟɧɟɩɪɟɪɵɜɧɵɟɫɥɭɱɚɣɧɵɟ ɜɟɥɢɱɢɧɵɏɢYɩɪɢ
ɱɟɦɫɜɏɢɦɟɟɬɩɨɤɚɡɚɬɟɥɶɧɨɟɪɚɫɩɪɟɞɟɥɟɧɢɟɫɩɚɪɚɦɟɬɪɨɦa ɢY ±X
ɉɪɢɦɟɧɢɜ ɮɨɪɦɭɥɭ ɩɥɨɬɧɨɫɬɢ ɫɭɦɦɵ ɞɜɭɯ ɧɟɡɚɜɢɫɢɦɵɯ ɧɟɩɪɟɪɵɜ
ɧɵɯ ɫ ɜ ɧɚɣɞɢɬɟ ɩɥɨɬɧɨɫɬɶ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫɥɭɱɚɣɧɨɣ ɜɟɥɢɱɢɧɵ
Z XY
ɉɪɨɜɟɪɶɬɟ ɫɜɨɣ ɪɟɡɭɥɶɬɚɬ ɞɥɹ ɩɪɨɢɡɜɨɥɶɧɨɝɨ ɩɨɥɨɠɢɬɟɥɶɧɨɝɨ ɩɚɪɚ
ɦɟɬɪɚɚɫɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵ
ConvolutionContin2(fun1,fun2)
fun1,fun2 ±ɩɥɨɬɧɨɫɬɢɪɚɫɩɪɟɞɟɥɟɧɢɹɡɚɞɚɧɧɵɯɧɟɩɪɟɪɵɜɧɵɯɫɜɏɢY
ɝɞɟ
ɡɚɜɢɫɹɳɢɟɨɬɚɪɝɭɦɟɧɬɚɯ.
Ⱦɭɷɥɢ ɜ ɩɨɫɟɥɤɟ ɋɦɨɥɹɧɵ ɪɟɞɤɨ ɡɚɤɚɧɱɢɜɚɸɬɫɹ ɩɟɱɚɥɶɧɵɦ ɢɫɯɨɞɨɦ
Ⱦɟɥɨɜɬɨɦɱɬɨɤɚɠɞɵɣɞɭɷɥɹɧɬɩɪɢɛɵɜɚɟɬɧɚɦɟɫɬɨɜɫɬɪɟɱɢɜɫɥɭɱɚɣɧɵɣɦɨ
ɦɟɧɬ ɜɪɟɦɟɧɢ ɦɟɠɞɭ ɢ ɱɚɫɚɦɢ ɭɬɪɚ ɢ ɩɪɨɠɞɚɜ ɫɨɩɟɪɧɢɤɚ
ɦɢɧɭɬɭɞɚɥɹɟɬɫɹ ȼ ɫɥɭɱɚɟɠɟɩɪɢɛɵɬɢɹ ɩɨɫɥɟɞɧɟɝɨ ɜ ɷɬɢɩɹɬɶɦɢɧɭɬ ɞɭɷɥɶ
ɩɪɨɢɫɯɨɞɢɬɄɚɤɨɜɚɜɟɪɨɹɬɧɨɫɬɶɬɨɝɨɱɬɨɞɭɷɥɶɡɚɤɚɧɱɢɜɚɟɬɫɹɩɨɟɞɢɧɤɨɦ"
Ɋɟɲɢɬɟɷɬɭɡɚɞɚɱɭɩɪɢɛɟɝɧɭɜɤɨɬɜɟɬɚɦɡɚɞɚɱɢɡɚɞɚɧɢɹɢɩɪɢɦɟ
ɧɢɜɩɪɨɰɟɞɭɪɭ
ConvolutionCont2
P
V
P
V
ǮȇȋȇȔȏȌ 10ǮȇȑȕȔȗȇȘȖȗȌȋȌȒȌȔȏȦȔȇȎȢȉȇȌșȘȦȚȘșȕȐȞȏȉȢȓȌȘȒȏȘȚȓȓȇȖȗȕȏȎȉȕȒȣȔȢȜ
ȘȒȚȞȇȐȔȢȜȉȌȒȏȞȏȔȢȖȕȋȞȏȔȌȔȔȢȜȤșȕȓȚȎȇȑȕȔȚșȇȑȍȌȏȓȌȌșȤșȕȗȇȘȖȗȌȋȌȒȌȔȏȌ
ɋ ɩɨɦɨɳɶɸ ɩɪɨɰɟɞɭɪɵ ConvolutionContin2 ɞɨɤɚɠɢɬɟ ɭɫɬɨɣ
ɱɢɜɨɫɬɶ ɧɨɪɦɚɥɶɧɨɝɨ ɡɚɤɨɧɚ ɢ ɜɵɜɟɞɢɬɟ ɩɪɚɜɢɥɨ ɧɚɯɨɠɞɟɧɢɹ ɩɚɪɚ
ɦɟɬɪɨɜ ɧɨɪɦɚɥɶɧɨɝɨ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɹɜɥɹɸɳɟɝɨɫɹ ɫɭɦɦɨɣ ɞɜɭɯ ɧɨɪ
ɢ
ɦɚɥɶɧɵɯɪɚɫɩɪɟɞɟɥɟɧɢɣɫɩɚɪɚɦɟɬɪɚɦɢ
ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ
ȼɵɹɫɧɢɬɟ ɬɚɤɠɟ ɭɫɬɨɣɱɢɜ ɥɢ ɩɨɤɚɡɚɬɟɥɶɧɵɣ ɡɚɤɨɧ Ⱦɥɹ ɷɬɨɝɨ
ɩɪɢɦɟɧɢɬɟɩɪɨɰɟɞɭɪɭConvolutionContinN ɧɟɫɤɨɥɶɤɨɪɚɡɩɪɢɪɚɡ
ɥɢɱɧɵɯɡɧɚɱɟɧɢɹɯɩɚɪɚɦɟɬɪɚnɧɚɩɪɢɦɟɪn ɢɜɵɹɜɢɜɬɚɤɢɦ
ɨɛɪɚɡɨɦ ɡɚɤɨɧɨɦɟɪɧɨɫɬɶ ɧɚɣɞɢɬɟ ɩɥɨɬɧɨɫɬɶ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫɭɦɦɵ n
ɧɟɡɚɜɢɫɢɦɵɯ ɫɥɭɱɚɣɧɵɯ ɜɟɥɢɱɢɧ ɢɦɟɸɳɢɯ ɩɨɤɚɡɚɬɟɥɶɧɨɟ ɪɚɫɩɪɟɞɟ
ɥɟɧɢɟɫɨɞɢɧɚɤɨɜɵɦɩɚɪɚɦɟɬɪɨɦɚ
ǮȇȋȇȔȏȌ 11ǩȔȇȞȇȒȌȖȗȏȉȌȋȌȓȕȈȗȇȎȝȢȉȢȖȕȒȔȌȔȏȦșȌȜȑȕȓȇȔȋ0DSOHȑȕșȕȗȢȌȖȕ
ȔȇȋȕȈȦșȘȦȖȗȏȉȢȖȕȒȔȌȔȏȏȤșȕȊȕȎȇȋȇȔȏȦ
ɋɨɡɞɚɧɢɟɦɚɫɫɢɜɚɫɨɞɟɪɠɚɳɟɝɨɤɜɚɞɪɚɬɵɧɚɬɭɪɚɥɶɧɵɯɱɢɫɟɥ
s:=[2,5,13,107];
s >@
for n in s do U[n]:=n^2 end;
U U U
U
ɉɨɫɬɪɨɟɧɢɟɧɟɫɤɨɥɶɤɢɯɝɪɚɮɢɤɨɜɧɚɨɞɧɨɣɤɨɨɪɞɢɧɚɬɧɨɣɩɥɨɫɤɨɫɬɢ
p1:=plot(2^x,x=-3..3,color=red):
p2:=plot(x^3,x=-2..2,color=blue):
plots[display](p1,p2);
ǷȏȘ
ɋɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵConvolutionContinN ɩɨɫɬɪɨɣɬɟɝɪɚɮɢɤɢ
ɩɥɨɬɧɨɫɬɟɣ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫɭɦɦ n ɧɟɡɚɜɢɫɢɦɵɯ ɫɥɭɱɚɣɧɵɯ ɜɟɥɢɱɢɧ
ɪɚɜɧɨɦɟɪɧɨɪɚɫɩɪɟɞɟɥɟɧɧɵɯɧɚɨɬɪɟɡɤɟ>@ɩɪɢn
ȿɫɥɢXii «n±ɧɟɡɚɜɢɫɢɦɵɟɫɥɭɱɚɣɧɵɟɜɟɥɢɱɢɧɵɢɦɟɸɳɢɟ
n
ɫɬɚɧɞɚɪɬɧɨɟɪɚɫɩɪɟɞɟɥɟɧɢɟ ɬɨɫɭɦɦɚɢɯɤɜɚɞɪɚɬɨɜ
YX
ɹɜɥɹɟɬɫɹɫɥɭɱɚɣ
¦
i
i
ɧɨɣ ɜɟɥɢɱɢɧɨɣ ɢɦɟɸɳɟɣ ɯɢɤɜɚɞɪɚɬ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɫ n ɫɬɟɩɟɧɹɦɢ ɫɜɨɛɨɞɵ
ȼ ɪɟɲɟɧɢɢ ɡɚɞɚɱɢ ɛɵɥɚ ɧɚɣɞɟɧɚ ɩɥɨɬɧɨɫɬɶ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫ ɜ X
ɪɚɜ
i
ɧɚɹ
y
H
y
S
ɂɫɩɨɥɶɡɭɹ ɷɬɨɬ ɪɟɡɭɥɶɬɚɬ ɧɚɣɞɢɬɟ ɫ ɩɨɦɨɳɶɸ ɩɪɨɰɟɞɭɪɵ
ConvolutionContinN ɩɥɨɬɧɨɫɬɢ ɯɢɤɜɚɞɪɚɬ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫ ɢ ɫɬɟ
ɩɟɧɹɦɢɫɜɨɛɨɞɵɢɩɨɫɬɪɨɣɬɟɢɯɝɪɚɮɢɤɢ
DzȇȈȕȗȇșȕȗȔȇȦȗȇȈȕșȇ
ǮǧDZǵǴǨǵDzȃǿǯǼǾǯǸǬDz
ǯǽǬǴǹǷǧDzȃǴǧȆǶǷǬǫǬDzȃǴǧȆǹǬǵǷǬdzǧ
ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ n ɧɟɡɚɜɢɫɢɦɵɯ ɫɥɭɱɚɣɧɵɯ ɜɟɥɢɱɢɧ X
ɢɦɟɸɳɢɯɨɞɢɧɚɤɨɜɵɟɪɚɫɩɪɟɞɟɥɟɧɢɹɫɦɚɬɟɦɚɬɢɱɟɫɤɢɦɢɨɠɢɞɚɧɢɹɦɢ
V
ɢɞɢɫɩɟɪɫɢɹɦɢ
ɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚɧɢɣɫɩɚɪɚɦɟɬɪɚɦɢ
DXii «nɧɚɡɵɜɚɟɬɫɹɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɸnɧɟ
PɢVɌɚɤɚɹɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɜɨɡɧɢɤɚ
X « Xn
P MX
i
ɟɬɧɚɩɪɢɦɟɪ ɩɪɢɩɨɜɬɨɪɟɧɢɢɧɟɤɨɬɨɪɨɝɨɨɩɵɬɚ ɋɯɟɦɚȻɟɪɧɭɥɥɢɫɩɚɪɚɦɟɬɪɚ
ɦɢpɢnɹɜɥɹɟɬɫɹɱɚɫɬɧɵɦɫɥɭɱɚɟɦɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɢnɧɟɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚ
ɧɢɣX
X«XnɫɩɚɪɚɦɟɬɪɚɦɢpɢpqɜɤɨɬɨɪɨɣɤɚɠɞɚɹɫɜXiɹɜɥɹɟɬɫɹɢɧɞɢ
ɤɚɬɨɪɧɨɣɫɥɭɱɚɣɧɨɣɜɟɥɢɱɢɧɨɣ
ǮǧDZǵǴ ǨǵDzȃǿǯǼ ǾǯǸǬDzɉɭɫɬɶX
ɧɟɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚɧɢɣɫɩɚɪɚɦɟɬɪɚɦɢ
H!
OLP _ _
PA
ɥɸɛɨɝɨɱɢɫɥɚ
n
of
P H
n
X « Xn ± ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ
PɢV
XX X
A
n
n
n
Ɍɨɝɞɚɞɥɹ
ɗɬɚɬɟɨɪɟɦɚ ɭɬɜɟɪɠɞɚɟɬ ɱɬɨɫɪɟɞɧɹɹɜɟɥɢɱɢɧɚ ɢɫɯɨɞɨɜ ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨ
ɫɬɢɢɡ n ɧɟɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚɧɢɣɫ ɪɨɫɬɨɦnɫɬɚɧɨɜɢɬɫɹ ɫɤɨɥɶ ɭɝɨɞɧɨɛɥɢɡɤɨɣ
ɤɦɚɬɟɦɚɬɢɱɟɫɤɨɦɭ ɨɠɢɞɚɧɢɸɫɥɭɱɚɣɧɵɯ ɜɟɥɢɱɢɧ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɯ ɷɬɢɦ ɢɫ
ɩɵɬɚɧɢɹɦ
ȼɫɯɟɦɟȻɟɪɧɭɥɥɢɢɡ n ɢɫɩɵɬɚɧɢɣ ɫ ɞɜɭɦɹɢɫɯɨɞɚɦɢɍɢɉɱɚɫɬɨɬɚ ɩɨɹɜ
ɥɟɧɢɹɢɫɯɨɞɚɍɪɚɜɧɚA
ɢP pɉɨɷɬɨɦɭɜɫɢɥɭɡɚɤɨɧɚɛɨɥɶɲɢɯɱɢɫɟɥɱɚɫɬɨɬɚ
n
ɩɨɹɜɥɟɧɢɹ ɢɫɯɨɞɚ ɍ ɫ ɭɜɟɥɢɱɟɧɢɟɦ ɱɢɫɥɚɩɨɜɬɨɪɹɸɳɢɯɫɹ ɢɫɩɵɬɚɧɢɣ ɩɪɢɛɥɢ
ɠɚɟɬɫɹɤɜɟɪɨɹɬɧɨɫɬɢɩɨɹɜɥɟɧɢɹɢɫɯɨɞɚɍɜɤɚɠɞɨɦɢɡɷɬɢɯɢɫɩɵɬɚɧɢɣɱɬɨɫɨ
ɨɬɜɟɬɫɬɜɭɟɬɫɬɚɬɢɫɬɢɱɟɫɤɨɦɭɨɩɪɟɞɟɥɟɧɢɸɜɟɪɨɹɬɧɨɫɬɢ
ǽǬǴǹǷǧDzȃǴǧȆǶǷǬǫǬDzȃǴǧȆ ǹǬǵǷǬdzǧǽǶǹ ɩɪɟɞɫɬɚɜɥɹɟɬ ɝɪɭɩɩɭ
ɬɟɨɪɟɦɨɝɨɜɚɪɢɜɚɸɳɢɯɭɫɥɨɜɢɹɩɪɢɤɨɬɨɪɵɯɡɚɤɨɧ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫɭɦɦɵ ɞɨ
ɫɬɚɬɨɱɧɨ ɛɨɥɶɲɨɝɨ ɱɢɫɥɚ ɫɥɭɱɚɣɧɵɯ ɜɟɥɢɱɢɧ ɧɟɨɝɪɚɧɢɱɟɧɧɨ ɩɪɢɛɥɢɠɚɟɬɫɹ
ɤ ɧɨɪɦɚɥɶɧɨɦɭ ɑɬɨ ɤɚɫɚɟɬɫɹ ɭɫɥɨɜɢɣ ɩɨ ɤɨɬɨɪɵɦ ɪɚɡɥɢɱɚɸɬɫɹ ɭɬɜɟɪɠɞɟɧɢɹ
x
x
ɐɉɌ ɬɨ ɨɧɢ ɩɨ ɫɭɳɟɫɬɜɭ ɫɜɨɞɹɬɫɹ ɤ ɬɪɟɛɨɜɚɧɢɸ ɱɬɨɛɵ ɜ ɫɨɫɬɚɜɫɭɦɦɵɧɟ
ɜɯɨɞɢɥɢɱɥɟɧɵɹɜɧɨɩɪɟɨɛɥɚɞɚɸɳɢɟɧɚɞ ɫɨɜɨɤɭɩɧɨɫɬɶɸ ɨɫɬɚɥɶɧɵɯ ɩɨ ɫɜɨɟɦɭ
ɜɥɢɹɧɢɸɧɚɞɢɫɩɟɪɫɢɸɜɫɟɣɫɭɦɦɵɉɪɢɜɟɞɟɦɨɞɧɭɢɡɩɪɟɞɟɥɶɧɵɯɬɟɨɪɟɦ
ǶǷǬǫǬDzȃǴǧȆǹǬǵǷǬdzǧ
ɉɭɫɬɶXX«Xn±ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɧɟɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚɧɢɣɫɩɚ
ɪɚɦɟɬɪɚɦɢ
PɢVS
XX«Xn
n
XX X
A
n
n
n
Ɍɨɝɞɚ
bn an
P P
§·§·
OLP
n
of
) )
Pa S b
n
¨¸¨¸
nn
VV
©¹©¹
§·§·
¨¸¨¸
ba
P P
OLP
Pa A b
) )
n
of
n
¨¸¨¸
VV
¨¸¨¸
¨¸¨¸
nn
©¹©¹
ɝɞɟ ɮɭɧɤɰɢɹ
) ± ɧɚɤɨɩɢɬɟɥɶɧɚɹ ɮɭɧɤɰɢɹ ɫɬɚɧɞɚɪɬɧɨɣ ɫɥɭɱɚɣɧɨɣ ɜɟɥɢɱɢ
ɧɵ
ɉɭɫɬɶX
ɪɚɦɟɬɪɚɦɢ
X«Xn±ɩɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶɧɟɡɚɜɢɫɢɦɵɯɢɫɩɵɬɚɧɢɣɫɩɚ
PɢVS
XX«XnɩɪɢɱɟɦɤɚɠɞɚɹɫɜXiɩɪɢɧɢɦɚɟɬɬɨɥɶɤɨ
n
ɰɟɥɨɱɢɫɥɟɧɧɵɟ ɡɧɚɱɟɧɢɹ ɚ ɧɚɢɛɨɥɶɲɢɣ ɨɛɳɢɣ ɞɟɥɢɬɟɥɶ ɪɚɡɧɨɫɬɟɣ ɜɫɟɯ ɩɚɪ
ɷɬɢɯɡɧɚɱɟɧɢɣɪɚɜɟɧɌɨɝɞɚ
kn
P
§·
PS k
M
n
M ±ɩɥɨɬɧɨɫɬɶɪɚɫɩɪɟɞɟɥɟɧɢɹɫɬɚɧɞɚɪɬɧɨɣɫɥɭɱɚɣɧɨɣɜɟɥɢɱɢɧɵ
ɝɞɟ
¨¸
nn
©¹
VV
ɉɨɥɟɡɧɚɹɢɧɮɨɪɦɚɰɢɹ ɦɚɬɟɦɚɬɢɱɟɫɤɢɟ ɨɠɢɞɚɧɢɹ ɢ ɞɢɫɩɟɪɫɢɢɨɫɧɨɜ
ɧɵɯɡɚɤɨɧɨɜɪɚɫɩɪɟɞɟɥɟɧɢɹ
ȿɫɥɢɫ ɜɏ ɹɜɥɹɟɬɫɹɢɧɞɢɤɚɬɨɪɧɨɣɫɥɭɱɚɣɧɨɣɜɟɥɢɱɢɧɨɣ ɫɩɚɪɚɦɟɬɪɨɦp
p
p
p
M
M
A
A
ɬɨMX pDX p±p
ȿɫɥɢ ɫ ɜ ɏ ɢɦɟɟɬ ɛɢɧɨɦɢɚɥɶɧɨɟ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɫ ɩɚɪɚɦɟɬɪɚɦɢ nɢp
ɬɨMX npDX np±p
ȿɫɥɢ ɫ ɜ ɏ ɢɦɟɟɬ ɝɟɨɦɟɬɪɢɱɟɫɤɨɟ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɫ ɩɚɪɚɦɟɬɪɨɦ p
ɬɨ
MX
DX
ȿɫɥɢɫɜɏɢɦɟɟɬɪɚɫɩɪɟɞɟɥɟɧɢɟɉɭɚɫɫɨɧɚ ɫ ɩɚɪɚɦɟɬɪɨɦ m ɬɨ MX m
DX m
ȿɫɥɢ ɫ ɜ ɏ ɢɦɟɟɬ ɩɨɤɚɡɚɬɟɥɶɧɨɟ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɫ ɩɚɪɚɦɟɬɪɨɦ
ɬɨ
MX
O
DX O
ȿɫɥɢ ɫ ɜ ɏ ɢɦɟɟɬ ɧɨɪɦɚɥɶɧɨɟ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɫ ɩɚɪɚɦɟɬɪɚɦɢ PɢV
ɬɨMX PDX V
ȿɫɥɢ ɫ ɜ ɏ ɢɦɟɟɬ ɪɚɜɧɨɦɟɪɧɨɟ ɪɚɫɩɪɟɞɟɥɟɧɢɟ ɧɚ ɨɬɪɟɡɤɟ >a b@
ba
MX
ɬɨ
ab
DX
ǮȇȋȇȔȏȌ 1 ǶȚȘșȣ X
ȓȌșȗȇȓȏ P ȏ V S
Sn
P
n
S
n
n
V
X«Xn±ȖȕȘȒȌȋȕȉȇșȌȒȣȔȕȘșȣȔȌȎȇȉȏȘȏȓȢȜȏȘȖȢșȇȔȏȐȘȖȇȗȇ
n
n
ǸȒȚȞȇȐȔȢȌ ȉȌȒȏȞȏȔȢ
ȏ
A
n
n XX
A
n
V
XX X
«Xn
P
ȔȇȎȢȉȇȥșȘȦ ȘșȇȔȋȇȗșȏȎȕȉȇȔȔȢȓȏ ȘȒȚȞȇȐȔȢȓȏ ȉȌȒȏ
A
n
n
ȞȏȔȇȓȏ
ɇɚɣɞɢɬɟ ɦɚɬɟɦɚɬɢɱɟɫɤɢɟ ɨɠɢɞɚɧɢɹ
DS
n
DA
ɢɫɪɟɞɧɢɟɤɜɚɞɪɚɬɢɱɟɫɤɢɟɨɬɤɥɨɧɟɧɢɹ
n
ɬɢɡɨɜɚɧɧɵɯɫɜ
S ɢ
n
S
n
n
A ɞɢɫɩɟɪɫɢɢ
n
SV
n
V
n
ɍɛɟɞɢɬɟɫɶɱɬɨ
OLP OLP
Pa S b Pa A b b a
nn
of of
) )
nn
O,
ɫɬɚɧɞɚɪ
ɂɡɢ ɫɥɟɞɭɟɬ ɱɬɨɪɚɫɩɪɟɞɟɥɟɧɢɹɫɬɚɧɞɚɪɬɢɡɨɜɚɧɧɵɯɫ ɜ
A
S ɢ
n
ɫ ɪɨɫɬɨɦ n ɞɨɥɠɧɵ ɩɪɢɛɥɢɠɚɬɶɫɹ ɤ ɫɬɚɧɞɚɪɬɧɨɦɭ ɪɚɫɩɪɟɞɟɥɟɧɢɸ ɉɪɨɜɟɪɢɦ
ɷɬɨɦɫɩɨɦɨɳɶɸɦɨɞɟɥɢɪɨɜɚɧɢɹ
Ɉɬɤɪɨɣɬɟ ɮɚɣɥ ɐɉɌȽɪɚɮɢɤɫɭɦɦɵɞɢɫɤɪɫɜPZVɢɜɚɦ ɫɬɚɧɟɬɞɨ
ɫɬɭɩɧɚ ɩɪɨɰɟɞɭɪɚ
CLT_Plot(distribution,k), ɤɨɬɨɪɚɹ ɫɬɪɨɢɬ ɝɪɚɮɢɤ
ɩɥɨɬɧɨɫɬɢɫɬɚɧɞɚɪɬɧɨɝɨɪɚɫɩɪɟɞɟɥɟɧɢɹɢɤɨɫɬɵɥɶɧɵɣɩɨɥɢɝɨɧɫɬɚɧɞɚɪɬɢɡɨɜɚɧ
ɧɨɣɫɥɭɱɚɣɧɨɣɜɟɥɢɱɢɧɵ
Sn
P
n
S
n
XX«Xn±ɫɭɦɦɚn ɧɟɡɚɜɢɫɢɦɵɯɨɞɢɧɚɤɨɜɨɪɚɫɩɪɟɞɟɥɟɧɧɵɯɞɢɫ
ɝɞɟS
n
ɤɪɟɬɧɵɯɫɜMX
ɞɚɟɬɫɹ ɜ ɫɩɢɫɤɟ
ɫɩɢɫɤɨɜɞɥɢɧɵɝɞɟ
PDXi Vi «nɊɹɞɪɚɫɩɪɟɞɟɥɟɧɢɹɫɜXi ɡɚ
i
distribution ɤɨɬɨɪɵɣ ɞɨɥɠɟɧ ɫɨɞɟɪɠɚɬɶ k ɜɥɨɠɟɧɧɵɯ
k±ɞɥɢɧɚɪɹɞɚ ɪɚɫɩɪɟɞɟɥɟɧɢɹX
ɠɟɧɧɨɦɫɩɢɫɤɟ ɩɟɪɜɵɦɷɥɟɦɟɧɬɨɦɛɭɞɟɬɡɧɚɱɟɧɢɟɫɜ X
n
V
ɩɪɢɷɬɨɦɜɤɚɠɞɨɦɜɥɨ
i
ɜɬɨɪɵɦɷɥɟɦɟɧɬɨɦ±
i
ɜɟɪɨɹɬɧɨɫɬɶɫɤɨɬɨɪɨɣɨɧɚɩɪɢɧɢɦɚɟɬɷɬɨɡɧɚɱɟɧɢɟ
ɉɭɫɬɶɏ ɟɫɬɶɫɥɭɱɚɣɧɚɹɜɟɥɢɱɢɧɚɩɪɢɧɢɦɚɸɳɚɹɡɧɚɱɟɧɢɹ ± ɫɨ
ɨɬɜɟɬɫɬɜɟɧɧɨɫɜɟɪɨɹɬɧɨɫɬɹɦɢ
n
ɋ ɩɨɦɨɳɶɸ ɩɪɨɰɟɞɭɪɵ CLT_Plot ɩɪɨɜɟɪɶɬɟ ɫɩɪɚɜɟɞɥɢɜɨɫɬɶ ɐɉɌ
ɩɪɢn n n Ⱦɚɣɬɟɨɛɨɫɧɨɜɚɧɢɟɩɨɥɭɱɟɧɧɵɯɪɟɡɭɥɶɬɚɬɨɜ
ǮȇȋȇȔȏȌ 2 ǵșȑȗȕȐșȌ țȇȐȒ ǶȗȏȓȌȔȌȔȏȌ ǽǶǹPZVȔȇȗȇȈȕȞȌȓȒȏȘșȌ0DSOHȉȢ
ȔȇȐȋȌșȌȖȗȕȝȌȋȚȗȚCLT
CLT:=proc(n,distribution,kmin,kmax,str)
local mu,sigma2,min,max,Answer:
mu:=DiscreteMean(distribution):
sigma2:=DiscreteVariance(distribution):
if str="ɫɭɦɦɚ"
then min:=(kmin-n*mu)/sqrt(sigma2*n):
max:=(kmax-
n*mu)/sqrt(sigma2*n):
else min:=(kminmu)/sqrt(sigma2/n):max:=(kmax-
mu)/sqrt(sigma2/n):
fi:
Answer:=NormalArea(min,max):
end:
ȿɫɥɢstr:=«ɫɭɦɦɚ»,ɬɨɩɪɨɰɟɞɭɪɚ
CLT(n,distribution,kmin,kmax,str) ɩɨɮɨɪɦɭɥɟ
bn an
P P
§·§·
Pa S b
n
|) )
¨¸¨¸
nn
VV
©¹©¹
ɨɩɪɟɞɟɥɹɟɬ ɩɪɢɛɥɢɠɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɜɟɪɨɹɬɧɨɫɬɢ PNPLQS
XX«Xnɢɡn ɧɟɡɚɜɢɫɢɦɵɯɨɞɢɧɚɤɨɜɨɪɚɫɩɪɟɞɟɥɟɧɧɵɯɞɢɫɤɪɟɬ
ɦɵS
n
ɧɵɯɫɥɭɱɚɣɧɵɯɜɟɥɢɱɢɧɫMX
str:=«ɫɪɟɞɧɟɟ», ɬɨɩɪɨɰɟɞɭɪɚ
ȿɫɥɢ
PDXi Vi «n
i
NPD[ ɞɥɹ ɫɭɦ
n
CLT(n,distribution,kmin,kmax,str) ɩɨɮɨɪɦɭɥɟ
§·§·
¨¸¨¸
ba
P P
Pa A b
|) )
n
¨¸¨¸
VV
¨¸¨¸
¨¸¨¸
nn
©¹©¹
ɨɩɪɟɞɟɥɹɟɬ ɩɪɢɛɥɢɠɟɧɧɨɟ ɡɧɚɱɟɧɢɟ ɜɟɪɨɹɬɧɨɫɬɢ PNPLQA
XX X
A
n
n
n
ɉɪɢ ɷɬɨɦ ɪɹɞ ɪɚɫɩɪɟɞɟɥɟɧɢɹ ɫ ɜ X
NPD[ ɝɞɟ
n
ɡɚɞɚɟɬɫɹ ɜ ɫɩɢɫɤɟ
i
distribution
ɋɩɨɦɨɳɶɸɩɪɨɰɟɞɭɪɵ&/7ɪɟɲɢɬɟɫɥɟɞɭɸɳɢɟɡɚɞɚɱɢ
Ɇɢɫɬɟɪ Ɍɭɡ ɢɝɪɚɟɬ ɜ ɤɚɡɢɧɨ ɫ ɚɜɬɨɦɚɬɨɦ©ɞɜɭɪɭɤɢɣ ɛɚɧɞɢɬª ȼ ɤɚɠ
ɞɨɦ ɪɚɭɧɞɟ ɨɧ ɫ ɜɟɪɨɹɬɧɨɫɬɶɸ ɜɵɢɝɪɵɜɚɟɬ ɞɨɥɥɚɪ ɢɥɢ ɫ ɜɟɪɨɹɬɧɨɫɬɶɸ
ɩɪɨɢɝɪɵɜɚɟɬɞɨɥɥɚɪ
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]