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

ECO2_OD_20180901_0005_New

Browse Source
This commit is contained in:
raytrace
2023-05-20 22:27:10 +09:00
parent 7dfbe09f8e
commit e25bde7292
17 changed files with 8912 additions and 4937 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,6 +73,8 @@
'--------------------------------------------------------------------------------------------------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공조처리.설정치난방))
Else
V_dot_mech_m = 0
End If
@@ -187,6 +189,11 @@
Dim h_95_ZUL_so As Decimal, i_count_air As Integer, i_count_start_time As Integer, i_count_end_time As Integer ', i_profile As Integer
Dim P_D_j_theta_AUL_j As Decimal
If i_count_month = 3 Then
Console.WriteLine("sdf")
End If
' 공조처리
theta_i_c_soll = 26
@@ -399,12 +406,25 @@
If Q_c_b < 0 Then Q_c_b = 0
V_dot_mech_m = (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) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_c_mech_m) / 1000) '(3.2.5-4) 공조풍량(변풍량)
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}", _
'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
'V_dot_mech_m = 0
'End If
If V_dot_mech_m < V_dot_A * A_B * ea_kongjo Then V_dot_mech_m = V_dot_A * A_B * ea_kongjo
If i_count_month = 3 Then
'no
'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
End Select
'If V_dot_mech_m = 0 Then
@@ -507,6 +527,13 @@
Q_vm_b = 0
End If
If i_count_month = 3 Then
Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", _
Drow분석(0).냉방요구량공조, ea_kongjo))
End If
'------------------------------------------------------------------------------------------------------------------------------------------
If TOSG(T, Drow분석(0).냉방요구량공조) > 0 AndAlso ea_kongjo > 0 Then ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then
@@ -578,10 +605,24 @@
'End Select
'End If
If i_count_month = 3 Then
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
Q_vc_b = 0
V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_c_mech_m - theta_AUL) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_AUL) / 1000)
If V_dot_mech_m < V_dot_A * A_B * ea_kongjo Then V_dot_mech_m = V_dot_A * A_B * ea_kongjo '===================2011.07.11 추가 ea_kongjo를 추가함
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))
End If
Else
If 0.5911 / (100000 / p_95_theta_ZUL_so - 0.95) > (1 - u) * x_AUL + u * x_ABL_so Then
Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600
@@ -610,9 +651,14 @@
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))
End If
Case "변풍량" '변풍량"
Sigma_V_dot = t_V_mech_m * d_V_mech_m * V_dot_mech_m + 1000 * Q_c_b / (c_p_Lrho_L * (theta_i_c - theta_V_mech_m)) '(3.2.5-5) 월간 공조풍량 합(변풍량)
@@ -638,8 +684,19 @@
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(">>> 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
End If
Case "환기용"
@@ -654,9 +711,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}] #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
@@ -745,10 +805,11 @@
End If
Drow분석(0).공조요구량가습 = Q_vm_b ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b
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
'Console.WriteLine(String.Format("환기요구량={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
'If i_count_month > 4 Then
' Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
'End If
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))
End If
'==========================================================================================================================================
'End If
'End If

14
ArinWarev1/Calculator-OD/Zone/CZone.vb
View File

@@ -666,16 +666,20 @@
End If
If 1 - (eta * gamma) < 0.01 Then eta = 1 / gamma '(2-137)
If (1 - eta) * gamma < 0.01 Then eta = 1 '(2-138)
If (1 - eta) * gamma < 0.05 Then eta = 1 '(2-138) '//211123
'If V_mech >= Q_C_max / (c_p_arhoa * (theta_i - theta_mech)) Then eta = 1 '(2-139) 추후 고민
End If
If i_count_HeatCool = 1 Then
Q_h_b = Q_sink - eta * Q_source '(2-1)
Else
Q_h_b = (1 - eta) * Q_source '(2-7)
Q_h_b = (1.0 - eta) * Q_source '(2-7)
End If
If i_count_month = 3 Then
Console.WriteLine(String.Format(":::::: Q_h_b={3},Q_sink={0},eta={1},Q_source={2},i_count_HeatCool={4}", _
Q_sink, eta, Q_source, Q_h_b, i_count_HeatCool))
End If
If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거
@@ -691,6 +695,11 @@
'If i_count_OpWe = 1 Then
'=================================================2010.2.21 삭제
Q_h_b_op = Q_h_b * d_op_mth
If i_count_month = 3 Then
Console.WriteLine(String.Format("======== Q_h_b_op={0},Q_h_b={1},d_op_mth={2}", _
Q_h_b_op, Q_h_b, d_op_mth))
End If
' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op)
'=================================================2010.2.21 삭제
'Else
@@ -804,6 +813,7 @@
If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방
Dr월에너지요구량.냉방요구량열 = 0
Dr월에너지요구량.냉방요구량공조 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
Console.WriteLine(String.Format("+++++++ 냉방요구량공조={0},Q_h_b_op={1}", Dr월에너지요구량.냉방요구량공조, Q_h_b_op))
Else
If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예
Dr월에너지요구량.냉방요구량열 = 0