( ) ...

⠠ ͠

?

 


-

?

 


͠

 


?

͠

?

. 2

: - . . ( DistIndex = 0 DistIndex = 1) ( DistIndex1 = 0 DistIndex1 = 1). OptionButton. m (m = 1 10), n, Ta , , ( % ) DTa ( TextBox). , CommandButton , , , , , , , pi(i). TextBox. , , TextBox, Ts(k), i- Pr(k) , , ( % ) DTs(k).

. , MsgBox, , , . : . Single, , , , 1 (0.9999; 1.0001).

, .


3.3 - .


, , . ( , ), kz(k) (, ) kf(k).

, , , (. 2).


3.4

 

a1(i, k), k , i . , ( ) ( ). , 1; , . NumRef(k).

, ( ) a2(i, k) ( ) a3(i, k), k , i . Rexp(T As Single) ( Rnorm(MT As Single, DT As Single) ). , Gener(nst As Integer). . , (sort > 1), , Sort1(nst As Integer). , , , : Gener(nst As Integer), Rexp(T As Single) Rnorm(MT As Single, DT As Single).

Rnorm(MT As Single, DT As Single) Rexp(T As Single) X, (0;1) Rnd, Y, , , .

Sort1(nst As Integer) . . , , , , (. . 3).

 


l1 = nr(nst)/2 + 1

t1=nr(nst)

 


l1 > 1? j1 < t1?

R1 = a2(Ind(t1), nst) Ġ

: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25