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

Compare commits

base: adenor:2a5dedad37537a5add8e5c5c741e298c6956bf36
Branches Tags
adenor:main
...
compare: adenor:main
Branches Tags
adenor:main

18 Commits
2a5dedad37 ... main

Author SHA1 Message Date
Adenor
7762cf07af atualizando 2023-10-27 14:05:26 -03:00
Adenor
01dc588bfe Exclui os arquivos no /doc, pois incluí o conteúdo no script EvolucaoVitruvio.org 2023-10-27 10:22:32 -03:00
Adenor
d9f63f6f0d fiz adequações no Evolucao, conforme acordado na reunião de ontem 2023-10-27 10:17:13 -03:00
Jose
9faf731500 Ajustes de estilo no texto - remover arquivo tmp 2023-10-25 11:50:34 -03:00
Jose
02bf9cfb8a Reordenar scripts e documentos #2 2023-10-25 11:49:55 -03:00
Jose
5ef8d9e08a Adicionar README.org e .gitignore closes #1 2023-10-25 11:34:51 -03:00
Adenor
c741359a35 Inclui arquivo para o texto e fiz correções nos cálculos 2023-10-24 14:21:10 -03:00
Adenor
6cfa773444 envio com inclusão da linha de ugms, mas falta resolver a inclusão da linha e outras coisas. 2023-10-22 10:56:19 -03:00
Adenor
7a544c3c93 Funcionando 2023-09-28 15:25:12 -03:00
Adenor
ad7eec5891 Alterações para figura e files 2023-09-28 14:39:10 -03:00
Adenor
9254d1d9ee Alterações para figura e files 2023-09-28 13:49:41 -03:00
Adenor
8f17794017 alteração cabeçalhos 2023-09-28 13:03:09 -03:00
Adenor
9b62eba8f4 corrigindo erros 2023-09-28 12:03:14 -03:00
Adenor
fc66c83bf0 Finaliza 2023-09-28 11:52:44 -03:00
Adenor
6c21db8cf1 atualização 2023-09-28 10:34:56 -03:00
Adenor
e0a5a183c8 atualização 2023-09-27 11:01:48 -03:00
Adenor
2426b753c9 Atualizando 2023-09-27 09:03:19 -03:00
Adenor
c4ea3aa128 Alterações no evolução e na estrutura dos arquivos. 2023-09-27 08:43:26 -03:00
14 changed files with 1913 additions and 2022 deletions
Expand all files Collapse all files

120
.gitignore vendored Normal file
View File

