B= 0.75 //base columna en metros
H= 0.75 //altura columna en metros
P= 5 // Profundidad columna en metros

function [x] = func (x)
     x = (2000*(exp (1)^(-0.75*x)) +123;
endfunction