package Circuitos1
  package Componentes
  model Capacitor
    Real v, i, Vp, Vn;
    parameter Real C=1;
  equation
    C * der(v) - i = 0;
    Vp - Vn - v = 0;
  end Capacitor;

  model Inductor
    Real v, i, Vp, Vn;
    parameter Real L=1;
  equation
    L * der(i) - v = 0;
    Vp - Vn - v = 0;
  end Inductor;

  model Resistor
    Real v, i, Vp, Vn;
    parameter Real R=1;
  equation
    R * i - v = 0;
    Vp - Vn - v = 0;
  end Resistor;

  model Ground
    Real i, Vp;
  equation
    Vp = 0;
  end Ground;
  end Componentes;
  
  package Ejemplos
  model RLC2
    Componentes.Capacitor cap(v.start=1);
    Componentes.Inductor ind;
    Componentes.Resistor res, res2(R=2);
    Componentes.Ground gr;
  equation
    //Node 1
    cap.Vp - res2.Vp = 0;
    -cap.i - res2.i = 0;
    //Node 2
    res2.Vn-ind.Vp = 0;
    res2.Vn - res.Vp = 0;
    res2.i - ind.i - res.i = 0;
    //Node 3
    cap.Vn - gr.Vp = 0;
    res.Vn - gr.Vp = 0;
    ind.Vn - gr.Vp = 0;
    res.i+ind.i+cap.i-gr.i = 0;
  end RLC2;
  end Ejemplos;
end Circuitos1;