.


:




:

































 

 

 

 





 

, ( , ..) ? , , - ? XX - , , . .., .

, , . , ; , .

. ( -), , . - , .. . , , ( ).

: . . , . , , , .

:

, - ;

, (.. );

( ) , ( );

, , .

, . , , , .

, . , .. - , . ; 0 - . , 1 , 3 8 ( T > 8).

, , ; t = τ t, .. , . 7.56.

, , , , . 7.56. , , :

(7.70)

 

λ - , - . (7.70) : pn(t)dt = 1.

. 7.56.

 

, , - . , ; .

7.8 - ( ), - - ( ). max = 10 b m = 5. , , , ; . ; . , D - , - , F - , , G - , - , ( ). , . ( i = 1, 2, 3,...):

, , ;

 

7.8

 

N         D     F   G    
                 
                 
                 
                 
                 

 

, A ( G), - ( H).

. ? ,

. h. , - ; ( , ). , (.. ) .

, G . , A - , 0 10 - 0 5 . G : ( - , ) g max ( ) [0, gmax] - , 10 - , gi. nk n, pk = (k = 1, 2,..., n). . . .

( , ), . : ? , , , = = 0, .

. g h, , 10000 ( PASCALe; , g h). , g h.

 

152.

Program Cohered;

( ;

)

Uses Crt, Graph;

Const N = 10000 ( );

W1 = 10 ( 0 o wl};

W2 = 5 ( 0 w2};

Type = Array(l..N] Of Real; U = ^;

Var A, B, C, D, E, F, Aa, Bb, Cc, Dd, , Ff, Dg, Dh, M: Real;

Sl, S2: Double; I, K, J, I1, I2: Integer;

LI, L2, V: Array [1..11] Of Real; G, H: U; Ch: Char;

Begin

If MaxAvail >= SizeOf(G) Then New(G);

If MaxAvail >= SizeOf(H) Then New(H);

Randomize; ( - )

Aa:= 0; Bb:= W2 * Random; Cc:= 0; := Bb; Ff:= Bb;

G^[l] = 0; H^[1]:= 0;

For = 1 To 11 Do

Begin L1(K]:= 0; L2[K]:= 0 End;

For I = 2 To N Do

Begin

A:= Wl * Random; := W2 * Random;

:= Cc + A; If > Then D:= Else D:= ;

E:= D + B; F:= E - C; G^[I]:= F - B; H^[I]:= D - ;

Cc:= ; := E;

If G^[I] <= 1 Then Ll[l]:= Ll[l] + 1; If H^[1] = 0 Then

L2[l]:= L2[l] + 1;

For := 2 To 10 Do

Begin

If (G^[I] > - 1) And (G^[I] <= K) Then L1[K]:= L1[K] + 1;

If (H^[I] > K - 1) And (H^[I] <= K) Then L2[K]:= L2[K] + 1;

End;

If G^[I] > 10 Then Ll[l1]:= Ll[ll] + 1;

If H^[I] > 10 Then L2[ll]:= L2[ll] + 1;

Sl:= Sl + G^[l]; S2:= S2 + H^[I];

End;

For I:= 1 To 11 Do ( - g h}

Begin

L1[I]:= L1[I] / N; L2[I]:= L2[I] / N

End;

( - g h}

Sl:= Sl / N; S2:= S2 / N; Dg:= 0; Dh:= 0;

For I:= 1 N Do

Begin

Dg:= Dg + Sqr(G^[I] - Sl); Dh:= Dh + Sqr(H^[I] - S2)

End;

Dg:= Dg / N; Dh:= Dh / N;

WriteLn(' g h');

WriteLn;

For K:= 1 To 11 Do

WriteLn ('11[', K, ']=', L1[K]: 6: 4, '': 20, '12(', , ']=',

L2[K]: 6: 4);

WriteLn;

WriteLn(' g=', S1: 6: 3,

' g=', Dg: 6: 3);

WriteLn(' h=', S2: 6: 3,

' h=', Dh: 6: 3);

Dispose(G); Dispose(H); WriteLn;

WriteLn(' ');

Repeat Until KeyPressed; Ch:= ReadKey;

( - g h)

DetectGraph(I, ); InitGraph(I, , '');

I:= GetMaxX; := GetMaxY; J:= I Div 2; M:'= Ll[l];

For I1:= 2 11 Do If L1[I1] > M Then M:= L1[I1];

For I1:= 1 To 11 Do V[I1]:= L1[I1] / M;

Line(10, - 10, J - 20, - 10); Line[l0, - 10, 10, 5);

OutTextXY(20, 100, ' g');

For I1:= 1 To 11 Do

Begin

I2:= Round((K - 20) * (1 - V[I1])) + 10;

Line(I1 * 20 - 10, I2, I1 * 20 + 10, I2);

Line(I1 * 20 - 10, I2, I1 * 20 - 10, - 10);

Line(I1 * 20 + 10, I2, I1 * 20 + 10, - 10);

End;

Line(J + 20, - 10, I - 10, - 10);

Line(J + 20, - 10, J + 20, 5);

OutTextXY(J + 30, 100, ' h'); M:= L2[l];

For I1:= 2 To 11 Do If L2[I1] > M Then M:= L2[I1];

For I1:= 1 To 11 Do V[I1]:= L2[I1] / M;

For I1:= 1 To 11 Do

Begin

I2:= Round((K - 20) * (1 - V[I1])) + 10;

Line(J + I1 * 20, I2, J + I1 * 20 + 20, I2);

Line(J + I1 * 20, I2, J + I1 * 20, - 10);

Line(J + I1 * 20 + 20, I2, J + I1 * 20 + 20, - 10);

End;

OutTextXY(200, GetMaxY - 10, ' ');

Repeat Until KeyPressed; CloseCraph

End.

 

g, h Sg, Sh, 10000 (. 7.9) ( - 10 , 0 5).

 

7.9





:


: 2016-11-12; !; : 657 |


:

:

, .
==> ...

1628 - | 1442 -


© 2015-2024 lektsii.org - -

: 0.03 .