Formulación de raciones

Es el apropiado uso de los alimentos y el adecuado balanceo de los nutrientes necesarios y propios para el animal al que se destina

Matriz RStudio

Una matriz en R es una estructura de datos para almacenar objetos del mismo tipo, pero agrupadas en fila y columna.

Matrices en formulación de raciones

A medida que se introducen más alimentos y requerimientos en la formulación de raciones, la solución a esta se hace más compleja y toma mucho mas tiempo obtenerla.

En la actualidad esto ya no es un incoveniente, gracias a la tecnologia la solución es sencilla y practica. Esto se lo podria realizar en una calculadora programable o una computadora con capacidad de resolver matrices.

RStudio es una herramienta que se puede usar en el procedimiento de formulación de raciones para animales.

Ejemplo 1.

Se desea formular una ración (100 kg), para pollos parrilleros (carne), que contenga 22 % de PC. En la granja se cuenta con los siguientes alimentos:

Alimentos % PC
Maiz amarillo, grano molido 8.3
Torta de soya 42

Se comienza a formular la ración partiendo de:

x = Maíz amarillo y = Torta de soya

Luego se plantean dos ecuaciones:

mezcla <- matrix(c(1, 1, 
                   0.083, 0.42), nrow = 2, byrow = TRUE)
cantidad <- c(100, 22)
# Nombres
colnames(mezcla) <- c("Maiz", "Soya")
rownames(mezcla) <- c("cant.", "PC")

mezcla
       Maiz Soya
cant. 1.000 1.00
PC    0.083 0.42
# Resolver sistema
requerimiento <- solve(mezcla, cantidad)
requerimiento
    Maiz     Soya 
59.34718 40.65282

Solución:

Se necesita 59.35 kg de Maiz y 40.65 kg de Torta de soya, para cumplir con el requerimiento de 22 % de PC para pollos parrilleros.

Ejemplo 2

Se requieren 605 gr/día de una mezcla para alimentar a un pollo parrillero en etapa de inicio, cuyos requerimientos son: proteina cruda 13% y energia metabolizable 2.7 Mcal/Kg.

Calcular la cantidad de mezcla necesaria para 200 pollos teniendo en cuenta que la etapa de inicio comprende 21 días y los alimentos disponibles en la granja son los siguientes:

Alimento PC % EM Mcal/kg
H.pescado 64.8 2.59
G.cebada 11 2.8
Afrecho 14 2.6 
mezcla_total <- (605 * 200 * 21) / 1000
pc_total <- mezcla_total * (13 / 100)
em_total <- mezcla_total * 2.7

cantidad <- matrix(c(1, 1, 1, 
                     0.648, 0.11, 0.14, 
                     2.59, 2.8, 2.6), nrow = 3, byrow = TRUE)

colnames(cantidad) <- c("H.pescado", "G.Cebada", "Afrecho")
rownames(cantidad) <- c("Mezcla", "PC", "EM")

cantidad
       H.pescado G.Cebada Afrecho
Mezcla     1.000     1.00    1.00
PC         0.648     0.11    0.14
EM         2.590     2.80    2.60
requerimiento <- c(mezcla_total, pc_total, em_total)

# Resolver sistema
racion <- solve(cantidad, requerimiento)
racion
 H.pescado   G.Cebada    Afrecho 
  25.08391 1271.75420 1244.16190

Ejemplo 3

Se requieren 100 kg de una ración con los siguientes requerimientos:

  • Energia metabolizable: 3 Mcal/kg
  • Proteina cruda: 16%
  • Fibra cruda: 8% máximo

Los alimentos disponibles son:

Y en base a los siguientes insumos:

Alimentos EM (Mcal/Kg) %PC %FC
Maiz amarillo, grano mol. 3.2 8.4 2.0
Soya, grano tostado y molido 3.2 38 2.5
Afrecho de trigo 2.5 14 9
Sorgo, grano molido 3 10 12
Sal común 0 0 0 
mezcla <- matrix(c(1, 1, 1, 1, 
                   0.084, 0.38, 0.14, 0.1, 
                   3.2, 3.2, 2.5, 3, 
                   0.02, 0.025, 0.09, 0.12), nrow = 4, byrow = TRUE)

# Se adiciona 1.5 kg de sal a la mezcla, total mezcla 98.5 kg
cantidad <- c(98.5, 16, 300, 8)
# Nombres
colnames(mezcla) <- c("Maiz", "Soya", "Afrecho", "Sorgo")
rownames(mezcla) <- c("Mezcla", "PC", "EM", "FC")

mezcla
        Maiz  Soya Afrecho Sorgo
Mezcla 1.000 1.000    1.00  1.00
PC     0.084 0.380    0.14  0.10
EM     3.200 3.200    2.50  3.00
FC     0.020 0.025    0.09  0.12
# Resolver sistema
requerimiento <- solve(mezcla, cantidad)
requerimiento
     Maiz      Soya   Afrecho     Sorgo 
15.506455 21.993243  5.999879 55.000422