Приложение 5. "Методические указания по составлению энергетической характеристики для систем транспорта тепловой энергии по показателю "Удельный расход сетевой воды". СО 153-34.20.523(2)-2003" (утв. Приказом Минэнерго РФ от 30.06.2003 N 278)
Приложение 5. АЛГОРИТМЫ РАСЧЕТОВ ЭКСПЛУАТАЦИОННОГО УДЕЛЬНОГО РАСХОДА СЕТЕВОЙ ВОДЫ НА ТП ПРИ ПОСЛЕДОВАТЕЛЬНОЙ СХЕМЕ ВКЛЮЧЕНИЯ ВОДОПОДОГРЕВАТЕЛЕЙ, СОСТАВЛЕННЫЕ ДЛЯ ПРОГРАММЫ "MATHEMATICA 2.2"
Приложение 5 
АЛГОРИТМЫ РАСЧЕТОВ
ЭКСПЛУАТАЦИОННОГО УДЕЛЬНОГО РАСХОДА СЕТЕВОЙ ВОДЫ НА ТП
ПРИ ПОСЛЕДОВАТЕЛЬНОЙ СХЕМЕ ВКЛЮЧЕНИЯ ВОДОПОДОГРЕВАТЕЛЕЙ,
СОСТАВЛЕННЫЕ ДЛЯ ПРОГРАММЫ "MATHEMATICA 2.2"
1) Алгоритм определения эксплуатационного удельного расхода сетевой воды на ГВС при последовательной схеме включения автоматизированной подогревательной установки ГВС и непосредственной схеме присоединения систем отопления
Posl. scheme with PT and PP direct scheme CO.
Tn=Tnu. gtdp=?
SetAtribute[{Tv,Tnp,T1p,T2p,T3p,Tgp,Tx,Tcp,Tnu,T1u,DTtp1u,Ktp,
a,m1,n1},Constant]
Tv=
Tnp=
T1p=
T2p=
T3p=
Tgp=
Tx=
Tcp=
Tnu=
T1u=
DTtp1u=
Ktp-
a=
m1=
n1=
FindRoot[{T1ku==T3ku+(T1p-T3p)*qu,
T2ku==T3ku-(T3p-T2p)*qu,
/\
T3ku==Tv+0.5*(T3p-T2p)*qu+(0.5*(T3p+T2p)-Tv)*qu 0.8,
qu==(Tv-Tnu)/(Tv-Tnp),
T1o==0.5*(T3ku+T2ku)+(T1ku-0.5*(T3ku+T2ku))*gop/gtdp,
T1tpu==T1u-DTtp1u,
T2o==T1o-(T1ku-T2ku)*gop/gtdp,
c==0.8*Ktp*(0.5*(Tgp+Tcp)-Tx)/(Tgp-Tcp),
P1==(1000/(0.5*(Tgp+Tcp)-Tx))*a/gtdp,
T1o==T1tpu-(Tgp-Th2u)*(1000/(0.5*(Tgp+Tcp)-Tx)*a*(1+c)/gtdp,
A1==0.46*m1*n1*(1-P1)/Sqrt[P1],
Th2u==(Th1+c*Tcp)/(1+c),
Th1==Tx+(T2o-Tx)*(Exp[A1]-1)/(Exp[A1]-P1),
gop==1000/(T1p-T2p),
T2==T2o-(Th1-Tx)*P1},
{T1ku,70},{T2ku,40},{T3ku,50},{qu,0.35},{T1tpu,70},{T2o,40},
{c,1},{P1,0.3},{A1,2},
{T1o,60},{gop,12},{T2,30},{Th2u,50},{Th1,50},{gtdp,20},
MaxIterations->100]
ClearAtribute[{Tv,Tnp,T1p,T2p,T3p,Tgp,Tx,Tcp,Tnu,T1u,DTtp1u,
Ktp,a,m1,n1}]
2) Алгоритм определения эксплуатационного удельного расхода сетевой воды на ГВС при последовательной схеме включения неавтоматизированной подогревательной установки ГВС и непосредственной схеме присоединения систем отопления
Posl scheme without PT and PP direct scheme CO.
Tn=Tnu. gtdp=?
SetAtribute[{Tv,Tnp,T1p,T2p,T3p,Tx,Tnu,T1u,DTtp1u,Ktp,a,m1,m2,
n1,n2},Constant]
Tv=
Tnp=
T1p=
T2p=
T3p=
Tx=
Tnu=
T1u=
DTtp1u=
Ktp=
a=
m1=
m2 =
n1=
n2 =
FindRoot[{T1ku==T3ku+(T1p-T3p)*qu,
T2ku==T3ku-(T3p-T2p)*qu,
/\
T3ku==Tv+0.5*(T3p-T2p)*qu+(0.5*(T3p+T2p)-Tv)*qu 0.8,
qu==(Tv-Tnu)/(Tv-Tnp),
T1o==0.5*(T3ku+T2ku)+(T1ku-0.5*(T3ku+T2ku))*gop/gtdp,
T1tpu==T1u-DTtp1u,
T2o==T1o-(T1ku-T2ku)*gop/gtdp,
c==0.8*Ktp*(0.5*(2Tg-10)-Tx)/10,
P1==(1000/(0.5*(2Tg-10)-Tx))*a/gtdp,
T1o==T1tpu-(T1tpu-Th2)*(Exp[A2]-1)*P2/(Exp[A2]-P2),
A1==0.46*m1*n1*(1-P1)/Sqrt[P1],
Th2==(Th1+c*(Tg-10))/(1+c),
Th1==Tx+(T2o-Tx)*(Exp[A1]-1)/(Exp[A1]-P1),
gop==1000/(T1p-T2p),
T2==T2o-(Th1-Tx)*P1,
Tg==Th2+(T1tpu-Th2)*(Exp[A2]-1)/(Exp[A2]-P2),
A2==0.58*m2*n2(1-P2)/Sqrt[P2],
P2==(1000/(0.5(2Tg-10)-Tx))*a*(1+c)/gtdp},
{T1ku,70},{T2ku,40},{T3ku,50},{qu,0.35},{T1tpu,70},{T2o,40},
{c,1},{A2,3},{P2,0.2},
{P1,0.3},{A1,2},{T1o,60},{gop,12},{T2,30},{Tg,60},{Th2,50},
{Th1,50},{gtdp,20},MaxIterations->100]
ClearAtribute[{Tv,Tnp,T1p,T2p,T3p,Tx,Tnu,T1u,DTtp1u,Ktp,a,m1,
m2,n1,n2,}]