Приложение 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,}]

<<< Приложение 4. АЛГОРИТМЫ РАСЧЕТА ЭКСПЛУАТАЦИОННОГО УДЕЛЬНОГО РАСХОДА СЕТЕВОЙ ВОДЫ НА ГВС ПРИ СМЕШАННОЙ СХЕМЕ ВКЛЮЧЕНИЯ ПОДОГРЕВАТЕЛЕЙ И НЕПОСРЕДСТВЕННОЙ СХЕМЕ ПРИСОЕДИНЕНИЯ СИСТЕМ ОТОПЛЕНИЯ ТАКОГО РОДА РАСЧЕТОВ, СОСТАВЛЕННЫЕ ДЛЯ ПРОГРАММЫ "MATHEMATICA 2.2"