KICT/ECO2-OD
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

통합본 작성

Browse Source
This commit is contained in:
ykh
2025-09-28 22:13:37 +09:00
parent 27704968e6
commit 2bf95ec258
12 changed files with 556 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

177
ArinWarev1/Calculator-OD/Cooling/CCooling.vb
View File

@@ -432,38 +432,157 @@
Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30)
P_d_hydr = 1
If dr냉방.냉동기종류 = "히트펌프" Then '//170627 2355
P_Pump = (TOSG(T, dr냉방.냉수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
If Program = EProgram.친환경평가 Then
If dr냉방.냉동기종류 = "히트펌프" Then '//170627 2355
P_Pump = (TOSG(T, dr냉방.냉수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
Else
P_Pump = (TOSG(T, dr냉방.냉수펌프동력) + TOSG(T, dr냉방.냉각수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
End If
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
c_p1 = 0.75
c_p2 = 0.25
If Q_z_outg_l <> 0 Then
If (Q_dot_z * t_h_max) = 0 Then
beta_d_l = 0 '//170515
Else
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
End If
If beta_d_l = 0 Then
e_d_l = 0
Else
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
End If
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
Q_c_aux = Q_c_aux + Q_z_aux_d_l
End If
Else
P_Pump = (TOSG(T, dr냉방.냉수펌프동력) + TOSG(T, dr냉방.냉각수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
If dr냉방.냉동기종류 = "히트펌프" Then '//170627 2355
P_Pump = (TOSG(T, dr냉방.냉수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
c_p1 = 0.75
c_p2 = 0.25
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
If Q_z_outg_l <> 0 Then
If (Q_dot_z * t_h_max) = 0 Then
beta_d_l = 0 '//170515
Else
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
End If
If beta_d_l = 0 Then
e_d_l = 0
Else
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
End If
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
Q_c_aux = Q_c_aux + Q_z_aux_d_l
End If
Else
P_Pump = (TOSG(T, dr냉방.냉수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
If dr냉방.냉수펌프제어 = "제어" Then ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(-1, i_count_c_d - 1) = "제어" Then
c_p1 = 0.85
c_p2 = 0.15
ElseIf dr냉방.냉수펌프제어 = "대수제어" Then
c_p1 = 0.75
c_p2 = 0.25
Else
c_p1 = 0.25
c_p2 = 0.75
End If
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
If Q_z_outg_l <> 0 Then
If (Q_dot_z * t_h_max) = 0 Then
beta_d_l = 0 '//170515
Else
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
End If
If beta_d_l = 0 Then
e_d_l = 0
Else
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
End If
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
Q_c_aux = Q_c_aux + Q_z_aux_d_l
End If
'----------------- second
P_Pump = (TOSG(T, dr냉방.냉각수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
If dr냉방.냉각수펌프제어 = "제어" Then ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(-1, i_count_c_d - 1) = "제어" Then
c_p1 = 0.85
c_p2 = 0.15
ElseIf dr냉방.냉각수펌프제어 = "대수제어" Then
c_p1 = 0.75
c_p2 = 0.25
Else
c_p1 = 0.25
c_p2 = 0.75
End If
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
If Q_z_outg_l <> 0 Then
If (Q_dot_z * t_h_max) = 0 Then
beta_d_l = 0 '//170515
Else
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
End If
If beta_d_l = 0 Then
e_d_l = 0
Else
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
End If
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
Q_c_aux = Q_c_aux + Q_z_aux_d_l
End If
End If
End If
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
c_p1 = 0.75
c_p2 = 0.25
If Q_z_outg_l <> 0 Then
If (Q_dot_z * t_h_max) = 0 Then
beta_d_l = 0 '//170515
Else
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
End If
If beta_d_l = 0 Then
e_d_l = 0
Else
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
End If
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
Q_c_aux = Q_c_aux + Q_z_aux_d_l
End If