Get Instantaneous Output Of The Force Generator

Source: R/fgen.R

fgen_get_output returns acceleration and force data based on the current system state (current_time, current_distance, and current_velocity), system constraints (mass, weight, and push_off_distance), and parameters of the Forge Generator (max_force, current_velocity, decline_rate, peak_location, and time_to_max_activation)

fgen_get_output(
  current_time = 0,
  current_distance = 0,
  current_velocity = 0,
  mass = 75,
  weight = mass * gravity_const,
  push_off_distance = 0.4,
  gravity_const = 9.81,
  max_force = 3000,
  max_velocity = 4,
  decline_rate = 1.05,
  peak_location = -push_off_distance * 0.15,
  time_to_max_activation = 0.3
)

Arguments

current_time

Numeric vector. Default is 0
current_distance

Numeric vector. Default is 0
current_velocity

Numeric vector. Default is 0
mass

Numeric vector. Default is 75kg
weight

Numeric vector. Default is mass x gravity_const
push_off_distance

Numeric vector. Default is 0.4
gravity_const

Numeric value. Default is 9.81
max_force

Numeric value. Default is 3000N
max_velocity

Numeric vector. Default is 4m/s
decline_rate

Numeric vector. Default is 1.05
peak_location

Numeric vector. Default is -push_off_distance * 0.15
time_to_max_activation

Numeric vector. Default is 0.3s

Value

List with five elements: kinematics, system_constraints, fgen_parameters, fgen_output, and kinetics

Examples

state <- expand.grid(
  current_time = seq(0, 0.25, length.out = 1000),
  current_distance = c(0.1, 0.15, 0.2, 0.25, 0.3),
  current_velocity = 0
)

fgen_data <- fgen_get_output(
  max_force = 3000,
  mass = 75,
  current_time = state$current_time,
  current_distance = state$current_distance,
  current_velocity = state$current_velocity
)