Explotación minera (Grupo 5C)

Trabajo realizado por estudiantes
Título	Explotación minera
Asignatura	Ecuaciones Diferenciales
Curso	Curso 2014-15
Autores	• Jaume Martorell Cerdá • Miguel Angel Serrano Leo • Carla Vázquez Gómara • Pablo Alonso Medina • Joaquín Sánchez Molina • Fernando Millán Cobo
Este artículo ha sido escrito por estudiantes como parte de su evaluación en la asignatura

1 Introducción

• El problema nos pide el análisis de la explotación de un yacimiento de mineral. Dicha explotación sigue un modelo logístico de Gompertz, cuya ecuación tiene la siguiente forma:
  

:[math] {dQ \over dt}=rQlog ({K \over Q}) [/math]

donde Q(t) es la cantidad de mineral extraído, K la cantidad total extraíble y r la tasa intrínseca de crecimiento.

• En nuestro caso, sabemos que la extracción de mineral tendrá un crecimiento muy rápido de producción durante los primeros 25 años, momento a partir del cual descenderá lentamente debido a diversos factores. Además de esto, conocemos la cantidad total extraíble del yacimiento, por lo que nuestra ecuación inicial quedará de la siguiente forma:
  

:[math] {dQ \over dt}=rQlog ({10875 \over Q}) [/math]

2 Relación entre cantidad y producción

Mediante las siguientes gráficas, se demuestra que la relación entre Q y P es la siguiente:

[math] {dQ \over dt}= P [/math]

o lo que es lo mismo:[math] P=Q' [/math]

• 

  Descripción1

• 

  Descripción2

3 Modelo de Gompertz: Valor de la tasa de crecimiento (r) y resolución de la función de producción

3.1 Tasa de crecimiento r

• Partimos del siguiente dato inicial:

K= 10875 toneladas

• La ecuación del modelo de Gompertz es:
  

:[math]{dQ \over dt}=rQlog({K \over Q})[/math]

• Condición:

P(t=25 años)= 240 t/año [math] \rightarrow [/math] P(25)=240 [math] \rightarrow [/math] Q'(25)=240

• Resolución:

La solución de la ecuación de Gompertz es la siguiente:

: [math] Q(t)=Ke^{-Ae^{-rt}} [/math]

El enunciado dice que la producción es máxima a los 25 años, por lo que si Q' tiene un máximo en un punto, Q"=0 en dicho punto.
Derivamos la ecuación inicial del modelo y la igualamos con la condición que hemos obtenido anteriormente.

: [math] Q"=r^2Qln({K \over Q})ln({K \over Q}-1)=0  [/math]

Despejando esta ecuación llegamos a que Q(25 años)= 4000,69 t.
Conociendo Q(25) podemos despejar "r" de nuestro problema:

:  [math] Q'= rQ(25)ln({10375 \over Q(25)})=240 [/math]

Así obtenemos r=0,05999 [math] \simeq [/math] 0,06
Con estos datos, ya podemos despejar A de [math] Q(t)=Ke^{-Ae^{-rt}} [/math], siendo A=4,4705
Por lo tanto, nuestra ecuación del modelo de Gompertz quedará de la siguiente forma:

:  [math] Q(t)=10875e^{-4,47e^{-0,6t}} [/math]

3.2 Función de producción P(Q)

Para obtener la función P(Q), obtendremos por un lado P(t) y por otro Q(t), para después representarlos en la forma P(Q).

• 

  Descripción1

CODIGO MATLAB

%Lo que haremos será calcular valores de Q para distintos valores de t, y
%luego calcular valores de P para esos mismo valores de t. Una vez tengamos
%los valores de P y Q en sendos vectores, los representaremos
K=10875;
A=4.47;
r=0.06;
t=0:1:100;
Q=zeros(1,101);
P=zeros(1,101);
for i=1:101
Q(1,i)=K*exp(-A*exp(-r*t(i)));
end
for j=1:101
P(j)=r*Q(j)*log(K/Q(j));
end
plot(Q,P,'*g')
xlabel('Cantidad de mineral extraída en toneladas')
ylabel('Producción de mineral en toneladas/año')

4 Modelo de Verhlust: Valor de la tasa de crecimiento (r) y resolución de la función de producción

4.1 Tasa de crecimiento r

• Partimos del siguiente dato inicial:

K= 10875 toneladas

• La ecuación del modelo de Verhlust es:
  

