No Image
No Image

No Image

.._______

____________________________________

..

 

1. 011. 00. 00

_____________

𠠠 ..


𠠠 ___________

..


______________


2007

 


:

:.


:

: h=0.5; z=0.05 ; n=25; h=1.5; h=0.7; - G=0.072/; =3; =343; V=0.0323/; v=0.75/; Vd=0,0032 3/; vd=10/; Vp=0.27/; v=20 /.

: ..



2007.


2007.

 


.




1


 

2


 

3 Excel


 

4 VBA


 


 


 


, , , .

- , G=0,07-0,074/, T=341-345K


1


:

v=0,305h/(60+0.05h)-0.012z, (1.1)


z- , ;

:

=h(n-1)+h+h, (1.2)

n- ;

h- , ;

h- , ;

:

V=((G+G)22.4T)/273p (1.3)

22.4- 1 0 760 . .;

T- ;

p- ;


:

d= ((4 V/(π v))^0.5, (1.4)


2


:

d=(4V/( π v))^0.5, (2.1)

V 3/;

v - /;


:

d=(4V/( π v))^0.5, (2.2)

V- ,3/;

v- ,/;


, .

:


d=(4V/( π v))^0.5, (2.3)

V- , /;

v , /;


:

F=1,25F=1,25(πd2/4),

F- , 2;

d , ;


:

n=4F/( πd2), (2.4)

d- ; d=8-10.

d=8.

3 Excel


VPAR

VPR

VP3

VD

VD1


VP2




1,94E-03

0,032

0,75

0,0032

10


20
















.

..


.

.


3,772


0,07

0,174852076


2,622781137

6,75

859,87

14,20


3,778








14,20


3,783








14,20


3,789









14,20


3,794








14,20


3,799


0,071






14,20


3,805








14,20


3,810








14,20


3,816








14,20


3,821








14,20


3,826


0,072






14,20


3,831








14,20


3,837








14,20


3,843








14,20


3,848








14,20


3,852


0,073






14,20


3,858








14,20


3,864








14,20


3,869








14,20


3,875


























4 VBA

Private Sub CommandButton1_Click()

Dim VPAR, VPR, VP3, VD, VD1, VP1, VP2, VPA, D, S, L, G, X, VIS As Single

Dim P As Integer

VPAR = Cells(2, 1)

VPR = Cells(2, 2)

VP3 = Cells(2, 3)

VD = Cells(2, 4)

VD1 = Cells(2, 5)

VP1 = Cells(2, 6)

VP2 = Cells(2, 7)

VPA = Cells(2, 8)

L = 1

K = 1

Cells(4, 4) = "."

Cells(4, 2) = ""

For G = 0.07 To 0.074 Step 0.001

Cells(4 + L, 4) = G

S = G + 3 * G

For P = 341 To 345 Step 1

D = S * 22.4 * P / 273 * 735: DIAM = (4 * D / 3.14 * VPAR) ^ 0.5

Cells(4 + L, 2) = DIAM

L = L + 1

Next P

Next G

D1 = (4 * VPR / 3.14 * VP3) ^ 0.5

D2 = (4 * VD / 3.14 * VD1) ^ 0.5

D3 = (4 * VP1 / 3.14 * VP2) ^ 0.5

FOT = 1.25 * (3.14 * D3 ^ 2) / 4

N = 4 * FOT / 3.14 * 100

Cells(4, 5) = ".."

Cells(5, 5) = D1

Cells(4, 6) = ".."

Cells(5, 6) = D2

Cells(4, 7) = "."

Cells(5, 7) = D3

Cells(4, 8) = "."

Cells(5, 8) = FOT

Cells(4, 9) = "."

Cells(5, 9) = N

For K = 1 To 19

VIS = 0.5 * (25 - 1) + 1.5 + 0.7

Cells(4 + K, 10) = VIS

Cells(4, 10) = ""

Next K

End Sub


, , - , .


1.                 . ., . ., . . . . : , 2004. 391 .

2. 05-04





No Image
No Image No Image No Image


?

?

:
345
No Image
2010
No Image