adds missing connection

Author: ValentinKaisermayer

src/Electrical/Analog/ideal_components.jl

@@ -186,7 +186,7 @@ function HeatingResistor(; name, R_ref = 1.0, T_ref = 300.15, alpha = 0)
         T_ref = T_ref
         alpha = alpha
     end
-    @variables R(t)
+    @variables R(t) = R_ref
     eqs = [R ~ R_ref * (1 + alpha * (heat_port.T - T_ref))
            heat_port.Q_flow ~ -v * i # -LossPower
            v ~ i * R]

test/multi_domain.jl

@@ -193,6 +193,7 @@ end
     @named env = FixedTemperature(T = 273.15 + 20)
     connections = [connect(source.n, ground.g, heating_resistor.n)
                    connect(source.p, heating_resistor.p)
+                   connect(voltage_sine.output, source.V)
                    connect(heating_resistor.heat_port, thermal_conductor.port_a)
                    connect(thermal_conductor.port_b, env.port)]
 
@@ -207,7 +208,8 @@ end
                              ])
     sys = structural_simplify(model)
 
-    prob = ODAEProblem(sys, Pair[], (0, 6.0))
+    prob = ODEProblem(sys, Pair[], (0, 6.0))
     sol = solve(prob, Rodas4())
     @test sol.retcode == :Success
+    @test sol[source.v * source.i] == -sol[env.port.Q_flow]
 end