diff --git a/Evolucao.org b/Evolucao.org index a75d02e..7ecec8a 100644 --- a/Evolucao.org +++ b/Evolucao.org @@ -7,6 +7,11 @@ #+TAGS: tabelas, org-mode, composição ideal #+share: false #+DRAFT: true +#+SETUPFIL: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup +#+HTML_HEAD: +#+HTML_HEAD: +#+HTML_HEAD: +#+HTML_HEAD: #+TODO @@ -26,9 +31,9 @@ IP = intervalo entre partos (12 meses) (setq IP "12") PP = primeiro parto (24 meses) (setq PP "24") PL = Período de lactação (10 meses)(setq PL "10") -'CL = capacidade de lotação (20UGM) (setq CL "20") -'IndMor = Indice de mortalidade de bezerras -'IRP = índice de renovação do plantel - substituição de vacas velhas ou ruins +CL = capacidade de lotação (20UGM) (setq CL "20") +IndMor = Indice de mortalidade de bezerras +IRP = Índice de renovação do plantel - substituição de vacas velhas ou ruins Comnpisição ideal em número de animais por categoria: @@ -61,53 +66,50 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k #+TBLFM: $4=$3*100/$Tcab;%.1f::@2$5=@2$3*remote(Tab1,@2$2)::@8$3=@2$3+@3$3+@4$3+@5$3+@6$3+@7$3::@3$5=@3$3*remote(Tab1, @3$2)::@4$5=@4$3*remote(Tab1, @4$2)::@5$5=@5$3*remote(Tab1, @5$2)::@6$5=@6$3*remote(Tab1, @6$2)::@7$5=@7$3*remote(Tab1, @7$2)::@8$5=vsum(@2..@7)::$6=$5*100/$Tugm;%.1f -A composição do rebanho é dinâmico, com espectativa de crescimento ao longo do tempo, até alcançar o limite de suporte das pastagens -ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual -por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte de 25% das vacas. +A composição do rebanho é dinâmico, com perspectativa de crescimento anual, até alcançar o limite de capacidade de suporte das pastagens ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual +por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte médio de 25% de vacas. Quando for atingido o limite de vacas na fazenda, pode-se vender o excedente de fêmeas em idade de terneiras, novilhas prenhas, ou vacas, -de acordo com a conveniência da fazenda. Entretanto, o limite é medido em UGM, o que também vai limitar a opção pela venda de animais maiores. -Com base nos índices definidos em conjunto com a fazenda, estimamos que a evolução do rebanho de apresente conforme a tabela 3, ressalvando que -esses valores não são absolutos, pois podem ocorrer imprevistos que alterem a evolução. Da mesma forma, havendo alteração nos índices esperados, -haverá impacto na evolução do rebanho, o que não caracteriza necessariamente erro de previsão ou de manejo. +de acordo com a conveniência da fazenda. Entretanto, a capacidade de suporte se dá em UGM, o que também vai limitar a opção pela venda de animais maiores. +Com base nos índices definidos em conjunto com a fazenda, e as entradas e saídas programadas na tabela 3, estimamos que a evolução do rebanho possa ocorrer conforme a tabela 9, ressalvando que esses valores não são absolutos, pois podem ocorrer imprevistos que alterem a evolução. Da mesma forma, havendo alteração nos índices esperados,haverá impacto na evolução do rebanho, o que não caracteriza necessariamente erro de previsão ou de manejo. -** Tabela Basede Constantes +** Tabela de entradas e saídas de animais Os dados desta tabela deve ser alterados conforme necessário para alcançar a evolução do rebanho desejada. -As tabelas de composição de rebanho serão calculadas automáticamente, com base nos dados anotados na tabela . +As tabelas de composição de rebanho serão calculadas automáticamente, com base nos dados anotados na tabela . #+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar) #+NAME:Tab0 -| | Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| -| | Partos por vaca ano | 1 | 1 | 1 | 1 | 1 | 1 | | | -| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| -| | Vacas Existentes | 20 | - | - | - | - | - | - a calcular | | -| ^ | | VE1 | | | | | | | | -| | Novilhas (12 a 24) existentes | 05 | - | - | - | - | - | - a calcular | | -| ^ | | NE1 | | | | | | | | -| | Bezerras existentes | 0 | - | - | - | - | - | - a calcular | | -| ^ | | TE1 | | | | | | | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| -| | Novilhas para vacas | 0 | 0 | 5 | 5 | 7 | 7 | | | -| ^ | | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | | | -| | % Bezerras para novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | com base no total de nascidos | | -| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| -| | Vacas a vender | 0 | 0 | 0 | 3 | 3 | 5 | | | -| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | | | -| | Novilhas a vender (Num) | 0 | 0 | 0 | 0 | 7 | 7 | | | -| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | | | -| | Bezerras a vender | 0 | 0 | 1 | 1 | 1 | 1 | | | -| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| -| | Vacas a comprar | 0 | 5 | 0 | 0 | 0 | 0 | | | -| ^ | | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | | | -| | Novilhas a comprar | 2 | 0 | 0 | 0 | 0 | 0 | | | -| ^ | | NC1 | NC2 | NC3 | NC4 | NC5 | NC6 | | | -| | Bezerras a compras | 1 | 1 | 1 | 1 | 1 | 1 | | | -| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | | | -|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| +| | Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Partos por vaca ano | 1 | 1 | 1 | 1 | 1 | 1 | | | +| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Vacas Existentes | 20 | - | - | - | - | - | - na elaboração do projeto | | +| ^ | | VE1 | | | | | | | | +| | Novilhas (12 a 24) existentes | 0 | - | - | - | - | - | - na elaboração do projeto | | +| ^ | | NE1 | | | | | | | | +| | Bezerras existentes | 0 | - | - | - | - | - | - na elaboração do projeto | | +| ^ | | TE1 | | | | | | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Novilhas para vacas | 0 | 5 | 0 | 0 | 0 | 0 | - Anual | | +| ^ | | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | | | +| | % Bezerras para novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | - base no total nascidos | | +| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Vacas a vender | 0 | 0 | 0 | 3 | 10 | 7 | - anual | | +| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | | | +| | Novilhas a vender (Num) | 0 | 0 | 0 | 0 | 7 | 7 | - anual | | +| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | | | +| | Bezerras a vender | 0 | 0 | 1 | 1 | 1 | 1 | - anual | | +| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | - anual | | +| ^ | | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | | | +| | Novilhas a comprar | 5 | 0 | 0 | 0 | 0 | 0 | - anual | | +| ^ | | NC1 | NC2 | NC3 | NC4 | NC5 | NC6 | | | +| | Bezerras a compras | 0 | 0 | 0 | 0 | 0 | 0 | -anual | | +| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| Com a evolução estimada através dos indicadores: . 1 parto por vaca por ano; @@ -117,7 +119,7 @@ Com a evolução estimada através dos indicadores: . Aproveitamento de 40% dos nascidos para repsição Temos o seguinte: >> Iniciamos com 20 vacas ->> No segundo ano serão compradas 2 novilhas +>> Compramos 5 novilhas cobertas #+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1) @@ -126,15 +128,13 @@ Temos o seguinte: |---+-----------------+---------+-----+--------+-------+-------+-----+---------| | # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | NOVILHAS 12<>24 | 1 | 5 | 2 | 0 | 8 | 0 | 3 | +| # | NOVILHAS 12<>24 | 0 | 0 | 5 | 0 | 5 | 0 | 5 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | BEZERRAS <12 | 2 | 8 | 0 | 0 | 10 | 10 | 0 | +| # | BEZERRAS <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | Outros | | 0 | 0 | 0 | | 0 | 0 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | -#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1) -#+TBLFM: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN -#+TBLFM:$EAB=remote(Tab0, $TE1) ::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB +#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1):: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN::$EAB=remote(Tab0, $TE1)::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencias do ano. No caso das vacas, não há alteração, visto que não há entradas, nem saídas, e o número inicial é o mesmo do final. No caso das novilhas, há movimentação, com a transferência interna de 5 (que passam de bezerras para novilhas), compra de 2, e transferência cedendo 5 para serem vacas no próximo ano. Assim, o ano inicia com 1 novilha, e termina com 3. @@ -145,11 +145,11 @@ Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencia #+NAME: Tab3_2 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 20 | 0 | 5 | 0 | 25 | 0 | 25 | +| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 3 | 10 | 0 | 0 | 13 | 13 | 0 | +| # | Novilhas 12<>24 | 5 | 8 | 0 | 0 | 13 | 13 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 10 | 1 | 0 | 11 | 11 | 0 | +| # | Bezerras <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -164,11 +164,11 @@ Na tabela 3.3 podemos observar... #+NAME: Tab3_3 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 25 | 13 | 0 | 0 | 38 | 0 | 38 | +| # | VACAS >24 | 20 | 13 | 0 | 0 | 33 | 0 | 33 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 11 | 0 | 0 | 11 | 11 | 0 | +| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 15 | 1 | 1 | 15 | 15 | 0 | +| # | Bezerras <12 | 0 | 13 | 0 | 1 | 12 | 12 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -182,11 +182,11 @@ Na tabela 3.4 ... #+NAME: Tab3_4 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 38 | 11 | 0 | 3 | 46 | 0 | 46 | +| # | VACAS >24 | 33 | 8 | 0 | 3 | 38 | 0 | 38 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 15 | 0 | 0 | 15 | 15 | 0 | +| # | Novilhas 12<>24 | 0 | 12 | 0 | 0 | 12 | 12 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 18 | 1 | 1 | 18 | 18 | 0 | +| # | Bezerras <12 | 0 | 15 | 0 | 1 | 14 | 14 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -205,14 +205,15 @@ na tabela 3.5 :END: | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 46 | 15 | 0 | 3 | 58 | 0 | 58 | +| # | VACAS >24 | 38 | 12 | 0 | 10 | 40 | 0 | 40 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 18 | 0 | 7 | 11 | 11 | 0 | +| # | Novilhas 12<>24 | 0 | 14 | 0 | 7 | 7 | 7 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 23 | 1 | 1 | 23 | 23 | 0 | +| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | +| | | | | | | | | | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| #+TBLFM: $EAV=remote(Tab3_4, $EFV)::$TRV=remote(Tab3_4, $TCN)::$COV=remote(Tab0,$VC5)::$VEV=remote(Tab0, $VV5)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_4, $EFN)::$TRN=remote(Tab3_4, $TCB)::$CON=remote(Tab0,$NC5)::$VEN=remote(Tab0, $NV5)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_4, $EFB)::$FRB=$EFV*remote(Tab0, $BA5);%.0f::$COB=remote(Tab0,$BC5)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB @@ -223,15 +224,16 @@ e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a imp #+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6) | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 58 | 11 | 0 | 5 | 64 | 0 | 64 | +| # | VACAS >24 | 40 | 7 | 0 | 7 | 40 | 0 | 40 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 23 | 0 | 7 | 16 | 16 | 0 | +| # | Novilhas 12<>24 | 0 | 15 | 0 | 7 | 8 | 8 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 26 | 1 | 1 | 26 | 26 | 0 | +| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| | | | | | | | | | #+TBLFM: $EAV=remote(Tab3_5, $EFV)::$TRV=remote(Tab3_5, $TCN)::$COV=remote(Tab0,$VC6)::$VEV=remote(Tab0, $VV6)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_5, $EFN)::$TRN=remote(Tab3_5, $TCB)::$CON=remote(Tab0,$NC6)::$VEN=remote(Tab0, $NV6)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_5, $EFB)::$FRB=$EFV*remote(Tab0, $BA6);%.0f::$COB=remote(Tab0,$BC6)::$VEB=remote(Tab0,$BV6)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB @@ -250,25 +252,32 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac :END: | | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | |---+-----------+------+------+------+------+------+------| -| # | Vacas | 20 | 25 | 38 | 46 | 58 | 64 | -| # | Novilhas | 8 | 13 | 11 | 15 | 11 | 16 | -| # | Terneiras | 10 | 11 | 15 | 18 | 23 | 26 | +| # | Vacas | 20 | 20 | 33 | 38 | 40 | 40 | +| # | Novilhas | 5 | 13 | 8 | 12 | 7 | 8 | +| # | Terneiras | 8 | 8 | 12 | 14 | 15 | 15 | |---+-----------+------+------+------+------+------+------| -#+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB) +| # | Total | 33 | 41 | 53 | 64 | 60 | 63 | +#+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6::@5$7=@2$7+@3$3+@4$7::@5$8=@2$8+@3$8+@4$8 * TODO Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.>> *** Importação dos dados dos animais existentes #+BEGIN_src R -getwd() - library (data.table) - Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) -# str(Evol_exist) +library (data.table) +library(tidyr) +library(dplyr) +Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) + str(Evol_exist) #View(Evol_exist) #Transpor a tabela Evol_exist1<-dcast(melt(Evol_exist, id.vars="Ano"),variable ~Ano) # deu um trabalho para n ão aparecer uma linha nova com os nomes da colunas... str(Evol_exist1) +Evoluc<-Evol_exist1%>% + pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>% + dplyr::mutate(Ano=variable) +#View(Evoluc) +str(Evoluc) #+END_src @@ -276,33 +285,21 @@ str(Evol_exist1) ** Gráfico 1 #+header: :width 8 :height 8 :family Times -#+BEGIN_src R -library (ggplot2) +#+begin_src R :file ..fig/evol1.png :results file graphics + library (ggplot2) -ggplot(Evol_exist1, -aes(x =as.numeric(variable)))+ -geom_line ( aes (y = Vacas),col="red")+ -geom_line (aes(y=Novilhas), col="blue")+ -geom_line (aes(y=Terneiras), col="green") + Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+ + geom_line (aes(color=Categoria))+ + geom_point(aes(color=Categoria)) + + Evoluc +#+end_src -END_src +#+RESULTS: +[[file:..fig/Evol1.png]] * TODO - Resolver exportação figura no arquivo html -** Animais comprados - -| # | Vacas compradas | | | | | | | | | | | | | | | | -| # | Novilhas compradas | | | | | | | as | | | | | | | | | -| # | Terneiras compradas | | | | | | | | | | | | | | | | -|---+---------------------+-------+-------+-------+-------+-------+-------+----+---+---+---+---+---+---+---+---| - - - -** Animais vendidos -| # | Vacas vendidas | | | | | | | | | | | | | | | | -| # | Novilhas vendidas | | | | | | | | | | | | | | | | -| # | Terneiras vendidas | | | | | | | | | | | | | | | - * Figuras (só para testar) Exemplo 2 @@ -312,6 +309,15 @@ Exemplo 2 Exemplo 3 - -#+Caption: Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. -#+ATTR_HTML: width 200 px :aling center -[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848]] +#+begin_export html +
+

+ Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. +

+

+ + + +

+
+#+end_export> diff --git a/README b/README index 58d5f34..2262523 100644 --- a/README +++ b/README @@ -1 +1,3 @@ -Campos_rebanho +'Este repositório, da multifarm, terá como função a elaboração de uma estimativa de evolução do rebanho. +Inicialmente, o arquivo [[Evolução.org]] tem as configurações para bovinos de leite. +Deverá ser criado outro script para bovinos de corte, tanto para sistemas de recria, quanto para ciclo completo ou terminação.