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