Formula to calculate work/power (watts) of a runner on a horizontal
pane.
I can calculate a runners work/power if they are on an incline but how
do I calculate work/power when incline(grade)=0.

I need a Visual Basic function returning byref dWork, and byref
dPower.

Below is my function that works if incline <> 0
-----
Public Function GetEnergy(ByRef dWork As Double, ByRef dPower As
Double, dIncline, dWieghtKG, dSpeedKPH, dSeconds) As Boolean

 

    Dim bRetVal As Boolean
    Dim dWorkTmp As Double
    Dim dMinutes As Double
    Dim dTheta As Double
    Dim dSpeedKPs As Double
    Dim PI As Double

    dWorkTmp = dWork 'this allows us to add work even if work is
passed in

    PI = 3.14159265358979

    dTheta = Sin(dIncline * PI / 180)

    dSpeedKPs = (dSpeedKPH * 1000) / 60

    dMinutes = dSeconds * 60

    dWork = (dWieghtKG * dSpeedKPs * dTheta * dMinutes) + dWorkTmp

    dPower = dWork / dMinutes

    bRetVal = True

    GetEnergy = bRetVal

End Function

THX

Here's a formula:

Work = 0.

Work is force times distance.  At a steady velocity, there is no force
in the horizontal plane.  And in the vertical plane, there is no
distance... no vertical movement.

craigengineer-ga, 
This is what my formula above calculates.
But think of it this way.  
If you are running around a track 440 yards at 8mph you are expending
energy, more so than walking aroundthe track a 2.5mph.  I need these
calculations.  THX for answering......

The answer is

The American College of Sports Medicine in the Guidelines for Exercise
Testing and Prescription goes over the metabolic equations for
walking, running, cycle ergometry.

The equation for determining oxygen consumption is:

VO2 (in ml/kg/min) = (0.2 ml/kg/min)/(m/min) X Horizontal Velocity in
m/min+  3.5 ml/kg/min