function p = set_force(p,F,i,n)
p.Forces{i}(n,:) = F;
end