[math]{dQ \over dt}=rQ(1-{Q \over K})[/math]

• Condición:

P(t=25 años)= 240 t/año [math] \rightarrow [/math] P(25)=240 [math] \rightarrow [/math] Q'(25)=240

• Resolución:

Para la resolución, utilizamos el mismo planteamiento que en el apartado anterior del modelo de Gompertz.

: [math] Q"=rQ'(1-{Q \over 5437,5})=0  [/math]

En el caso del modelo de Verhlust obtenemos r=0,0883 y Q(25 años)=5437,5 t. Así, la ecuación del modelo tendrá la siguiente forma:

: [math] Q'=0,0883Q(1-{Q \over 10875})  [/math]

4.2 Función de producción P(Q)

Como sabemos que P=Q', la ecuación de P(t) es la siguiente:

: [math] P(t)=0,0883Q(t)(1-{Q(t) \over 10875})=0  [/math]

La ecuación de Q(t) la hemos obtenido integrando la del modelo obtenida anteriormente, y tiene la forma:

: [math] Q(t)={1196,25e^0,088276t \over 1+11e^0.088276t}  [/math]

Al igual que en el apartado anterior, obtenemos P(Q) dibujando ambas funciones en la misma gráfica:

• 

  Descripción1

6 Función de producción P(t): Modelo de Gompertz

• Utilizando el método de Heun aproximamos la función de producción P(t).
  
• A continuación obtenemos el punto de máxima producción, que es P(t)=240,18 para t=24,18 años.
  
• Para los puntos de mayor crecimiento y descenso hacemos...
  

• 

  Representación de la función P(t)

CODIGO MATLAB

clear all
t0=0;
tN=100;
q0=124.5;
h=0.01;
N=(tN-t0)/h;
t=t0:h:tN;
q=zeros(1,N+1);
k=10875;
r=0.06;
q(1)=q0;
p=zeros(1,N+1);
p(1)=r*q0*log(k/q0);
for j=1:N
q(j+1)=q(j)+h*r*q(j)*log(k/q(j));
end
for i=1:N
k1=r^2*q(i)*log(k/q(i))*(log(k/q(i))-1);
k2=r^2*(q(i)+k1*h)*log(k/(q(i)+k1*h))*(log(k/(q(i)+k1*h))-1);
p(i+1)=p(i)+h/2*(k1+k2);
end
[t',p'];
plot(t,p)
%Obtenemos el año de máxima producción
max(p)
for g=1:N
if max(p)-p(g)<=0.01
break
end
end
y=g*tN/N;

7 Función de producción P(t): Modelo de Verhlust

• En este caso volvemos a utilizar el método de Heun para aproximar la función.
  
• El punto de máxima producción que obtenemos es ???
  
• Los puntos de máximo y crecimiento son ???
  

• 

  Representación de P(t)

CODIGO MATLAB:

clear all
t0=0;
tN=100;
q0=124.5;
h=0.01;
N=(tN-t0)/h;
t=t0:h:tN;
q=zeros(1,N+1);
k=10875;
r=0.0883;
q(1)=q0;
p=zeros(1,N+1);
p(1)=r*q0*(1-(q0/k));
for j=1:N
q(j+1)=q(j)+h*r*q(j)*(1-(q(j)/k));
end
for i=1:N
k1=r*p(i)*(1-(2*q(i)/k));
k2=r*(p(i)*(1-(2*(q(i)+k1*h)/k)));
p(i+1)=p(i)+h/2*(k1+k2);
end
[t',p'];
plot(t,p)

9 Apartado 11

9.1 Producción

clear all
t0=0;
tN=100;
q0=124.5;
h=0.01;
N=(tN-t0)/h;
t=t0:h:tN;
q=zeros(1,N+1);
k=11770;
r=0.0925;
q(1)=q0;
p=zeros(1,N+1);
p(1)=r*q0*log(k/q0);
for j=1:N
q(j+1)=q(j)+h*r*q(j)*log(k/q(j));
end
for i=1:N
k1=r^2*q(i)*log(k/q(i))*(log(k/q(i))-1);
k2=r^2*(q(i)+k1*h)*log(k/(q(i)+k1*h))*(log(k/(q(i)+k1*h))-1);
p(i+1)=p(i)+h/2*(k1+k2);
end
[t',p'];
figure
plot(t,p)
figure
plot(t,q)
max(p)
for g=1:N
if max(p)-p(g)<=0.01
break
end
end
x=g*tN/N;
x