Drag equation

function AtmosphereDrag {
    local atmP is 2.718^((0-alt:radar)/5000).
    local atmD is atmP*1.223094855.
    local drag is 5.
    local area is 3.75.
    local constant_K is (atmD*drag*area)/2.
    local newton is constant_K*(ship:velocity:surface).
}