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

56
ArinWarev1/Calculator-OD/Heating/CHeating.vb
View File

@@ -378,6 +378,7 @@
Case "전기보일러" '전기보일러"
use_Elec = use_Elec + Q_w_outg_i + Q_w_g_i + (Q_w_outg_i * 0.09)
Q_w_outg = Q_w_outg + (Q_w_outg_i * 0.09) '========2023.11.12 수정
'====================================================================================2010.03.14 추가
Case "히트펌프"
@@ -1825,17 +1826,43 @@
' 전기보조에너지 Q_h_d_aux 산출 관련
P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1)
'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
' Case "비제어" '비제어"
c_p1 = 0.25
c_p2 = 0.75
' Case "정압" '정압"
' c_p1 = 0.75
' c_p2 = 0.25
' Case "변압" '변압"
' c_p1 = 0.9
' c_p2 = 0.1
'End Select
If Program = EProgram.친환경평가 Then
'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
' Case "비제어" '비제어"
c_p1 = 0.25
c_p2 = 0.75
' Case "정압" '정압"
' c_p1 = 0.75
' c_p2 = 0.25
' Case "변압" '변압"
' c_p1 = 0.9
' c_p2 = 0.1
'End Select
f_P_A = 1
Else
Select Case dr난방.펌프제어유형.Trim() ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
Case "정압" '정압"
c_p1 = 0.75
c_p2 = 0.25
Case "변압" '변압"
c_p1 = 0.9
c_p2 = 0.1
Case Else
c_p1 = 0.25
c_p2 = 0.75
End Select
f_P_A = 0.6
End If
If beta_h_d = 0 Then
Q_h_d_aux_i = 0
@@ -1843,13 +1870,6 @@
Q_h_d_aux_i = P_Pump * beta_h_d * t_h * (c_p1 + c_p2 / beta_h_d) '(3.2.7-39)
End If
If Program = EProgram.친환경평가 Then
f_P_A = 1
Else
f_P_A = 0.6
End If
'Select Case dr난방.펌프교정계수.Trim ' Worksheets("난방기기").Range("난방펌프교정계수1").Offset(0, i_count_boiler - 1)