adenor/Compos_rebanho
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

corrigindo erros

Browse Source
This commit is contained in:
Adenor Vicente Wendling
2023-09-28 12:03:14 -03:00
parent 2a5dedad37 fc66c83bf0
commit 9b62eba8f4
7 changed files with 2210 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

482
Evolucao.html
View File

File diff suppressed because it is too large Load Diff

486
Evolucao.org
View File

@ -1,486 +0,0 @@
#+Title:Evolução de rebanho leiteiro em PRV
#+DESCRIPTION:
#+LANGUAGE: portuguese
#+AUTHOR: Adenor Wendling
#+DATE: 08-31-2023
#+SLUG: orgmode-excel
#+TAGS: tabelas, org-mode, composição ideal
#+share: false
#+DRAFT: true
<<<<<<< HEAD
#+SETUPFIL: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
#+HTML_HEAD: <style> p{max-width:800px;}</style>
#+HTML_HEAD: <style> li{max-width:800px;}</style>
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
=======
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+TODO
Continuar planilha
#+startup 2023-08-02
Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do
Vou utilizar os manuais on line <https://orgmode.org/manual/Field-and-range-formulas.html>
e <https://orgmode.org/org.html#Built_002din-Table-Editor>
* Indices
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")
<<<<<<< HEAD
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
>>>>>>> 1d4d4f8 (para discutir na reuniao)
Comnpisição ideal em número de animais por categoria:
#+Caption: UGM de referência de acordo com a categoria animal
#+NAME: Tab1
| Cataegoria animal | UGM | abrev |
|-----------------------+------+-------|
| Vacas em lactação | 1 | vaca |
| Vacas secas | 1 | vase |
| Bezerras até 12 meses | 0.25 | Beze |
| Novilhas até 18 meses | 0.50 | No18 |
| Novilhas até 24 meses | 0.75 | No24 |
| Outros | 1 | Outr |
|-----------------------+------+-------|
Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 kg de peso vivo. Desta forma, pode ser necessário ajustar as UGMs e acordo com o peso dos animais de cada fazenda.
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
| | Categoria de animais | Cabeças | %cab% | UGM | %UGM |
|---+-----------------------+---------+-------+------+-------|
| # | Vacas em lactação | 10 | 47.6 | 10 | 60.6 |
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
| # | Bezerras ate 12 meses | 3 | 14.3 | 0.75 | 4.5 |
| # | Novilhas até 18 meses | 3 | 14.3 | 1.5 | 9.1 |
| # | Novilhas até 24 meses | 3 | 14.3 | 2.25 | 13.6 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 21 | 100.0 | 16.5 | 100.0 |
| ^ | | Tcab | | Tugm | |
|---+-----------------------+---------+-------+------+-------|
#+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
<<<<<<< HEAD
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, 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 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 <Tab0[[docview:Tab0][tabela 3]]>.
#+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 | - | - | - | - | - | - 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 | | |
|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---|
=======
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.
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.
** Tabela Basede Constantes
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 <Tab0>.
#+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 | | |
|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
>>>>>>> 1d4d4f8 (para discutir na reuniao)
Com a evolução estimada através dos indicadores:
. 1 parto por vaca por ano;
. Primeiro parto aos 18 meses
. Descarte de 25% das vacas a partir do 3º ano
. Capacidade de suporte para 40 vacas
. Aproveitamento de 40% dos nascidos para repsição
Temos o seguinte:
>> Iniciamos com 20 vacas
<<<<<<< HEAD
>> Compramos 5 novilhas cobertas
=======
>> No segundo ano serão compradas 2 novilhas
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
<<<<<<< HEAD
| # | NOVILHAS 12<>24 | 0 | 0 | 5 | 0 | 5 | 0 | 5 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | 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):: $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
=======
| # | NOVILHAS 12<>24 | 1 | 5 | 2 | 0 | 8 | 0 | 3 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | BEZERRAS <12 | 2 | 8 | 0 | 0 | 10 | 10 | 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
>>>>>>> 1d4d4f8 (para discutir na reuniao)
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.
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 5 | 8 | 0 | 0 | 13 | 13 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
=======
| # | VACAS >24 | 20 | 0 | 5 | 0 | 25 | 0 | 25 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 3 | 10 | 0 | 0 | 13 | 13 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 10 | 1 | 0 | 11 | 11 | 0 |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_1, $EFV)::$TRV=remote(Tab3_1, $TCN)::$COV=remote(Tab0,$VC2)::$VEV=remote(Tab0, $VV2)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_1, $EFN)::$TRN=remote(Tab3_1, $TCB)::$CON=remote(Tab0,$NC2)::$VEN=remote(Tab0, $NV2)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_1, $EFB)::$FRB=$EFV*remote(Tab0, $BA2);%.0f::$COB=remote(Tab0,$BC2)::$VEB=remote(Tab0,$BV2)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
** Comentários sobre tabela acima
Na tabela 3.3 podemos observar...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
#+NAME: Tab3_3
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| # | VACAS >24 | 20 | 13 | 0 | 0 | 33 | 0 | 33 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 13 | 0 | 1 | 12 | 12 | 0 |
=======
| # | VACAS >24 | 25 | 13 | 0 | 0 | 38 | 0 | 38 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 11 | 0 | 0 | 11 | 11 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 1 | 1 | 15 | 15 | 0 |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_2, $EFV)::$TRV=remote(Tab3_2, $TCN)::$COV=remote(Tab0,$VC3)::$VEV=remote(Tab0, $VV3)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_2, $EFN)::$TRN=remote(Tab3_2, $TCB)::$CON=remote(Tab0,$NC3)::$VEN=remote(Tab0, $NV3)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_2, $EFB)::$FRB=$EFV*remote(Tab0, $BA3);%.0f::$COB=remote(Tab0,$BC3)::$VEB=remote(Tab0,$BV3)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
** Comentários da tabela acima
Na tabela 3.4 ...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| # | VACAS >24 | 33 | 8 | 0 | 3 | 38 | 0 | 38 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 12 | 0 | 0 | 12 | 12 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 1 | 14 | 14 | 0 |
=======
| # | VACAS >24 | 38 | 11 | 0 | 3 | 46 | 0 | 46 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 15 | 0 | 0 | 15 | 15 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 18 | 1 | 1 | 18 | 18 | 0 |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_3, $EFV)::$TRV=remote(Tab3_3, $TCN)::$COV=remote(Tab0,$VC4)::$VEV=remote(Tab0, $VV4)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_3, $EFN)::$TRN=remote(Tab3_3, $TCB)::$CON=remote(Tab0,$NC4)::$VEN=remote(Tab0, $NV4)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_3, $EFB)::$FRB=$EFV*remote(Tab0, $BA4);%.0f::$COB=remote(Tab0,$BC4)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
** Comentários da tabela acima
na tabela 3.5
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
:PROPERTIES:
:TABLE_EXPORT_FILE: Documents/Tabela 3.5.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| # | VACAS >24 | 38 | 12 | 0 | 10 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 14 | 0 | 7 | 7 | 7 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | 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 |
| | | | | | | | | |
=======
| # | VACAS >24 | 46 | 15 | 0 | 3 | 58 | 0 | 58 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 18 | 0 | 7 | 11 | 11 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 23 | 1 | 1 | 23 | 23 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+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
e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
#+name:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| # | VACAS >24 | 40 | 7 | 0 | 7 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 15 | 0 | 7 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 |
=======
| # | VACAS >24 | 58 | 11 | 0 | 5 | 64 | 0 | 64 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 23 | 0 | 7 | 16 | 16 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 26 | 1 | 1 | 26 | 26 | 0 |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
<<<<<<< HEAD
| | | | | | | | | |
=======
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+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
* Resumo da evolução
Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda.
** Tabela com os dados resumidos referente aos animais existentes anualmente
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
#+NAME:TABELA4
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: Documents/Tabela4.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+------+------+------+------|
<<<<<<< HEAD
| # | Vacas | 20 | 20 | 33 | 38 | 40 | 40 |
| # | Novilhas | 5 | 13 | 8 | 12 | 7 | 8 |
| # | Terneiras | 8 | 8 | 12 | 14 | 15 | 15 |
|---+-----------+------+------+------+------+------+------|
| # | 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
=======
| # | Vacas | 20 | 25 | 38 | 46 | 58 | 64 |
| # | Novilhas | 8 | 13 | 11 | 15 | 11 | 16 |
| # | Terneiras | 10 | 11 | 15 | 18 | 23 | 26 |
|---+-----------+------+------+------+------+------+------|
#+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)
>>>>>>> 1d4d4f8 (para discutir na reuniao)
* 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
<<<<<<< HEAD
library (data.table)
library(tidyr)
library(dplyr)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(Evol_exist)
=======
getwd()
library (data.table)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
# str(Evol_exist)
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#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)
<<<<<<< HEAD
Evoluc<-Evol_exist1%>%
pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>%
dplyr::mutate(Ano=variable)
#View(Evoluc)
str(Evoluc)
=======
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+END_src
*** Gráfico da evolução do rebanho
** Gráfico 1
#+header: :width 8 :height 8 :family Times
<<<<<<< HEAD
#+begin_src R :file ..fig/evol1.png :results file graphics
library (ggplot2)
Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
geom_line (aes(color=Categoria))+
geom_point(aes(color=Categoria))
Evoluc
#+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 | | | | | | | | | | | | | | |
>>>>>>> 1d4d4f8 (para discutir na reuniao)
* Figuras (só para testar)
Exemplo 2
#+caption:Vacas com água, pasto e sombra.
#+ATTR_HTML:width 300 px :align center :title Action!
[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851]]
Exemplo 3 -
<<<<<<< HEAD
#+begin_export html
<div id="subtittle" style="float: center; text-aling:center;">
<p>
<font size="1"> Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.</font>
</p>
<p>
<a href="http://multifarm.top">
<img src= "[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848]]" width = "250"/>
</a>
</p>
</div>
#+end_export>
=======
#+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]]
>>>>>>> 1d4d4f8 (para discutir na reuniao)

