,,,
..
ӻ
1
:
.
-2010
1.
:
1. : , , .
2. - .
3. .
.
.
1,2,...n, 1,2,...n. . 1,2,...n . 1,2,...n , ( )
M= g ⁿ -1 (1)
,
g-
n- .
i(i=1,n), , 1 g. - n. Xm Xn g
R= Xm + Xn (2)
:
Xn-i= Xn-j-I (i=0,..n-2) (3)
Xi=R
, 1,2,...n, M=N. .
M(Xi)=m :
m* =1/N ∑ Xi (5)
Dx :
Dx= 1/n-1∑(xi-mx)² (6)
:
n
(*=1/n∑xi) δ*= √D* (7)
i=1
A () , , .
K(r)=1/D M[(xi - m)(xi + r-m)]
:
K*(r)=1/D*(N-r-1)n-2∑i=1[(xi-m*)(xi+r-m*)]=1/D*(1/N-r-1)n-2∑i=1xixi+r-(N-r)/(N-r-1)m* (8)
.
, . , N , , .
U1,U2,Ue
Uo Ue . ΔU . , , . , 1 g , U1=1;U2=2;Ue=g.
- V1,V2,Ve , Vj0- , Uj-1 < Xi < Uj . j . , . , . :
e
∑ Vj / N=1 (9)
i=1
( , ) F*(X) :
0, X<X1
F*(X)= k/n, k<<k+1
1, X>Xn (k=1,2,..N-1) (10)
Xk- , .. , . .
.
. .
. F(x) f(x)=p(x).
(n>100) X² . () . ² (Δ)
e
Δ= X² = ∑(Vj-NPj)² /(NPj) (11)
i=1
Pj- j-
Vj- j- ., .. j-
N .
² r , . r , Pj =Vj / n (j=1,e). (9), .
R=e-1 (12)
, , .
² , ² r P , , ² . P, , , (11) , ². P , , F(x). . , P , . , X F(x) .
, P , 0,1, . , , . .
, :
1. , : g,n,m.
2. . , , g ( r=1,g).
3. .
4. . ² .
5. 0,1,2,..g, .
1
r | ά | |||||
0.01 | 0.025 | 0.05 | 0.95 | 0.975 | 0.99 | |
1 | 6.6 | 5.0 | 3.8 | 0.0039 | 0.00089 | 0.00016 |
2 | 9.2 | 7,4 | 6,0 | 0,103 | 0.051 | 0.20 |
3 | 11.3 | 9,4 | 7,8 | 0,352 | 0,216 | 0,115 |
4 | 13,3 | 11,1 | 9,5 | 0,711 | 0,484 | 0,297 |
5 | 15,1 | 12,8 | 11,1 | 0,115 | 0,831 | 0,554 |
6 | 16,8 | 14,4 | 12,6 | 0,164 | 1,24 | 0,872 |
7 | 18,5 | 16,0 | 14,1 | 0,217 | 1,69 | 1,24 |
8 | 20,1 | 17,5 | 15,5 | 2,73 | 2,18 | 1,65 |
9 | 21,7 | 19,0 | 16,9 | 3,33 | 2,70 | 2,09 |
10 | 23,2 | 20,5 | 18,3 | 3,94 | 3,21 | 2,56 |
11 | 24,7 | 21,9 | 19,7 | 4,57 | 3,82 | 3,05 |
12 | 26,2 | 23,3 | 20,0 | 5,23 | 4,40 | 3,57 |
13 | 27,7 | 24,7 | 22,4 | 5,89 | 5,01 | 4,11 |
14 | 29,1 | 26,1 | 23,7 | 6,57 | 5,63 | 4,66 |
15 | 30,6 | 27,5 | 25,0 | 7,26 | 6,26 | 5,23 |
16 | 32,0 | 28,8 | 26,3 | 7,96 | 6,91 | 5,81 |
17 | 33,4 | 30,2 | 27,6 | 8,67 | 7,56 | 6,41 |
18 | 34,8 | 31,5 | 28,9 | 9,39 | 8,23 | 7,01 |
19 | 36,2 | 32,9 | 30,1 | 10,1 | 8,91 | 7,63 |
20 | 37,6 | 34,2 | 31,4 | 10,9 | 9,59 | 8,26 |
21 | 38,9 | 35,5 | 32,7 | 11,6 | 10,3 | 8,90 |
22 | 40,3 | 36,8 | 33,9 | 12,3 | 11,0 | 9,54 |
23 | 41,6 | 38,1 | 35,2 | 13,1 | 11,7 | 10,2 |
24 | 43,0 | 39,4 | 36,4 | 13,8 | 12,4 | 10,9 |
25 | 44,3 | 40,6 | 37,7 | 14,6 | 13,1 | 11,5 |
26 | 45,6 | 41,9 | 38,9 | 15,4 | 13,8 | 12,2 |
27 | 47,0 | 43,2 | 40,1 | 16,2 | 14,6 | 12,9 |
28 | 48,3 | 44,5 | 41,3 | 16,9 | 15,3 | 13,6 |
29 | 49,6 | 45,7 | 42,6 | 17,7 | 16,02 | 14,3 |
30 | 50,9 | 47,0 | 43,8 | 18,5 | 16,8 | 15,0 |
2
q | m | n | x1 | x2 | x3 | x4 | x5 | x6 | x7 | |
1 | 3 | 3 | 5 | 0 | 1 | 2 | 1 | 1 | - | - |
2 | 2 | 3 | 7 | 1 | 1 | 1 | 1 | 1 | 1 | 1 |
3 | 2 | 5 | 7 | 1 | 1 | 1 | 1 | 0 | 0 | 0 |
4 | 3 | 2 | 5 | 1 | 1 | 1 | 1 | 1 | - | - |
5 | 2 | 4 | 7 | 1 | 1 | 1 | 0 | 0 | 1 | 1 |
6 | 3 | 3 | 5 | 0 | 0 | 0 | 1 | 1 | - | - |
7 | 3 | 3 | 6 | 0 | 1 | 2 | 1 | 2 | 0 | - |
8 | 3 | 4 | 6 | 1 | 1 | 1 | 2 | 2 | 2 | - |
9 | 3 | 5 | 6 | 1 | 1 | 1 | 0 | 0 | 2 | - |
10 | 2 | 3 | 7 | 1 | 0 | 1 | 0 | 1 | 0 | 1 |
11 | 2 | 6 | 7 | 1 | 0 | 1 | 0 | 1 | 0 | 1 |
12 | 2 | 2 | 7 | 0 | 1 | 0 | 1 | 0 | 2 | 0 |
13 | 3 | 3 | 5 | 1 | 1 | 1 | 1 | 0 | 0 | 0 |
14 | 2 | 2 | 6 | 1 | 1 | 1 | 1 | 1 | 1 | 1 |
15 | 3 | 4 | 5 | 1 | 2 | 1 | 0 | 1 | 2 | 2 |
: q-2, M-4, N-7
X1-1, X2-1, X3-1, X4-1, X5-0, X6-0, X7-1
Public m, n, q, r, xe As Integer
Private Sub Command2_Click()
End
End Sub
Private Sub ok_Click()
list.Clear
If tm.Text = "" Or tn.Text = "" Or tq.Text = "" Or tx(0).Text = "" Or tx(1).Text = "" Or tx(2).Text = "" Or tx(3).Text = "" Or tx(4).Text = "" Then
MsgBox (" ")
Exit Sub
Else
Call fun
End If
End Sub
Private Sub fun()
Dim reg, regt As String
Dim xi(6), yi(100000), p(2), p0, p1, p2 As Integer
Dim xe As Double
n = CInt(tn.Text)
m = CInt(tm.Text)
q = CInt(tq.Text)
For i = 0 To (n - 1)
reg = reg & CStr(tx(i).Text)
Next
mg = q ^ n - 1
list.AddItem ("M=q^n-1 = " & mg)
list.AddItem ("")
For i = 1 To mg
yi(i) = Right(reg, 1)
r = CInt(Mid(reg, m, 1)) + CInt(Right(reg, 1))
If r >= q Then
r = r - q
Else
End If
If r = 0 Then p0 = p0 + 1
If r = 1 Then p1 = p1 + 1
If r = 2 Then p2 = p2 + 1
regt = reg
reg = CStr(r) & Mid(regt, 1, (n - 1))
list.AddItem ("=" & reg)
list.AddItem ("=" & yi(i))
list.AddItem ("R=" & r)
Next
list.AddItem ("")
p(0) = p0 / mg
p(1) = p1 / mg
p(2) = p2 / mg
For w = 0 To q - 1
list.AddItem ("p" & w & "=" & p(w))
Next w
For j = 0 To q - 1
xe = xe + ((1 / q) - p(j)) ^ 2
Next
xe = (1 / q) * xe
list.AddItem ("")
list.AddItem (" =" & Round(xe, 12))
Dim mx, dx, kr, k As Double
mx = 0
For j = 1 To mg
mx = mx + CInt(yi(j))
Next
mx = mx / mg
list.AddItem ("")
list.AddItem (" =" & mx)
For j = 1 To mg
dx = (CInt(yi(i)) - mx) ^ 2
Next
dx = dx / (n - 1)
list.AddItem ("")
list.AddItem ("=" & dx)
list.AddItem ("")
list.AddItem (" =" & Sqr(dx))
list.AddItem ("")
For i = 1 To q
For j = 1 To (mg - i)
k = k + ((CInt(yi(j)) - mx) * (CInt(yi(j + i)) - mx))
Next
kr = k / (mg - i - 1)
list.AddItem (" - (" & i & ")= " & Round(kr, 12))
Next
End Sub
1. . ., . , 2008
.. ӻ 1 : .-2010
Copyright (c) 2024 Stud-Baza.ru , , , .