v_const = 20;             % constant velocity in km/h
m_rider = 80;             % traveller's weight in kg
h_rider = 180;            % traveller's height in cm
m_batteries = 9;          % weight of batteries
m_segway_nobat = 29;      % weight of bare segway
m_segway = m_batteries + m_segway_nobat;       % weight of test Segway
d_wheel = 0.48;           % diameter of wheel in m
A_segway = 0.2;           % frontal surface area of Segway in m^2
c_D = 1.5;                % coefficient of drag for Segway + traveller
alpha = 0;                % average incline of terrain in deg
eff_overall = .5;         % Overall efficiency, for battery->wheel and wheel->generator->battery
time = 48;                % in minutes

A = FSA(h_rider, m_rider) + A_segway;
v = v_kmh2msec(v_const);
m = m_segway + m_rider;
Torque = (d_wheel / 2) * F_total(A, v, c_D, m, alpha);
P_mech_effective = Torque * v_msd2rad(v, d_wheel);
P_ideal_batteries = P_mech_effective * (1 / eff_overall);
E_batteries_total = P_ideal_batteries * (time * 60)