add accsensor

Author: baggepinnen

src/Mechanical/Rotational/sensors.jl

@@ -34,6 +34,25 @@ Ideal sensor to measure the absolute flange angular velocity
     return ODESystem(eqs, t, [], []; name = name, systems = [flange, w])
 end
 
+"""
+    AccSensor(;name)
+
+Ideal sensor to measure the absolute flange angular acceleration
+
+# Connectors:
+
+  - `flange`: [Flange](@ref) Flange of shaft from which sensor information shall be measured
+  - `a`: [RealOutput](@ref) Absolute angular acceleration of flange
+"""
+@component function AccSensor(; name)
+    @named flange = Flange()
+    @variables w(t) [description = "Absolute angular velocity of flange"]
+    @named a = RealOutput() #[description = "Absolute angular acceleration of flange"]
+    eqs = [D(flange.phi) ~ w
+           a.u ~ D(w)]
+    return ODESystem(eqs, t, [], []; name = name, systems = [flange, a])
+end
+
 """
     TorqueSensor(;name)