Numeryczne obliczenia inżynierskie – lab 2

1) Dla Re=2500; k=0.1mm; D=120mm obliczyć współczynnik λ

1

 2 , 51

k



Jeżeli rura nie jest hydraulicznie gładka λ = f ( k / D,Re) ;

= − 2 log

+



λ

 Re λ

,

3

D

71 

2) Ze zbiornika wypływa woda przewodem poziomym o długości L=10m, średnicy d=50mm i chropowatości k=0,05mm. Współczynnik strat miejscowych na wlocie do przewodu ζ=0,5. Obliczyć strumień przepływu w rurze dla H=2m.

pb

v0=0

H

0

1

v v0=0 v1=?

p pb

pb

D

z

H

0

v1, p1

v 2

2

0

+ p 0 +

= v

z

1

h

= h

+ h

0

+ p 1 + z 1 + ∑ hstr

∑

2 g

ρ g

2 g

ρ g

str

strM

strL

v 2

L v 2

v 2

v 2

L v 2

h

1

1

1

strM = ζ

h

= λ

H =

+ ζ

+ λ

2 g

strL

D 2 g

2 g

2 g

D 2 g

Numeryczne obliczenia inżynierskie – lab 2

2 gH

v

⋅

1

 2 , 51

k



1 =

v d

L

Re =

λ = f ( k / D,Re) ;

= − 2 log

+

1 + ζ + λ

ν





λ

Re λ

,

3

D

71

D





3) Zaznacz pewien obszar na aktywnym arkuszu -> Zarejestruj makro -> Sformatuj komórki zmieniając ich deseń, czcionkę, liczbę itd. -> Zakończ rejestrowanie makra.

Włącz tryb projektowania -> Dodaj przycisk polecenia -> kliknij dwukrotnie na przycisku i wykorzystując fragment makra: With Selection.Interior

‘.Pattern = xlSolid

‘.PatternColorIndex = xlAutomatic

.Color = 65535

‘.TintAndShade = 0

‘.PatternTintAndShade = 0

End With

skoryguj je do postaci:

For Each Cel In Selection

ww = Cel .Value

If ww = "" Then

With Cel .Interior

.Color = 66666

End With

End If

If ww = 4 Then

<If ww>=4 And ww<5 Then> With Cel .Interior

.ThemeColor = xlThemeColorLight1 < .Color = 65535> End With

End If

If ww = 5 Then

With Cel .Interior

.ThemeColor = xlThemeColorLight2

End With

End If

Next Cel

4) W oparciu o przykład z poprzedniego tygodnia stwórz prostokątny obszar z zadeklarowanymi na sztywno granicami i wewnątrz obszaru oblicz wartość komórek jako średnia z wartości komórek sąsiednich. Wykorzystaj stworzone makro do wyróżnienia różnic w zakresach danych.

5) Stwórz formularz, w którym po podaniu wartości: prędkości v, średnicy rurociągu d oraz lepkości kinematycznej (lub dynamicznej i gęstości) czynnika zostanie obliczona liczba Reynoldsa oraz zostanie podana informacja o rodzaju przepływu: laminarny-turbulentny.

v ⋅ d

µ  m 2 

Re =

ν =



 - kinematyczny współczynnik lepkości.

ν

ρ  s 

Przepływ laminarny <Re=

<Przepływ turbulentny