381
EvolucaoVitruvio.org Normal file
View File

@ -0,0 +1,381 @@
#+Title:Evolução de rebanho leiteiro em PRV
#+DESCRIPTION:
#+LANGUAGE: portuguese
#+AUTHOR: Adenor Wendling
#+DATE: 08-31-2023
#+SLUG: orgmode-excel
#+TAGS: tabelas, org-mode, composição ideal
#+share: false
#+DRAFT: true
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
#+HTML_HEAD: <style> p{max-width:800px;}</style>
#+HTML_HEAD: <style> li{max-width:800px;}</style>
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
* TODO
Continuar planilha
#+startup 2023-08-02
Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do
Vou utilizar os manuais on line <https://orgmode.org/manual/Field-and-range-formulas.html>
e <https://orgmode.org/org.html#Built_002din-Table-Editor>
* Indices
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
* Relação UGM e categoria animal
#+Caption: UGM de referência de acordo com a categoria animal
#+NAME: Tab1
| Cataegoria animal | UGM | abrev |
|-----------------------+------+-------|
| Vacas em lactação | 1 | vaca |
| Vacas secas | 1 | vase |
| Bezerras até 12 meses | 0.25 | Beze |
| Novilhas até 18 meses | 0.50 | No18 |
| Novilhas até 24 meses | 0.75 | No24 |
| Outros | 1 | Outr |
|-----------------------+------+-------|
Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 kg de peso vivo. Desta forma, pode ser necessário ajustar as UGMs e acordo com o peso dos animais de cada fazenda.
* Composição do Rebanho
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*.
Os dados da tabela 2 refletem a composição de um rebanho com finalidade de produção de leite, considerando um manejo reprodutivo e de alimentação excelentes.
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
#+NAME: C_ideal
| | Categoria de animais | Cabeças | %cab% | UGM | %UGM |
|---+-----------------------+---------+-------+------+-------|
| # | Vacas em lactação | 10 | 47.6 | 10 | 60.6 |
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
| # | Bezerras ate 12 meses | 3 | 14.3 | 0.75 | 4.5 |
| # | Novilhas até 18 meses | 3 | 14.3 | 1.5 | 9.1 |
| # | Novilhas até 24 meses | 3 | 14.3 | 2.25 | 13.6 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 21 | 100.0 | 16.5 | 100.0 |
| ^ | | Tcab | | Tugm | |
|---+-----------------------+---------+-------+------+-------|
#+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.
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.
* Tabela inicial, com o dimensionamento atual e previsão 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 <Tab0>.
#+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/vaca/ano | 1 | 1 | 1 | 1 | 1 | 1 | |
| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Vacas Existentes | 20 | - | - | - | - | - | - a calcular |
| ^ | | VE1 | | | | | | |
| | Novilhas exist. | 05 | - | - | - | - | - | - a calcular |
| ^ | | NE1 | | | | | | |
| | Bezerras existentes | 0 | - | - | - | - | - | - a calcular |
| ^ | | TE1 | | | | | | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Novilhas >- vacas | 0 | 0 | 0 | 0 | 0 | 0 | NÃO ALTERAR |
| ^ | | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | |
| | % Bezerras -> novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | % S_Nascidos |
| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Vacas a vender | 0 | 0 | 0 | 3 | 14 | 9 | |
| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |
| | Novilhas a vender | 0 | 0 | 0 | 0 | 7 | 8 | |
| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |
| | Bezerras a vender | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Vacas a comprar | 0 | 0 | 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 | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
Com a evolução estimada através dos indicadores:
. 1 parto por vaca por ano;
. Primeiro parto aos 18 meses
. Descarte de 25% das vacas a partir do 3º ano
. Capacidade de suporte para 40 vacas
. Aproveitamento de 40% dos nascidos para repsição
Temos o seguinte:
>> Iniciamos com 20 vacas
>> Compramos 5 novilhas cobertas
>> No segundo ano serão compradas 2 novilhas
* Composição anual do rebanho da fazenda
** Ano 1
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | NOVILHAS 12<>24 | 5 | 0 | 2 | 0 | 7 | 0 | 7 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | 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):: $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 4 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.
** Ano 2
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 7 | 8 | 0 | 0 | 15 | 15 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | 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 |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_1, $EFV)::$TRV=remote(Tab3_1, $TCN)::$COV=remote(Tab0,$VC2)::$VEV=remote(Tab0, $VV2)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_1, $EFN)::$TRN=remote(Tab3_1, $TCB)::$CON=remote(Tab0,$NC2)::$VEN=remote(Tab0, $NV2)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_1, $EFB)::$FRB=$EFV*remote(Tab0, $BA2);%.0f::$COB=remote(Tab0,$BC2)::$VEB=remote(Tab0,$BV2)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
Comentários sobre tabela 5
** Ano 3
Na tabela 3.3 podemos observar...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
#+NAME: Tab3_3
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 15 | 0 | 0 | 35 | 0 | 35 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 14 | 0 | 0 | 14 | 14 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_2, $EFV)::$TRV=remote(Tab3_2, $TCN)::$COV=remote(Tab0,$VC3)::$VEV=remote(Tab0, $VV3)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_2, $EFN)::$TRN=remote(Tab3_2, $TCB)::$CON=remote(Tab0,$NC3)::$VEN=remote(Tab0, $NV3)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_2, $EFB)::$FRB=$EFV*remote(Tab0, $BA3);%.0f::$COB=remote(Tab0,$BC3)::$VEB=remote(Tab0,$BV3)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
Comentários sobre a tabela 6
** Ano 4
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 35 | 8 | 0 | 3 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 14 | 0 | 0 | 14 | 14 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_3, $EFV)::$TRV=remote(Tab3_3, $TCN)::$COV=remote(Tab0,$VC4)::$VEV=remote(Tab0, $VV4)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_3, $EFN)::$TRN=remote(Tab3_3, $TCB)::$CON=remote(Tab0,$NC4)::$VEN=remote(Tab0, $NV4)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_3, $EFB)::$FRB=$EFV*remote(Tab0, $BA4);%.0f::$COB=remote(Tab0,$BC4)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
Comentários da tabela 7
** Ano 5
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
:PROPERTIES:
:TABLE_EXPORT_FILE: Documents/Tabela 3.5.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 40 | 14 | 0 | 14 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 16 | 0 | 7 | 9 | 9 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 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
Comentários da tabela 8
** Ano 6
e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
#+name:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 40 | 9 | 0 | 9 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 16 | 0 | 8 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 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
* Resumo da evolução
Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda.
Tabela com os dados resumidos referente aos animais existentes anualmente
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
** Entradas e saídas
| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Novilhas entradas | 2 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras entradas | 0 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Total entradas | 2 | 0 | 0 | 0 | 2 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas | 0 | 0 | 0 | 3 | 14 | 9 |
| # | Novilhas saídas | 0 | 0 | 0 | 0 | 7 | 8 |
| # | Terneiras saídas | 0 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas | 0 | 0 | 0 | 3 | 14 | 17 |
|---+--------------------+------+------+------+------+------+------|
| | | | | | | | |
#+TBLFM:@2$3=remote(Tab3_1, $COV)::@2$4=remote(Tab3_2, $COV)::@2$5=remote(Tab3_3, $COV)::@2$6=remote(Tab3_4, $COV)::@2$7=remote(Tab3_5, $COV)::@2$8=remote(Tab3_6, $COV)::@3$3=remote(Tab3_1, $CON)::@3$4=remote(Tab3_2, $CON)::@3$5=remote(Tab3_3, $CON)::@3$6=remote(Tab3_4, $CON)::@3$7=remote(Tab3_5, $CON)::@3$8=remote(Tab3_6, $CON)::@4$3=remote(Tab3_1, $COB)::@4$4=remote(Tab3_2, $COB)::@4$5=remote(Tab3_3, $COB)::@4$6=remote(Tab3_4, $COB)::@4$7=remote(Tab3_5, $COB)::@4$8=remote(Tab3_6, $COB)::@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::@6$3=remote(Tab3_1, $VEV)::@6$4=remote(Tab3_2, $VEV)::@6$5=remote(Tab3_3, $VEV)::@6$6=remote(Tab3_4, $VEV)::@6$7=remote(Tab3_5, $VEV)::@6$8=remote(Tab3_6, $VEV)::@7$3=remote(Tab3_1, $VEN)::@7$4=remote(Tab3_2, $VEN)::@7$5=remote(Tab3_3, $VEN)::@7$6=remote(Tab3_4, $VEN)::@7$7=remote(Tab3_5, $VEN)::@7$8=remote(Tab3_6, $VEN)::@8$3=remote(Tab3_1, $VEB)::@8$4=remote(Tab3_2, $VEB)::@8$5=remote(Tab3_3, $VEB)::@8$6=remote(Tab3_4, $VEB)::@8$7=remote(Tab3_5, $VEB)::@8$8=remote(Tab3_6, $VEB)::@9$3=@6$3+@7$3+@8$3::@9$4=@6$4+@7$4+@8$4::@9$5=@6$5+@7$5+@8$5::@9$6=@6$6+@7$6+@8$6::@9$7=@6$7+@7$3+@8$7::@9$8=@6$8+@7$8+@8$8
** Animais existentes
#+NAME:TABELA4
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: Documents/Tabela4.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+------+------+------+------|
| # | Vacas | 20 | 20 | 35 | 40 | 40 | 40 |
| # | Novilhas | 7 | 15 | 8 | 14 | 9 | 8 |
| # | Terneiras | 8 | 8 | 14 | 16 | 16 | 16 |
|---+-----------+------+------+------+------+------+------|
| # | Total | 35 | 43 | 57 | 70 | 63 | 64 |
| # | | | | | | | |
#+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
library (data.table)
library(tidyr)
library(dplyr)
library (ggplot2)
#+END_src
#+BEGIN_src R
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(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
*** Gráfico da evolução do rebanho
** Gráfico 1
#+header: :width 8 :height 8 :family Times
#+begin_src R :file ..fig/evol1.png :results file graphics
Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
geom_line (aes(color=Categoria))+
geom_point(aes(color=Categoria))
Evoluc
#+end_src
#+RESULTS:
[[file:..fig/Evol1.png]]
* TODO - Resolver exportação figura no arquivo html
** Animais vendidos
| # | Vacas vendidas | | | | | | | | | | | | | | | |
| # | Novilhas vendidas | | | | | | | | | | | | | | | |
| # | Terneiras vendidas | | | | | | | | | | | | | | |
* Figuras (só para testar)
Exemplo 2
#+caption:Vacas com água, pasto e sombra.
#+ATTR_HTML:width 300 px :align center :title Action!
[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851]]
Exemplo 3 -
#+begin_export html
<div id="subtittle" style="float: center; text-aling:center;">
<p>
<font size="1"> Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.</font>
</p>
<p>
<a href="http://multifarm.top">
<img src= "[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848]]" width = "250"/>
</a>
</p>
</div>
#+end_export>
#+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]]

6
README
View File

@ -1 +1,5 @@
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.

1
Tab0 Normal file
View File

@ -0,0 +1 @@
e

7
data/Tabela4.csv
View File

@ -1,4 +1,5 @@
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,25,40,48,61,68
Novilhas,7,15,11,16,12,17
Terneiras,8,11,16,19,24,27
Total,35,51,67,83,92,112

1 Ano 2004 2005 2006 2007 2008 2009
2 Vacas 20 25 38 40 46 48 58 61 64 68
3 Novilhas 8 7 13 15 11 15 16 11 12 16 17
4 Terneiras 10 8 11 15 16 18 19 23 24 26 27
5 Total 35 51 67 83 92 112

1337
script/Evolucao.html Normal file
View File

File diff suppressed because it is too large Load Diff