model sistemaTermico
  parameter Real m1 = 200;
  parameter Real c = 466;
  parameter Real T01 = 800;
  parameter Real T02 = 300;
  parameter Real k = 400;
  parameter Real A = 8000e-6;
  parameter Real L = 0.5;
  Real T1, T2;
  Real q;
initial equation
  T1 = T01;
  T2 = T02;
equation
  m1 * c * der(T1) = -q;
  q = k*A/L * (T1 - T2);
  der(T2) = 0;
end sistemaTermico;