From 1d4d4f85c4c393bc25617ef4ace002ef44f469bb Mon Sep 17 00:00:00 2001 From: Adenor Date: Wed, 20 Sep 2023 21:09:04 -0300 Subject: [PATCH] para discutir na reuniao --- Evolucao.html | 1531 ++++++++++++++++++++++++++++++++++++++++++++++ Evolucao.org | 317 ++++++++++ README | 1 + data/Tabela4.csv | 4 + 4 files changed, 1853 insertions(+) create mode 100644 Evolucao.html create mode 100644 Evolucao.org create mode 100644 README create mode 100644 data/Tabela4.csv diff --git a/Evolucao.html b/Evolucao.html new file mode 100644 index 0000000..78b3eee --- /dev/null +++ b/Evolucao.html @@ -0,0 +1,1531 @@ + + + + + + + +Evolução de rebanho leiteiro em PRV + + + + + +
+

Evolução de rebanho leiteiro em PRV

+ +

+#+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 +

+ +
+

1. Indices

+
+

+IP = intervalo entre partos (12 meses) (setq IP "12") +

+ +

+PP = primeiro parto (24 meses) (setq PP "24") +

+ +

+PL = Período de lactação (10 meses)(setq PL "10") +'CL = capacidade de lotação (20UGM) (setq CL "20") +'IndMor = Indice de mortalidade de bezerras +'IRP = índice de renovação do plantel - substituição de vacas velhas ou ruins +

+ + +

+Comnpisição ideal em número de animais por categoria: +

+ + + +++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 1: UGM de referência de acordo com a categoria animal
Cataegoria animalUGMabrev
Vacas em lactação1vaca
Vacas secas1vase
Bezerras até 12 meses0.25Beze
Novilhas até 18 meses0.50No18
Novilhas até 24 meses0.75No24
Outros1Outr
+ +

+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. +

+ + + + +++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 2: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
Categoria de animaisCabeças%cab%UGM%UGM
Vacas em lactação1047.61060.6
Vacas secas29.5212.1
Bezerras ate 12 meses314.30.754.5
Novilhas até 18 meses314.31.59.1
Novilhas até 24 meses314.32.2513.6
Outros animais 0.000.0
Total21100.016.5100.0
+ + +

+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. +

+
+ + + +
+

1.1. 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>. +

+ + + +++ ++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 3: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
Constanteano 1ano 2ano 3ano 4ano 5ano ..observação 
Partos por vaca ano111111  
Vacas Existentes20------ a calcular 
Novilhas (12 a 24) existentes05------ a calcular 
Bezerras existentes0------ a calcular 
Novilhas para vacas005577  
% Bezerras para novilhas0.40.40.40.40.40.4com base no total de nascidos 
Vacas a vender000335  
Novilhas a vender (Num)000077  
Bezerras a vender001111  
Vacas a comprar050000  
Novilhas a comprar200000  
Bezerras a compras111111  
+ +

+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 +>> No segundo ano serão compradas 2 novilhas +

+ + + + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 4: Composição do rebanho na fazenda VITRUVIO (ANO 1)
CategoriaExttAntTIRCompraVendaSaldoTICExttFin
VACAS >242000020020
NOVILHAS 12<>241520803
BEZERRAS <12280010100
Outros 000 00
+

+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. +

+ + + + + + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 5: Composição do rebanho na fazenda VITRUVIO (ANO 2)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >242005025025
Novilhas 12<>243100013130
Bezerras <120101011110
outros1   1 1
+
+
+ +
+

1.2. Comentários sobre tabela acima

+
+

+Na tabela 3.3 podemos observar… +

+ + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 6: Composição do rebanho na fazenda VITRUVIO (ANO 3)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >2425130038038
Novilhas 12<>240110011110
Bezerras <120151115150
outros1   1 1
+
+
+ +
+

1.3. Comentários da tabela acima

+
+

+Na tabela 3.4 … +

+ + + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 7: Composição do rebanho na fazenda VITRUVIO (ANO 4)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >2438110346046
Novilhas 12<>240150015150
Bezerras <120181118180
outros1   1 1
+
+
+ +
+

1.4. Comentários da tabela acima

+
+

+na tabela 3.5 +

+ + +

+:TABLEEXPORTFILE: Documents/Tabela 3.5.csv +:TABLEEXPORTFORMAT: orgtbl-to-csv +

+ + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >2446150358058
Novilhas 12<>240180711110
Bezerras <120231123230
outros1   1 1
+ +

+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. +

+ + + + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 8: Composição do rebanho na fazenda VITRUVIO (ANO 6)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >2458110564064
Novilhas 12<>240230716160
Bezerras <120261126260
outros1   1 1
+
+
+
+ + + +
+

2. 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. +

+
+ +
+

2.1. 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. +

+ +

