Get Force Generator Viscous Force

Source: R/fgen.R

Due to the Force Generator Force-Velocity characteristic, it velocity produces breaking or viscous force. fgen_get_viscous_force is a function that represents the viscous force at current_velocity

fgen_get_viscous_force(current_velocity, max_force = 3000, max_velocity = 4)

Arguments

current_velocity

Numeric vector
max_force

Numeric value. Default is 3000 Newtons
max_velocity

Numeric value. Default is 4 m/s

Value

Viscous force at current_velocity

Examples

x <- seq(0, 3, length.out = 1000)

y1 <- fgen_get_viscous_force(
  current_velocity = x,
  max_velocity = 3,
  max_force = 1200
)

plot(x, y1, "l")

y2 <- fgen_get_viscous_force(
  current_velocity = x,
  max_velocity = 3,
  max_force = 1000
)

lines(x, y2, col = "red")