.ATplus.Hvac.Heating.Standard.radpipe

Information

equation
  A = A1;
  expo = if (InPort.signal[1]*Hydraulic_Cut_In.q) < 0 then 1.0/(2.71828^((
    alpha*pi*d*l)/(cw*InPort.signal[1]*Hydraulic_Cut_In.q*rho))) else 0;

  Tcool = Thermal_Cut_Out.T + (Hydraulic_Cut_In.T - Thermal_Cut_Out.T)*expo;

  Thermal_Cut_Out.j = (InPort.signal[1]*Hydraulic_Cut_In.q)*rho*cw*(
    Hydraulic_Cut_In.T - Tcool);

  Hydraulic_Cut_Out.T = (InPort.signal[1]*Tcool) + (1 - InPort.signal[1])*
    Hydraulic_Cut_In.T;



*Hydraulic_Cut_In.q