+:TABLEEXPORTFILE: Documents/Tabela4.csv +:TABLEEXPORTFORMAT: orgtbl-to-csv +

+ + + +++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Ano200420052006200720082009
Vacas202538465864
Novilhas81311151116
Terneiras101115182326
+
+
+
+ +
+

3. 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.>>

+
+
+
+

3.0.1. Importação dos dados dos animais existentes

+
+
+
getwd()
+  library (data.table)
+  Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
+#  str(Evol_exist)
+#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)
+
+
+
+
+ + +
+

3.0.2. Gráfico da evolução do rebanho

+
+ +
+

3.1. Gráfico 1

+
+

+#+BEGINsrc R +library (ggplot2) +

+ +

+ggplot(Evolexist1, +aes(x as.numeric(variable)))+ +geom_line ( aes (y = Vacas),col"red")+ +geomline (aes(y=Novilhas), col="blue")+ +geomline (aes(y=Terneiras), col="green") +

+ +

+ENDsrc +

+
+
+
+ +
+

4. TODO - Resolver exportação figura no arquivo html

+
+
+
+

4.1. Animais comprados

+
+ + + +++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Vacas compradas               
Novilhas compradas      as        
Terneiras compradas               
+
+
+ + + +
+

4.2. Animais vendidos

+
+ + + +++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Vacas vendidas               
Novilhas vendidas               
Terneiras vendidas              
+
+
+
+ + + +
+
+

Date: 08-31-2023

+

Author: Adenor Wendling

+

Created: 2023-09-20 qua 14:59

+

Validate

+
+ + diff --git a/Evolucao.org b/Evolucao.org new file mode 100644 index 0000000..a75d02e --- /dev/null +++ b/Evolucao.org @@ -0,0 +1,317 @@ +#+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 + + +#+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 +e + +* Indices +IP = intervalo entre partos (12 meses) (setq IP "12") + +PP = primeiro parto (24 meses) (setq PP "24") + +PL = Período de lactação (10 meses)(setq PL "10") +'CL = capacidade de lotação (20UGM) (setq CL "20") +'IndMor = Indice de mortalidade de bezerras +'IRP = índice de renovação do plantel - substituição de vacas velhas ou ruins + + +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 + + +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 . +#+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 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| + +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 +>> No segundo ano serão compradas 2 novilhas + + +#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1) +#+NAME: Tab3_1 +| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | +| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | +| # | NOVILHAS 12<>24 | 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 + +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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | 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 | +| ^ | | 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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | 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 | +| ^ | | 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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | 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 | +| ^ | | 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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | 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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +#+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 | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +| # | 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 | +| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | +| # | outros | 1 | | | | 1 | | 1 | +| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | +|---+-----------------+---------+-----+--------+-------+-------+-----+---------| +#+TBLFM: $EAV=remote(Tab3_5, $EFV)::$TRV=remote(Tab3_5, $TCN)::$COV=remote(Tab0,$VC6)::$VEV=remote(Tab0, $VV6)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_5, $EFN)::$TRN=remote(Tab3_5, $TCB)::$CON=remote(Tab0,$NC6)::$VEN=remote(Tab0, $NV6)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_5, $EFB)::$FRB=$EFV*remote(Tab0, $BA6);%.0f::$COB=remote(Tab0,$BC6)::$VEB=remote(Tab0,$BV6)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB + + + +* Resumo da evolução +Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda. + +** Tabela com os dados resumidos referente aos animais existentes anualmente +Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados. + +#+NAME:TABELA4 +#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto +:PROPERTIES: +:TABLE_EXPORT_FILE: Documents/Tabela4.csv +:TABLE_EXPORT_FORMAT: orgtbl-to-csv +:END: +| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | +|---+-----------+------+------+------+------+------+------| +| # | Vacas | 20 | 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) + +* 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 +getwd() + library (data.table) + Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) +# str(Evol_exist) +#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) +#+END_src + + +*** Gráfico da evolução do rebanho + +** Gráfico 1 +#+header: :width 8 :height 8 :family Times +#+BEGIN_src R +library (ggplot2) + +ggplot(Evol_exist1, +aes(x =as.numeric(variable)))+ +geom_line ( aes (y = Vacas),col="red")+ +geom_line (aes(y=Novilhas), col="blue")+ +geom_line (aes(y=Terneiras), col="green") + +END_src + +* 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 | | | | | | | | | | | | | | | + + +* 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 - +#+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]] diff --git a/README b/README new file mode 100644 index 0000000..58d5f34 --- /dev/null +++ b/README @@ -0,0 +1 @@ +Campos_rebanho diff --git a/data/Tabela4.csv b/data/Tabela4.csv new file mode 100644 index 0000000..5c0dc52 --- /dev/null +++ b/data/Tabela4.csv @@ -0,0 +1,4 @@ +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