@@ -8,15 +8,15 @@ eqs = [D(y[1]) ~ -k[1] * y[1] + k[3] * y[2] * y[3],
8
8
D (y[2 ]) ~ k[1 ] * y[1 ] - k[3 ] * y[2 ] * y[3 ] - k[2 ] * y[2 ]^ 2 ,
9
9
0 ~ y[1 ] + y[2 ] + y[3 ] - 1 ]
10
10
11
- @named sys = ODESystem (eqs, t, y , [k])
11
+ @named sys = ODESystem (eqs, t, collect (y) , [k])
12
12
sys = complete (sys)
13
13
@test_throws ArgumentError ODESystem (eqs, y[1 ])
14
14
M = calculate_massmatrix (sys)
15
15
@test M == [1 0 0
16
16
0 1 0
17
17
0 0 0 ]
18
18
19
- prob_mm = ODEProblem (sys, [1.0 , 0.0 , 0.0 ], (0.0 , 1e5 ),
19
+ prob_mm = ODEProblem (sys, [y => [ 1.0 , 0.0 , 0.0 ] ], (0.0 , 1e5 ),
20
20
[k => [0.04 , 3e7 , 1e4 ]])
21
21
sol = solve (prob_mm, Rodas5 (), reltol = 1e-8 , abstol = 1e-8 )
22
22
@@ -40,6 +40,6 @@ sol2 = solve(prob_mm2, Rodas5(), reltol = 1e-8, abstol = 1e-8, tstops = sol.t,
40
40
# Test mass matrix in the identity case
41
41
eqs = [D (y[1 ]) ~ y[1 ], D (y[2 ]) ~ y[2 ], D (y[3 ]) ~ y[3 ]]
42
42
43
- @named sys = ODESystem (eqs, t, y, k )
43
+ @named sys = ODESystem (eqs, t, collect (y), [k] )
44
44
45
45
@test calculate_massmatrix (sys) === I
0 commit comments