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

43
ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb
View File

@@ -73,8 +73,7 @@
'--------------------------------------------------------------------------------------------------2010.02.22 수정
If (TOSG(T, dr공조처리.설정치난방) - theta_i_h) > 0 Then
V_dot_mech_m = 1000 * Q_dot_h_max / (c_p_Lrho_L * (TOSG(T, dr공조처리.설정치난방) - theta_i_h))
Console.WriteLine(String.Format("%%%%%% V_dot_mech_m = {0},Q_dot_h_max={1},c_p_Lrho_L={2},theta_i_h={3},dr공조처리.설정치난방={4}", _
V_dot_mech_m, Q_dot_h_max, c_p_Lrho_L, theta_i_h, dr공조처리.설정치난방))
'Console.WriteLine(String.Format("%%%%%% V_dot_mech_m = {0},Q_dot_h_max={1},c_p_Lrho_L={2},theta_i_h={3},dr공조처리.설정치난방={4}", V_dot_mech_m, Q_dot_h_max, c_p_Lrho_L, theta_i_h, dr공조처리.설정치난방))
Else
V_dot_mech_m = 0
End If
@@ -191,7 +190,7 @@
If i_count_month = 3 Then
Console.WriteLine("sdf")
'Console.WriteLine("sdf")
End If
' 공조처리
@@ -270,7 +269,7 @@
'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
'If i_count_month > 4 Then
' Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량))
' 'Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량))
'End If
If sum_kongjo = 0 Then
@@ -409,7 +408,7 @@
If i_count_month = 3 Then
'//no err
'Console.WriteLine(String.Format("#### t_V_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2},theta_AUL={3},theta_c_mech_m={4},V_dot_A={5},A_B={6},ea_kongjo={7},Q_c_b={8},t_V_mech_m={9},d_V_mech_m={10},c_p_Lrho_L={11},theta_i_c={12},theta_c_mech_m={13}", _
''Console.WriteLine(String.Format("#### t_V_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2},theta_AUL={3},theta_c_mech_m={4},V_dot_A={5},A_B={6},ea_kongjo={7},Q_c_b={8},t_V_mech_m={9},d_V_mech_m={10},c_p_Lrho_L={11},theta_i_c={12},theta_c_mech_m={13}", _
't_V_mech_m, d_V_mech_m, c_p_Lrho_L, theta_AUL, theta_c_mech_m, V_dot_A, A_B, ea_kongjo, Q_c_b, t_V_mech_m, d_V_mech_m, c_p_Lrho_L, theta_i_c, theta_c_mech_m))
End If
'If V_dot_mech_m < 0 Then
@@ -420,7 +419,7 @@
If i_count_month = 3 Then
'no
'Console.WriteLine(String.Format("#### V_dot_mech_m={0},V_dot_A={1},A_B={2}", _
''Console.WriteLine(String.Format("#### V_dot_mech_m={0},V_dot_A={1},A_B={2}", _
'V_dot_mech_m, V_dot_A, A_B))
End If
@@ -530,8 +529,7 @@
If i_count_month = 3 Then
Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", _
Drow분석(0).냉방요구량공조, ea_kongjo))
'Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", Drow분석(0).냉방요구량공조, ea_kongjo))
End If
'------------------------------------------------------------------------------------------------------------------------------------------
@@ -606,8 +604,7 @@
'End If
If i_count_month = 3 Then
Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", _
theta_ZUL_so, theta_AUL))
'Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", theta_ZUL_so, theta_AUL))
End If
If theta_ZUL_so > theta_AUL Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then
@@ -617,8 +614,7 @@
If i_count_month = 3 Then
Console.WriteLine(String.Format("#### V_dot_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2}", _
V_dot_mech_m, d_V_mech_m, c_p_Lrho_L))
'Console.WriteLine(String.Format("#### V_dot_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2}", V_dot_mech_m, d_V_mech_m, c_p_Lrho_L))
End If
@@ -651,12 +647,12 @@
Else
P_V_ABL_m = 0
End If
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
If i_count_month = 3 Then
Console.WriteLine(String.Format("[{0}] #2 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
'Console.WriteLine(String.Format("[{0}] #2 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
End If
Case "변풍량" '변풍량"
@@ -684,16 +680,15 @@
P_V_ABL_m = 0
End If
'============================================================2010.10.10
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
If i_count_month = 3 Then
Console.WriteLine(String.Format("[{0}] Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
'Console.WriteLine(String.Format("[{0}] Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
Console.WriteLine(String.Format(">>> P_V_ZUL_m={0},t_V_mech_m={1},d_V_mech_m={2}", P_V_ZUL_m, t_V_mech_m, d_V_mech_m))
Console.WriteLine(String.Format(">>> V_dot_mech_m={0},Delta_p_star_ZUL={1},f_p={2},eta_ZUL={3},V_dot_mech_m={4},Delta_p_star_ZUL={5},eta_ZUL={6},V_dot_mech_max={7}", _
V_dot_mech_m, Delta_p_star_ZUL, f_p, eta_ZUL, V_dot_mech_m, Delta_p_star_ZUL, eta_ZUL, V_dot_mech_max))
'Console.WriteLine(String.Format(">>> P_V_ZUL_m={0},t_V_mech_m={1},d_V_mech_m={2}", P_V_ZUL_m, t_V_mech_m, d_V_mech_m))
'Console.WriteLine(String.Format(">>> V_dot_mech_m={0},Delta_p_star_ZUL={1},f_p={2},eta_ZUL={3},V_dot_mech_m={4},Delta_p_star_ZUL={5},eta_ZUL={6},V_dot_mech_max={7}", V_dot_mech_m, Delta_p_star_ZUL, f_p, eta_ZUL, V_dot_mech_m, Delta_p_star_ZUL, eta_ZUL, V_dot_mech_max))
End If
@@ -711,11 +706,11 @@
Else
P_V_ABL_m = 0
End If
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
If i_count_month = 3 Then
Console.WriteLine(String.Format("[{0}] #3 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
'Console.WriteLine(String.Format("[{0}] #3 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
End If
@@ -807,8 +802,8 @@
Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
If i_count_month = 3 Then
'Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
Console.WriteLine(String.Format("환기요구량 {0}, {1}, {2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
''Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
'Console.WriteLine(String.Format("환기요구량 {0}, {1}, {2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
End If
'==========================================================================================================================================
'End If
@@ -907,7 +902,7 @@
Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m
'Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
''Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
End If
Else