model Termotanque
  Real QI; //fuente de caudal
  Real VT,QT,PT; //tanque
  Real dPh; //columna
  Real dPV,QV; //valvula
  Real u; //fuente electrica
  Real vR,i; //resistencia
  Real qo,To(start=330); //capacidad termica
  Real Q,qi,qs; //convección
  Real qR; //fuente de calor
  parameter Real v1=5e-4, rho=1000, g=9.81, A=1, h=2, RH=1e8;
  parameter Real R=32,v2=220;
  parameter Real CT=4180*60,Ta=293;
  parameter Real c=4180;
equation
  QI=v1;
  der(VT)=QT;
  PT=rho*g/A*VT;
  dPh=rho*g*h;
  dPV=RH*QV;
  u=v2;
  vR=R*i;
  CT*der(To)=qo;
  rho*c*Ta*Q=qi;
  rho*c*To*Q=qs;
  qR=R*i^2;
  
  //estructura
  dPh=dPV-PT;
  Q=QV;
  QT=QI-Q;
  u=vR;
  qo=qi-qs+qR;
  
end Termotanque;