@@ -4,13 +4,13 @@ using ModelingToolkit: t_nounits as t, D_nounits as D
4
4
5
5
@connector function Pin (; name)
6
6
sts = @variables v (t) [guess = 1.0 ] i (t) [guess = 1.0 , connect = Flow]
7
- ODESystem (Equation[], t, sts, []; name = name)
7
+ System (Equation[], t, sts, []; name = name)
8
8
end
9
9
10
10
@component function Ground (; name)
11
11
@named g = Pin ()
12
12
eqs = [g. v ~ 0 ]
13
- compose (ODESystem (eqs, t, [], []; name = name), g)
13
+ compose (System (eqs, t, [], []; name = name), g)
14
14
end
15
15
16
16
@component function OnePort (; name)
20
20
eqs = [v ~ p. v - n. v
21
21
0 ~ p. i + n. i
22
22
i ~ p. i]
23
- compose (ODESystem (eqs, t, sts, []; name = name), p, n)
23
+ compose (System (eqs, t, sts, []; name = name), p, n)
24
24
end
25
25
26
26
@component function Resistor (; name, R = 1.0 )
30
30
eqs = [
31
31
v ~ i * R
32
32
]
33
- extend (ODESystem (eqs, t, [], ps; name = name), oneport)
33
+ extend (System (eqs, t, [], ps; name = name), oneport)
34
34
end
35
35
36
36
@component function Capacitor (; name, C = 1.0 )
40
40
eqs = [
41
41
D (v) ~ i / C
42
42
]
43
- extend (ODESystem (eqs, t, [], ps; name = name), oneport)
43
+ extend (System (eqs, t, [], ps; name = name), oneport)
44
44
end
45
45
46
46
@component function ConstantVoltage (; name, V = 1.0 )
50
50
eqs = [
51
51
V ~ v
52
52
]
53
- extend (ODESystem (eqs, t, [], ps; name = name), oneport)
53
+ extend (System (eqs, t, [], ps; name = name), oneport)
54
54
end
55
55
56
56
@component function Inductor (; name, L = 1.0 )
60
60
eqs = [
61
61
D (i) ~ v / L
62
62
]
63
- extend (ODESystem (eqs, t, [], ps; name = name), oneport)
63
+ extend (System (eqs, t, [], ps; name = name), oneport)
64
64
end
65
65
66
66
@connector function HeatPort (; name)
67
67
@variables T (t) [guess = 293.15 ] Q_flow (t) [guess = 0.0 , connect = Flow]
68
- ODESystem (Equation[], t, [T, Q_flow], [], name = name)
68
+ System (Equation[], t, [T, Q_flow], [], name = name)
69
69
end
70
70
71
71
@component function HeatingResistor (; name, R = 1.0 , TAmbient = 293.15 , alpha = 1.0 )
79
79
h. Q_flow ~ - v * p. i # -LossPower
80
80
v ~ p. v - n. v
81
81
0 ~ p. i + n. i]
82
- compose (ODESystem (eqs, t, [v, RTherm], [R, TAmbient, alpha],
82
+ compose (System (eqs, t, [v, RTherm], [R, TAmbient, alpha],
83
83
name = name), p, n, h)
84
84
end
85
85
90
90
eqs = [
91
91
D (h. T) ~ h. Q_flow / C
92
92
]
93
- compose (ODESystem (eqs, t, [], [rho, V, cp],
93
+ compose (System (eqs, t, [], [rho, V, cp],
94
94
name = name), h)
95
95
end
0 commit comments