Compare commits
18 Commits
2a5dedad37
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
| 7762cf07af | |||
| 01dc588bfe | |||
| d9f63f6f0d | |||
| 9faf731500 | |||
| 02bf9cfb8a | |||
| 5ef8d9e08a | |||
| c741359a35 | |||
| 6cfa773444 | |||
| 7a544c3c93 | |||
| ad7eec5891 | |||
| 9254d1d9ee | |||
| 8f17794017 | |||
| 9b62eba8f4 | |||
| fc66c83bf0 | |||
| 6c21db8cf1 | |||
| e0a5a183c8 | |||
| 2426b753c9 | |||
| c4ea3aa128 |
120
.gitignore
vendored
Normal file
120
.gitignore
vendored
Normal 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
1531
Evolucao.html
File diff suppressed because it is too large
Load Diff
486
Evolucao.org
486
Evolucao.org
@ -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
1335
EvolucaoVitruvio.html
Normal file
File diff suppressed because it is too large
Load Diff
36
README.org
Normal file
36
README.org
Normal 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
11
data/ResumoEntraSaiVitruvio.csv
Normal 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
|
||||
,,,,,,
|
||||
,,,,,,
|
||||
|
9
data/ResumoEntraSaiVitruvio.csv~
Normal file
9
data/ResumoEntraSaiVitruvio.csv~
Normal 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
6
data/ResumoEvolucaoVitruvio.csv
Normal 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.
|
||||
|
7
data/ResumoEvolucaoVitruvio.csv~
Normal file
7
data/ResumoEvolucaoVitruvio.csv~
Normal 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
|
||||
,,,,,,
|
||||
@ -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
|
||||
|
8
data/composicao.csv
Normal file
8
data/composicao.csv
Normal 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
|
||||
|
BIN
fig/Evoluc1.png
Normal file
BIN
fig/Evoluc1.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 20 KiB |
381
script/EvolucaoVitruvio.org
Normal file
381
script/EvolucaoVitruvio.org
Normal 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
|
||||
Reference in New Issue
Block a user