%=====================================================
%
% CS82 - 2012/2013
% 
% Aire d'une section de solide d'egale resistance
%
%=====================================================
function r=Aire(F,sigma,rho,g,L,x)

r=F/sigma*exp( rho*g/sigma*(L-x) );