@@ -66,11 +66,11 @@ D = Differential(t)
66
66
# test steady-state values
67
67
dc_gain = [f/ (k^ 2 + f * R) k/ (k^ 2 + f * R); k/ (k^ 2 + f * R) - R/ (k^ 2 + f * R)]
68
68
idx_t = findfirst (sol. t .> 2.5 )
69
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; 0 ])[2 ]
70
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; 0 ])[1 ]
69
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; 0 ])[2 ] rtol = 1e-3
70
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; 0 ])[1 ] rtol = 1e-3
71
71
idx_t = findfirst (sol. t .> 5.5 )
72
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[2 ]
73
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[1 ]
72
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[2 ] rtol = 1e-3
73
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[1 ] rtol = 1e-3
74
74
end
75
75
76
76
prob = DAEProblem (sys, D .(states (sys)) .=> 0.0 , Pair[], (0 , 6.0 ))
@@ -82,11 +82,11 @@ D = Differential(t)
82
82
# test steady-state values
83
83
dc_gain = [f/ (k^ 2 + f * R) k/ (k^ 2 + f * R); k/ (k^ 2 + f * R) - R/ (k^ 2 + f * R)]
84
84
idx_t = findfirst (sol. t .> 2.5 )
85
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; 0 ])[2 ]
86
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; 0 ])[1 ]
85
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; 0 ])[2 ] rtol = 1e-3
86
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; 0 ])[1 ] rtol = 1e-3
87
87
idx_t = findfirst (sol. t .> 5.5 )
88
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[2 ]
89
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[1 ]
88
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[2 ] rtol = 1e-3
89
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[1 ] rtol = 1e-3
90
90
91
91
# p1 = Plots.plot(sol, vars=[inertia.w], ylabel="Angular Vel. in rad/s", label="")
92
92
# p2 = Plots.plot(sol, vars=[emf.i], ylabel="Current in A", label="")
@@ -155,14 +155,14 @@ end
155
155
# test steady-state values
156
156
dc_gain = [f/ (k^ 2 + f * R) k/ (k^ 2 + f * R); k/ (k^ 2 + f * R) - R/ (k^ 2 + f * R)]
157
157
idx_t = findfirst (sol. t .> 2.5 )
158
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; 0 ])[2 ]
159
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; 0 ])[1 ]
158
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; 0 ])[2 ] rtol = 1e-3
159
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; 0 ])[1 ] rtol = 1e-3
160
160
idx_t = findfirst (sol. t .> 5.5 )
161
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[2 ]
162
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[1 ]
161
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[2 ] rtol = 1e-3
162
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[1 ] rtol = 1e-3
163
163
164
164
#
165
- @test sol[inertia. w] == sol[speed_sensor. w]
165
+ @test all ( sol[inertia. w] . == sol[speed_sensor. w. u])
166
166
end
167
167
168
168
prob = DAEProblem (sys, D .(states (sys)) .=> 0.0 , Pair[], (0 , 6.0 ))
@@ -175,13 +175,13 @@ end
175
175
# test steady-state values
176
176
dc_gain = [f/ (k^ 2 + f * R) k/ (k^ 2 + f * R); k/ (k^ 2 + f * R) - R/ (k^ 2 + f * R)]
177
177
idx_t = findfirst (sol. t .> 2.5 )
178
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; 0 ])[2 ]
179
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; 0 ])[1 ]
178
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; 0 ])[2 ] rtol = 1e-3
179
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; 0 ])[1 ] rtol = 1e-3
180
180
idx_t = findfirst (sol. t .> 5.5 )
181
- @test sol[inertia. w][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[2 ]
182
- @test sol[emf. i][idx_t] ≈ (dc_gain * [V_step; - tau_L_step])[1 ]
181
+ @test sol[inertia. w][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[2 ] rtol = 1e-3
182
+ @test sol[emf. i][idx_t]≈ (dc_gain * [V_step; - tau_L_step])[1 ] rtol = 1e-3
183
183
#
184
- @test sol[inertia. w] == sol[speed_sensor. w. u]
184
+ @test all ( sol[inertia. w] . == sol[speed_sensor. w. u])
185
185
end
186
186
187
187
@testset " El. Heating Circuit" begin
0 commit comments