model resistor
  connectorEletrico p,n;
  Modelica.SIunits.Voltage v;
  Modelica.SIunits.Current i;
  parameter Modelica.SIunits.Resistance R = 1.0;
equation
  v = R * i;
  i = p.i;
  v = p.v - n.v;
  p.i + n.i = 0;
end resistor;