@ -0,0 +1,120 @@
# ---> Emacs
# -*- mode: gitignore; -*-
*~
\#*\#
/.emacs.desktop
/.emacs.desktop.lock
*.elc
auto-save-list
tramp
.\#*
# Org-mode
.org-id-locations
*_archive
# flymake-mode
*_flymake.*
# eshell files
/eshell/history
/eshell/lastdir
# elpa packages
/elpa/
# reftex files
*.rel
# AUCTeX auto folder
/auto/
# cask packages
.cask/
dist/
# Flycheck
flycheck_*.el
# server auth directory
/server/
# projectiles files
.projectile
# directory configuration
.dir-locals.el
# network security
/network-security.data
# ---> R
# History files
.Rhistory
.Rapp.history
# Session Data files
.RData
.RDataTmp
# User-specific files
.Ruserdata
# Example code in package build process
*-Ex.R
# Output files from R CMD build
/*.tar.gz
# Output files from R CMD check
/*.Rcheck/
# RStudio files
.Rproj.user/
# produced vignettes
vignettes/*.html
vignettes/*.pdf
# OAuth2 token, see https://github.com/hadley/httr/releases/tag/v0.3
.httr-oauth
# knitr and R markdown default cache directories
*_cache/
/cache/
# Temporary files created by R markdown
*.utf8.md
*.knit.md
# R Environment Variables
.Renviron
# pkgdown site
docs/
# translation temp files
po/*~
# RStudio Connect folder
rsconnect/
# local directory
local
# Office
*.odt
*.ods
*.docx
*.doc
*.xlsx
# images
*.png
*.jpg
*.jpeg
# html
*.html

1531
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)

1335
EvolucaoVitruvio.html Normal file
View File

File diff suppressed because it is too large Load Diff

1
README
View File

@ -1 +0,0 @@
Campos_rebanho

36
README.org Normal file
View File

@ -0,0 +1,36 @@
* Composição do rebanho
Este repositório, da multifarm, terá como função a elaboração de uma estimativa de evolução do rebanho.
Inicialmente, o arquivo [[./script/EvolucaoVitruvio.org][EvolucaoVitruvio.org]] tem as configurações para bovinos de leite.
** Scripts
* [[./script/EvolucaoVitruvio.org][Evolução Vitruvio - arquivo org]]
* [[./script/EvolucaoVitruvio.R][Evolução Vitruvio - arquivo R script]]
Os arquivos ".org" podem ser transformados usando Emacs (tecla ALT + x):
: M-x
Depois, usar a função para exportar arquivos "org" para html:
: org-html-export-to-html
Os scripts de R podem ser exportados como html usando [[https://rmarkdown.rstudio.com/][rmkardown]]. No console do R usar:
#+begin_example R
rmarkdown::render("NameOfFile.R")
#+end_example
** Dados
Diretório com dados usados nas análises
** Documentos
* [[./doc/EvolucaoTexto.org][Texto informe evolução rebanho]]
** TODO [#A] Criar um script para gado de corte
Deverá ser criado outro script para bovinos de corte, tanto para sistemas de recria, quanto para ciclo completo ou terminação.

11
data/ResumoEntraSaiVitruvio.csv Normal file
View File

@ -0,0 +1,11 @@
Categoria,2023,2024,2025,2026,2027,2028
Vacas entradas,0,0,0,0,0,0
Novilhas entradas,20,0,0,0,0,0
Terneiras entradas,0,0,0,0,0,0
Total entradas,20,0,0,0,0,0
Vacas saídas,0,0,0,0,3,2
Novilhas saídas,0,0,0,0,0,0
Terneiras saídas,0,4,11,14,14,15
Total saídas,0,4,11,14,17,17
,,,,,,
,,,,,,
1 Categoria 2023 2024 2025 2026 2027 2028
2 Vacas entradas 0 0 0 0 0 0
3 Novilhas entradas 20 0 0 0 0 0
4 Terneiras entradas 0 0 0 0 0 0
5 Total entradas 20 0 0 0 0 0
6 Vacas saídas 0 0 0 0 3 2
7 Novilhas saídas 0 0 0 0 0 0
8 Terneiras saídas 0 4 11 14 14 15
9 Total saídas 0 4 11 14 17 17
10
11

9
data/ResumoEntraSaiVitruvio.csv~ Normal file
View File

@ -0,0 +1,9 @@
Categoria,2004,2005,2006,2007,2008,2009
Vacas entradas,0,0,0,0,0,0
Novilhas entradas,20,0,0,0,0,0
Terneiras entradas,0,0,0,0,0,0
Total entradas,20,0,0,0,0,0
Vacas saídas,0,0,0,0,5,4
Novilhas saídas,0,0,0,0,0,0
Terneiras saídas,0,4,10,12,12,14
Total saídas,0,4,10,12,17,18

6
data/ResumoEvolucaoVitruvio.csv Normal file
View File

@ -0,0 +1,6 @@
Categoria,2023,2024,2025,2026,2027,2028
Vacas,0,20,20,24,25,26
Novilhas,20,0,4,4,4,4
Terneiras,0,4,4,4,4,4
T_cab,20,24,28,32,33,34
T_UGMs,15.,21.,24.,28.,29.,30.
1 Categoria 2023 2024 2025 2026 2027 2028
2 Vacas 0 20 20 24 25 26
3 Novilhas 20 0 4 4 4 4
4 Terneiras 0 4 4 4 4 4
5 T_cab 20 24 28 32 33 34
6 T_UGMs 15. 21. 24. 28. 29. 30.

7
data/ResumoEvolucaoVitruvio.csv~ Normal file
View File

@ -0,0 +1,7 @@
Categ,2004,2005,2006,2007,2008,2009
Vacas,0,20,20,24,24,25
Novilhas,20,0,4,5,5,5
Terneiras,0,4,5,5,5,4
T_cab,20,24,29,34,34,34
T_UGMs,20.,21.,25.25,30.5,31.5,31.75
,,,,,,

4
data/Tabela4.csv
View File

@ -1,4 +0,0 @@
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
1 Ano 2004 2005 2006 2007 2008 2009
2 Vacas 20 25 38 46 58 64
3 Novilhas 8 13 11 15 11 16
4 Terneiras 10 11 15 18 23 26

8
data/composicao.csv Normal file
View File

@ -0,0 +1,8 @@
Categoria de animais,Cabeças (N),Cabeças (%),UGM (N),UGM (%)
Vacas em lactação,24,66.7,24,82.5
Vacas secas,2,5.9,2,6.8
Bezerras ate 12 meses,4,11.8,1.,3.4
Novilhas até 18 meses,2,5.9,1.,3.4
Novilhas até 24 meses,2,5.9,1.5,5.1
Outros animais,,0.0,0,0.0
Total,34,100.0,29.5,100.0
1 Categoria de animais Cabeças (N) Cabeças (%) UGM (N) UGM (%)
2 Vacas em lactação 24 66.7 24 82.5
3 Vacas secas 2 5.9 2 6.8
4 Bezerras ate 12 meses 4 11.8 1. 3.4
5 Novilhas até 18 meses 2 5.9 1. 3.4
6 Novilhas até 24 meses 2 5.9 1.5 5.1
7 Outros animais 0.0 0 0.0
8 Total 34 100.0 29.5 100.0

BIN
fig/Evoluc1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

381
script/EvolucaoVitruvio.org Normal file
View File

@ -0,0 +1,381 @@
#+Title:Evolução de rebanho leiteiro em PRV
#+AUTHOR: Adenor Wendling, José Brann e Ana Laura Carille
#+DATE: 08-31-2023
#+OPTIONS: creator:nil timestamp:nil
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
#+PROPERTY: header-args:R+ :exports both
#+SLUG: orgmode-excel
#+TAGS: tabelas, org-mode, composição ideal
#+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>
O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas e fórmulas que devem ser usadas para efetuar as projeções da evolução. A segunda parte *Texto sugestão* contém uma sugestão de texto para ser inserido no *projeto*. Este texto deverá ser transferido, e finalizado na wiki ou no documento final.
* O SCRIPT
#+begin_src R :exports none
library(data.table)
library(dplyr)
library(flextable)
library(tidyr)
#+end_src
Comnpisição ideal em número de animais por categoria:
#+Caption: Tabela 1 - UGM de referência de acordo com a categoria animal
#+NAME: Tab1
| Cataegoria animal | UGM |
|-----------------------+------|
| Vacas em lactação | 1 |
| Vacas secas | 1 |
| Bezerras até 12 meses | 0.25 |
| Novilhas até 18 meses | 0.50 |
| Novilhas até 24 meses | 0.75 |
| Outros | 1 |
#+Caption:Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/composicao.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
#+NAME: C_ideal
| | Categoria de animais | Cabeças (N) | Cabeças (%) | UGM (N) | UGM (%) |
|---+-----------------------+-------------+-------------+---------+---------|
| # | Vacas em lactação | 24 | 66.7 | 24 | 82.5 |
| # | Vacas secas | 2 | 5.9 | 2 | 6.8 |
| # | Bezerras ate 12 meses | 4 | 11.8 | 1. | 3.4 |
| # | Novilhas até 18 meses | 2 | 5.9 | 1. | 3.4 |
| # | Novilhas até 24 meses | 2 | 5.9 | 1.5 | 5.1 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 34 | 100.0 | 29.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
** área de Planejamento
*** 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 | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 | observação |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Partos/vaca/ano | 1 | 1 | 1 | 1 | 1 | 1 | |
| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas Existentes | 00 | - | - | - | - | - | - a calcular |
| ^ | | VE1 | | | | | | |
| | Novilhas exist. | 00 | - | - | - | - | - | - 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.75 | 0.7 | 0.7 | 0.7 | % S_Nascidos |
| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas a vender | 0 | 0 | 0 | 0 | 3 | 3 | |
| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |
| | Novilhas a vender | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |
| | Bezerras a vender | 0 | 4 | 11 | 14 | 13 | 14 | |
| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | |
| | Novilhas a comprar | 20 | 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 | |
|---+------------------------+------+------+------+------+------+------+--------------|
** Área dos calculos
*** Composição anual do rebanho da fazenda
;; Estas tabelas (Tab3_1 a Tab_3-2 servem para calcular a evolução, mas não serão incluidos no relatórios final)
*** Ano 2023
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | NOVILHAS 12<>24 | 0 | 0 | 20 | 0 | 20 | 20 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | BEZERRAS <12 | 0 | 0 | 0 | 0 | 0 | 0 | 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=($EAN+$TRN+$CON-$VEV)::$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
*** Ano 2024
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 0 | 20 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 8 | 0 | 4 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | | | | | | | |
| ^ | | 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
*** Ano 2025
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 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | | | | | | | |
| ^ | | 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
*** Ano2026
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 4 | 0 | 0 | 24 | 0 | 24 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 17 | 0 | 13 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 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
*** Ano 2027
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 24 | 4 | 0 | 3 | 25 | 0 | 25 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 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
*** Ano 2028
#+NAME:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 25 | 4 | 0 | 3 | 26 | 0 | 26 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 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
** Área dos resumos dos cálculos
*** Animais existentes anualmente
#+NAME:TABELA4
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucapVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+-----------+------+------+------+------+------+------|
| # | Vacas | 0 | 20 | 20 | 24 | 25 | 26 |
| # | Novilhas | 20 | 0 | 4 | 4 | 4 | 4 |
| # | Terneiras | 0 | 4 | 4 | 4 | 4 | 4 |
|---+-----------+------+------+------+------+------+------|
| # | T_cab | 20 | 24 | 28 | 32 | 33 | 34 |
| # | T_UGMs | 15. | 21. | 24. | 28. | 29. | 30. |
#+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$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=(@2$3*remote(Tab1,@2$2)+@3$3*remote(tab1,@6$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@6$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@6$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@6$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@6$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@6$2)+@4$8*remote(tab1,@4$2))
## A TABELA5 será incluída no documento final
*** Entradas e saídas anuais de animais
#+NAME:TABELA5
#+CAPTION: Resumo das entradas e saídas de animais nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Novilhas entradas | 20 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras entradas | 0 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Total entradas | 20 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas | 0 | 0 | 0 | 0 | 3 | 2 |
| # | Novilhas saídas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras saídas | 0 | 4 | 11 | 14 | 14 | 15 |
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas | 0 | 4 | 11 | 14 | 17 | 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$7+@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
## Para exportar a tabela > M-x org-tabel-export (enter) "path" y, ,..
*** Gráfico resumo
#+NAME: Ler data.table Resumo
#+begin_src R :exports results
REV<-fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE)
REv<- REV%>%
pivot_longer (cols=c("2023", "2024", "2025", "2026", "2027", "2028"),
names_to="Ano",
values_to="Quantidade",
values_drop_na = TRUE )
REv$Ano=as.numeric(REv$Ano)
#View(REv)
#+end_src
** Gráfico para uso
#+NAME: grafico resumo
#+begin_src R :grafResum.png
library (ggplot2)
ResEvolVit<-ggplot(REv, aes(Ano,
Quantidade,
colour=Categoria))+
geom_line()
ggsave("EvolucaoRebanho.png", ResEvolVit, path="~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal", width=7, height=3, units="in")
#ResEvolVit
#+end_src
* Texto Sugestão
** Composição e evoluçã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*. Sua limitação geralmente está na capacidade de produção de alimentos na propriedade, ou ainda na capacidade de trabalho e das instalações.
Como o objetivo da presente proposta visa explorar a atividade em sistema a base de pasto, sendo que a maior parte da alimentação prevista será produzida no estabelecimento, este será considerado o fator limitante.
Da mesma forma, e evolução terá de respeitar o limite do estabelecimento, com incremento constante acompanhando as melhorias das pastagens.
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que cada UGM equivale a 500 kg de peso vivo animal. De maneira geral, estima-se a UGM de acordo com a categoria animal ao qual pertence (Tabela 1). Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
** Relação Unidade de Gado Maior (UGM) x categoria animal
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que *cada UGM equivale a 500 kg de peso vivo animal*. Estima-se a UGM de acordo com a categoria animal à qual pertence *(Tabela 1)*. Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
Tabela 1 - UGM de referência de acordo com a categoria animal.
| Cataegoria animal | UGM |
|-----------------------+------|
| Vacas em lactação | 1 |
| Vacas secas | 1 |
| Bezerras até 12 meses | 0.25 |
| Novilhas até 18 meses | 0.75 |
| Novilhas até 24 meses | 0.75 |
| Outros | 1 |
|-----------------------+------|
** Composição do Rebanho
A composição do rebanho deve ser planejada para alcançar a máxima eficiência do sistema produtivo, sem presença de animais improdutivos. Estimar com exatidão a composição é tarefa difícil, pelo número de variáveis que podem afetá-la, mas teremos como foco alcançar composição apresentada na *Tabela 2*.
Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
*** Parâmetros zootécnicos considerados para estimar a evolução do rebanho
A evolução será baseada nos índices zootécnicos da raça, sendo:
Necessidade de substituição
Fêmeas nascidas
Intervalo entre nascimento e primeiro parto
Mortalidade
Intervalo entre partos.
Venda de animais excedentes bezerros (3 meses) e vacas de descarte
Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:
Primeiro parto: 26 meses
Intervalo entre partos: 14 meses
Porcentagem de fêmeas nascidas: 80% (uso de sêmen sexado)
Mortalidade de bezerras: menor que 5%
Descarte de vacas: 10 a 15%
Para equalizar a evolução entre os animais nascidos e necessários, serão vendidos os excedentes, na maioria dos casos na categoria bezerra.
** Composição inicial
O estabelecimento não possui animais, sendo que o início da atividade se dará através da aquisição de 20 novilhas cobertas, da raça Jersey.
Nota: o critério de seleção das novilhas deve permitir que os animais incorporados estejam saudáveis e possuam potencial produtivo acorde às necessidades da Fazenda Vitruvio: animais rústicos adaptados ao pastoreio e de produção de volume de leite médio, mas persistente durante a lactação
** Evolução
Com base nos índices zootécnicos e definições técnicas de capacidade de produção de alimentos, a evolução se dará conforme consta na Tabela 3, e Figura 1.
Tabela 3. Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
#+begin_src R :exports results
#library(ascii) # exports result as org file
Evolucao <- fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE)
ft1 <- flextable(Evolucao)
ft1 <- set_caption(ft1,"Evolucao do rebanho durante os primeiros anos.")
ft1 <- width(ft1,width=1.05)
print(theme_alafoli(ft1))
#+end_src
#+RESULTS:
Também podemos observar a evolução do rebanho em formato de figura.
Figura 1. Evolução do rebanho nos primeiros anos em formato de gráfico
[[file:~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal/EvolucaoRebanho.png][link do gráfico]]
** Entradas e saídas de animais do rebanho
Os indicativos da evolução do rebanho, baseados nosíndicadores zootécnicos e manejo recomendado, oferecem a oportunidade de comercialização (venda) de animais excedentes. A opção dos proprietários deste estabelecimentos, é que os animais sejam vendidos quando ainda jovens (3 meses aproximadamente), e vacas de descarte. A quantidade de ano em que os excedentes estão previstos consta na tabela 4.
Tabela 4 - Resumo das entradas e saídas de animais nos primeiros anos do projeto
* Referências