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

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