UIR_PRL3 (664799), страница 2
Текст из файла (страница 2)
End Property
‘Определение значения Tps
Public Property Get Tps() As Double
Tps = 0.4 * Ksl * Kuch * Kan * Nvros
End Property
‘Определение значения Tfe
Public Property Get Tfe() As Double
Tfe = Ksl * Nvrfe
End Property
‘Определение значения Tvk
Public Property Get Tvk() As Double
Tvk = 5
End Property
‘Определение значения Tie
Public Property Get Tie() As Double
Tie = 0.4 * Ksl * Nvrfe
End Property
‘Определение значения Tip
Public Property Get Tip() As Double
Tip = 1
End Property
‘Определение значения Tp
Public Property Get Tp() As Double
Tp = Kxp * Nvrp
End Property
‘Определение значения Tp
Public Property Get Tpi(index As Integer) As Double
Tpi = Kxp * Nvrp
End Property
‘Определение значения Tkomp
Public Property Get Tpk() As Double
Dim j As Integer, NPS As Integer
NPS = 3
For j = 1 To NPS
Tpk = Tpk + Tpi(j)
Next j
End Property
‘Определение значения Tsg
Public Property Get Tsg() As Double
Tsg = 0.2 * (Tan + Tkr) + Tie + Tp
End Property
‘Определение значения Tpf
Public Property Get Tpf() As Double
Tpf = Kxv * Nvrpf
End Property
‘Определение значения Tnp
Public Property Get Tnp() As Double
Tnp = Kxv * Ksl * Nvrnp
End Property
‘Определение значения Tgv
Public Property Get Tgv() As Double
Tgv = Kxv * Ksl * Nvrgv
End Property
‘Определение значения Tvv
Public Property Get Tvv() As Double
Tvv = Kxv * Ksl * Nvrve
End Property
‘Определение значения Tkm
Public Property Get Tkm() As Double
Tkm = Kxv * Nvrkm
End Property
‘Определение значения Tdr
Public Property Get Tdr() As Double
Tdr = Krz * Kuch * Ksl * Nvrdr
End Property
‘Определение значения Trd
Public Property Get Trd() As Double
Trd = Krz * Kuch * Nvrrd
End Property
‘Определение значения Tts
Public Property Get Tts() As Double
Tts = Kxv * Kte * Kuch * Nvrts
End Property
‘Определение значения Tpg
Public Property Get Tpg() As Double
Tpg = 0.2 * (Tan + Tkr) + Tie + Tp
End Property
‘Определение значения Tpa
Public Property Get Tpa() As Double
Tpa = Nvrpa
End Property
‘Определение значения Tvp
Public Property Get Tvp() As Double
Tvp = Kxv * Nvrvp
End Property
‘Определение значения Trr
Public Property Get Trr() As Double
Trr = Nvrrr
End Property
‘Определение значения Tob
Public Property Get Tob() As Double
Tob = Ksl * Nvrob
End Property
‘Определение значения Top
Public Property Get Top() As Double
Top = Kxv * Ksl * Nvrop
End Property
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
