[chronojump] Added PNEUMATIC mode

[Xavier Padullés <xpadulles src gnome org>]

commit d028f4f2e187500c47e0a104fbed85b9861a38a1
Author: Xavier Padullés <x padulles gmail com>
Date:   Tue Jun 11 12:45:10 2019 +0200

    Added PNEUMATIC mode

 encoder/util.R | 2 ++
 1 file changed, 2 insertions(+)
---
diff --git a/encoder/util.R b/encoder/util.R
index 7578fc36..0bcb4875 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -853,6 +853,8 @@ getDynamicsNotInertial <- function(encoderConfigurationName, speed, accel,
                 force <- massBody*(accel + g*sin(anglePush * pi / 180)) + massExtra*(g*sin(angleWeight * pi 
/ 180) + accel) / gearedDown
         } else if(encoderConfigurationName == "LINEARONPLANE"){
                 force <- (massBody + massExtra)*(accel + g*sin(anglePush * pi / 180))
+        } else if(encoderConfigurationName == "PNEUMATIC"){
+                force  = massExtra * g + massBody * (accel + g*sin(anglePush * pi / 180))         #The force 
generated by the machine is supposed to be constant
         } else {
                 force <- massTotal*(accel+g)   #g:9.81 (used when movement is against gravity)
         }