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

...

Browse Source
This commit is contained in:
ykh
2025-09-29 23:34:43 +09:00
parent 52a7c0f1f7
commit 370a838f42
10 changed files with 1445 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
ArinWarev1/Calculator/CHeating.vb
View File

@@ -1451,11 +1451,11 @@
Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal)
pLog.Add(String.Format("Enter >> Calc_HeatingSystem i_count_month={0},theta_e={1}", i_count_month, theta_e))
d_op_max_mth = 0
'==================================2010.2.21 수정
'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname")
' priod_value = CSng(DRpriod.priod)
'Next
@@ -1535,7 +1535,7 @@
'//130822
Dim 보일러정격출력합 As Decimal = 0 '//acc
For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code")
'=======================================================================================================2014.02.24 수정
@@ -2581,6 +2581,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
If Q_dot_d_in <= 0 Then '2025.08.22 추가
t_w_100 = 0
Q_dot_d_in = 0
End If
End If
@@ -2701,6 +2706,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
'If Q_h_g_i < 0 Then
' Console.WriteLine("minus")
'End If
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -2846,11 +2859,13 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
t_w_100 = Q_w_outg / (Q_dot_N * d_Nutz_mth)
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '2025.08.19 Q_w_outg 를 Q_w_outg_i 로 수정
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
'If Q_h_g_aux < 0 Then
' Console.WriteLine("minus")
'End If
End If
@@ -3598,7 +3613,7 @@
End If '===========================================================2014.03.07 추가
'======================================================================================================================================================2010.04.23 추가
Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '===================================================2013.01.16 추가
@@ -3716,6 +3731,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
If Q_dot_d_in <= 0 Then '2025.08.22 수정
t_w_100 = 0
Q_dot_d_in = 0
End If
End If
@@ -3836,6 +3856,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
'If Q_h_g_i < 0 Then
' Console.WriteLine("minus")
'End If
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -3981,15 +4009,18 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
If system_count = 0 Then
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
Else
t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
End If
'If system_count = 0 Then
' t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
'Else
t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
'End If
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
'If Q_h_g_aux < 0 Then
' Console.WriteLine("minus")
'End If
End If