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

CHeating.vb 1972번 줄 누적 문제 분석 완료

Browse Source
This commit is contained in:
ykh
2025-11-30 23:52:50 +09:00
parent 2a69feb29a
commit b47cf354b3
14 changed files with 100 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -470,10 +470,10 @@
Result1o.일차E소요량(i_count_month).급탕전력 = use_Elec
'log.debug(String.format("####### => (i_count_month=%s,Q_w_f=%s,Q_w_aux=%s,use_Oil=%s,use_LNG=%s,use_LPG=%s,use_DH=%s,use_Elec=%s)",i_count_month,Q_w_f,Q_w_aux,use_Oil,use_LNG,use_LPG,use_DH,use_Elec));
' Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
' 'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
End Sub
Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal)
@@ -708,6 +708,7 @@
Select Case Dr난방.열생산기기방식.Trim.ToUpper
Case "보일러"
비율 = TOSG(T, Dr난방.보일러정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
'Console.WriteLine(Dr난방.보일러대수.ToString() + "/" + 보일러정격출력합.ToString() + ",비율" + 비율.ToString())
Case "지역난방"
Dr난방.열교환기정격출력 = Dr난방.보일러정격출력 '======2017.12.20 추가
비율 = TOSG(T, Dr난방.열교환기정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
@@ -819,7 +820,7 @@
Result1o.일차E소요량(i_count_month).난방전력 = use_Elec
'pLog.Add(String.Format("q_h_aux={0},난방등유={1},LNG={2},LPG={3},지역={4},전력={5}", Q_h_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
''Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
End Sub
Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal)
@@ -934,7 +935,7 @@
eta_h_ce = 1 / (4 - (eta_L + eta_C + eta_B)) '(3.27-28)
Q_h_ce_i = (f_Radiant * f_int * f_hydr / eta_h_ce - 1) * Q_h_b_i '(3.2.7-27)
Q_h_ce = Q_h_ce + Q_h_ce_i
Q_h_ce = Q_h_ce + (Q_h_ce_i * 비율) ' ==========2025.11.30 누적 오류(비율) 수정 Q_h_ce = Q_h_ce + Q_h_ce_i
@@ -1654,7 +1655,7 @@
Q_dot_d_in = 0
Else
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) 난방 또는 난방 및 급탕 '// 2018.08.01 수정
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '* 비율 '(3.2.7-69) 난방 또는 난방 및 급탕 '// 2018.08.01 수정
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
End If
@@ -1816,7 +1817,7 @@
H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3))
Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정
use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정
'Console.WriteLine("used=" + use_DH.ToString())
''Console.WriteLine("used=" + use_DH.ToString())
End If
@@ -1826,9 +1827,9 @@
' 전기보조에너지 Q_h_d_aux 산출 관련
P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1)
If Program = EProgram.친환경평가 Then
'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
@@ -1959,7 +1960,7 @@
End If
If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then
@@ -1970,6 +1971,9 @@
Case "천연가스" '천연가스"
use_LNG = use_LNG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정
Console.WriteLine("#### mon=[" + i_count_month.ToString() + "] 보일러정격출력=" + dr난방.보일러정격출력.ToString() + ",보일러대수=" + dr난방.보일러대수.ToString() + ",Q_h_outg_i=" + Q_h_outg_i.ToString() + ",Q_h_g_i=" + Q_h_g_i.ToString() + "," + system_count.ToString())
Case "액화가스" '액화가스"
use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정