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

atualizando

Browse Source
This commit is contained in:
Adenor Vicente Wendling
2023-10-27 14:05:26 -03:00
parent 01dc588bfe
commit 7762cf07af
3 changed files with 48 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
data/ResumoEvolucaoVitruvio.csv
View File

@ -1,7 +1,6 @@
Categoria,2023,2024,2025,2026,2027,2028
Vacas,0,20,20,24,25,26
Novilhas,20,0,4,4,3,4
Terneiras,0,4,4,3,4,3
T_cab,20,24,28,31,32,33
T_UGMs,15.,21.,24.,27.75,28.25,29.75
,,,,,,
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 3 4 4
4 Terneiras 0 4 4 3 4 4 3 4
5 T_cab 20 24 28 31 32 32 33 33 34
6 T_UGMs 15. 21. 24. 27.75 28. 28.25 29. 29.75 30.

14
data/composicao.csv
View File

@ -1,8 +1,8 @@
Categoria de animais,Cabeças,%cab%,UGM,%UGM
Vacas em lactação,20,60.6,20,75.0
Vacas secas,2,6.7,2,7.8
Bezerras ate 12 meses,4,13.3,1.,3.9
Novilhas até 18 meses,2,6.7,1.,3.9
Novilhas até 24 meses,2,6.7,1.5,5.9
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,30,100.0,25.5,100.0
Total,34,100.0,29.5,100.0

1 Categoria de animais Cabeças Cabeças (N) %cab% Cabeças (%) UGM UGM (N) %UGM UGM (%)
2 Vacas em lactação 20 24 60.6 66.7 20 24 75.0 82.5
3 Vacas secas 2 2 6.7 5.9 2 2 7.8 6.8
4 Bezerras ate 12 meses 4 4 13.3 11.8 1. 1. 3.9 3.4
5 Novilhas até 18 meses 2 2 6.7 5.9 1. 1. 3.9 3.4
6 Novilhas até 24 meses 2 2 6.7 5.9 1.5 1.5 5.9 5.1
7 Outros animais 0.0 0.0 0 0 0.0 0.0
8 Total 30 34 100.0 100.0 25.5 29.5 100.0 100.0

59
script/EvolucaoVitruvio.org
View File

@ -22,6 +22,20 @@ O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas
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
@ -30,13 +44,13 @@ O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas
#+NAME: C_ideal
| | Categoria de animais | Cabeças (N) | Cabeças (%) | UGM (N) | UGM (%) |
|---+-----------------------+-------------+-------------+---------+---------|
| # | Vacas em lactação | 20 | 60.6 | 20 | 75.0 |
| # | Vacas secas | 2 | 6.7 | 2 | 7.8 |
| # | Bezerras ate 12 meses | 4 | 13.3 | 1. | 3.9 |
| # | Novilhas até 18 meses | 2 | 6.7 | 1. | 3.9 |
| # | Novilhas até 24 meses | 2 | 6.7 | 1.5 | 5.9 |
| # | 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 | 30 | 100.0 | 25.5 | 100.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
@ -65,11 +79,11 @@ O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas
| | % 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 | 2 | |
| | 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 | 14 | 15 | |
| | Bezerras a vender | 0 | 4 | 11 | 14 | 13 | 14 | |
| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | |
@ -148,11 +162,12 @@ Na tabela 3.3 podemos observar...
| ^ | | 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 | 14 | 3 | 3 | 0 |
| # | 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
@ -164,7 +179,7 @@ Na tabela 3.3 podemos observar...
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 24 | 4 | 0 | 3 | 25 | 0 | 25 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 3 | 0 | 0 | 3 | 3 | 0 |
| # | 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 |
@ -172,7 +187,7 @@ Na tabela 3.3 podemos observar...
| ^ | | 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
#+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
@ -184,11 +199,11 @@ Na tabela 3.3 podemos observar...
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 25 | 3 | 0 | 2 | 26 | 0 | 26 |
| # | 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 | 15 | 3 | 3 | 0 |
| # | 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 |
@ -205,14 +220,14 @@ Na tabela 3.3 podemos observar...
: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 | 3 | 4 |
| # | Terneiras | 0 | 4 | 4 | 3 | 4 | 3 |
|---+-----------+------+------+------+-------+-------+-------|
| # | T_cab | 20 | 24 | 28 | 31 | 32 | 33 |
| # | T_UGMs | 15. | 21. | 24. | 27.75 | 28.25 | 29.75 |
| | 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))
@ -337,7 +352,7 @@ O estabelecimento não possui animais, sendo que o início da atividade se dará
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. Composição Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
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)