No tengo que resolver este problema de maximización (como se indica en los detalles de la pregunta), pero lo resolví de todos modos con Mathematica usando la función incorporada FindMaximum [].
Escribiendo el código:
SetPrecision [
FindMaximum [{1000 x + 300 y + 700 z + 100 xy + 200 xz + 50 yz +
10 xyz, x + y + z == 50 && x> 0 && y> 0 && z> 0}, {x, y, z}], 30]
da el resultado o salida:
- ¿Por qué establecer una ecuación es difícil para mí, pero resolverlo es fácil?
- ¿Por qué la fórmula QUADratic tiene el número 4?
- ¿Cómo se determina la ecuación de fuerza neta? ¿Cómo se usa en física?
- Para una curva elíptica en la forma [matemática] Y ^ 2 = X ^ 3 + AX + B [/ matemática], ¿por qué es [matemática] 4A ^ 3 + 27B ^ 2 \ neq 0 [/ matemática] la condición para no- ¿singularidad?
- Cómo resolver una inecuación cuadrática
{187611.725286997447255998849869, {x-> 21.6196233250794627167579164961,
y-> 9.37801986991568981011369032785, z-> 19.0023568050048474731283931760}}
El resultado anterior significa que para:
[matemáticas] x \ aprox 21.6196233250794627167579164961 [/ matemáticas]
[matemáticas] y \ aproximadamente 9.37801986991568981011369032785 [/ matemáticas]
[matemáticas] z \ aprox 19.0023568050048474731283931760 [/ matemáticas]
el valor máximo (máximo global) para el problema dado con las restricciones dadas es aproximadamente igual a [math] 187611.725286997447255998849869 [/ math].
Espero que haya sido útil.