From 7762cf07af5af438f62609c66d0acf7cad224ff0 Mon Sep 17 00:00:00 2001 From: Adenor Date: Fri, 27 Oct 2023 14:05:26 -0300 Subject: [PATCH] atualizando --- data/ResumoEvolucaoVitruvio.csv | 9 +++-- data/composicao.csv | 14 ++++---- script/EvolucaoVitruvio.org | 59 +++++++++++++++++++++------------ 3 files changed, 48 insertions(+), 34 deletions(-) diff --git a/data/ResumoEvolucaoVitruvio.csv b/data/ResumoEvolucaoVitruvio.csv index 70ea236..5d106d2 100644 --- a/data/ResumoEvolucaoVitruvio.csv +++ b/data/ResumoEvolucaoVitruvio.csv @@ -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. diff --git a/data/composicao.csv b/data/composicao.csv index 191374f..676c04c 100644 --- a/data/composicao.csv +++ b/data/composicao.csv @@ -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 diff --git a/script/EvolucaoVitruvio.org b/script/EvolucaoVitruvio.org index bba7071..a354f72 100644 --- a/script/EvolucaoVitruvio.org +++ b/script/EvolucaoVitruvio.org @@ -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)