function f = floor_force_param ( t, n, un, vn, list, h, hw, Epfloor, cpfloor )
    f = zeros(2*n,1);
    sz = size(list,2);
    for k=1:sz-1
        i = list(k);
        j = list(k+1);
        [fi, fj] = floor_force_i_j_param ( t, n, un, vn, i, j, h, hw, Epfloor, cpfloor );
        f(2*i) = f(2*i) + fi;
        f(2*j) = f(2*j) + fj;
    end
end
