IP = intervalo entre partos (12 meses) (setq IP "12") @@ -265,16 +310,26 @@ 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:
+<<<<<<< HEAD +| - | - | - | +<<<<<<< HEAD +- na elaboração do projeto | +=======- a calcular | +>>>>>>> 1d4d4f8 (para discutir na reuniao)||||||||||
| Novilhas (12 a 24) existentes | +<<<<<<< HEAD +0 | +=======05 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)- | - | - | - | - | +<<<<<<< HEAD +- na elaboração do projeto | +=======- a calcular | +>>>>>>> 1d4d4f8 (para discutir na reuniao)- | - | - | +<<<<<<< HEAD +- na elaboração do projeto | +=======- a calcular | +>>>>>>> 1d4d4f8 (para discutir na reuniao)@@ -527,12 +617,21 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba |
| Novilhas para vacas | 0 | +<<<<<<< HEAD +5 | +0 | +0 | +0 | +0 | +- Anual | +=======0 | 5 | 5 | 7 | 7 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | 0.4 | 0.4 | 0.4 | +<<<<<<< HEAD +- base no total nascidos | +=======com base no total de nascidos | +>>>>>>> 1d4d4f8 (para discutir na reuniao)@@ -555,9 +658,15 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba | 0 | 0 | 3 | +<<<<<<< HEAD +10 | +7 | +- anual | +=======3 | 5 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | @@ -569,7 +678,11 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba | 0 | 7 | 7 | +<<<<<<< HEAD +- anual | +=======+>>>>>>> 1d4d4f8 (para discutir na reuniao) | @@ -581,7 +694,11 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba | 1 | 1 | 1 | +<<<<<<< HEAD +- anual | +=======+>>>>>>> 1d4d4f8 (para discutir na reuniao) | @@ -589,11 +706,29 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba |
| Vacas a comprar | 0 | +<<<<<<< HEAD +0 | +0 | +0 | +0 | +0 | +- anual | ++ | ||||||
| Novilhas a comprar | +======= +>>>>>>> 1d4d4f8 (para discutir na reuniao)5 | 0 | 0 | 0 | 0 | +<<<<<<< HEAD +0 | +- anual | +=======0 | 0 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | ||||
| Bezerras a compras | +<<<<<<< HEAD +0 | +0 | +0 | +0 | +0 | +0 | +-anual | +=======1 | 1 | 1 | @@ -619,6 +764,7 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba1 | 1 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) |
| NOVILHAS 12<>24 | +<<<<<<< HEAD +0 | +0 | +5 | +0 | +5 | +0 | +5 | +=======1 | 5 | 2 | @@ -690,16 +853,26 @@ Temos o seguinte:8 | 0 | 3 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)
| BEZERRAS <12 | +<<<<<<< HEAD +0 | +8 | +0 | +0 | +8 | +8 | +=======2 | 8 | 0 | 0 | 10 | 10 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 |
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.
@@ -722,7 +899,11 @@ Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencia +<<<<<<< HEAD +| VACAS >24 | 20 | 0 | +<<<<<<< HEAD +0 | +0 | +20 | +0 | +20 | +=======5 | 0 | 25 | 0 | 25 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)|
| Novilhas 12<>24 | +<<<<<<< HEAD +5 | +8 | +=======3 | 10 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | 0 | 13 | @@ -780,11 +974,19 @@ Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencia||||||
| Bezerras <12 | 0 | +<<<<<<< HEAD +8 | +0 | +0 | +8 | +8 | +=======10 | 1 | 0 | 11 | 11 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 |
| VACAS >24 | +<<<<<<< HEAD +20 | +13 | +0 | +0 | +33 | +0 | +33 | +=======25 | 13 | 0 | @@ -851,27 +1071,44 @@ Na tabela 3.3 podemos observar…38 | 0 | 38 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | +<<<<<<< HEAD +8 | +0 | +0 | +8 | +8 | +=======11 | 0 | 0 | 11 | 11 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| Bezerras <12 | 0 | +<<<<<<< HEAD +13 | +0 | +1 | +12 | +12 | +=======15 | 1 | 1 | 15 | 15 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 |
| VACAS >24 | +<<<<<<< HEAD +33 | +8 | +0 | +3 | +38 | +0 | +38 | +=======38 | 11 | 0 | @@ -939,27 +1194,44 @@ Na tabela 3.4 …46 | 0 | 46 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | +<<<<<<< HEAD +12 | +0 | +0 | +12 | +12 | +=======15 | 0 | 0 | 15 | 15 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| Bezerras <12 | 0 | +<<<<<<< HEAD +15 | +0 | +1 | +14 | +14 | +=======18 | 1 | 1 | 18 | 18 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| VACAS >24 | +<<<<<<< HEAD +38 | +12 | +0 | +10 | +40 | +0 | +40 | +=======46 | 15 | 0 | @@ -1032,27 +1318,44 @@ na tabela 3.558 | 0 | 58 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | +<<<<<<< HEAD +14 | +0 | +7 | +7 | +7 | +=======18 | 0 | 7 | 11 | 11 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| Bezerras <12 | 0 | +<<<<<<< HEAD +16 | +0 | +1 | +15 | +15 | +=======23 | 1 | 1 | 23 | 23 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | 1 | +<<<<<<< HEAD + +
| + | + | + | + | + | + | + | + |
| VACAS >24 | +<<<<<<< HEAD +40 | +7 | +0 | +7 | +40 | +0 | +40 | +=======58 | 11 | 0 | @@ -1116,27 +1446,44 @@ e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a imp64 | 0 | 64 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | +<<<<<<< HEAD +15 | +0 | +7 | +8 | +8 | +=======23 | 0 | 7 | 16 | 16 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| Bezerras <12 | 0 | +<<<<<<< HEAD +16 | +0 | +1 | +15 | +15 | +=======26 | 1 | 1 | 26 | 26 | +>>>>>>> 1d4d4f8 (para discutir na reuniao)0 | 1 | +<<<<<<< HEAD + +
| + | + | + | + | + | + | + | + |
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.
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados. @@ -1210,31 +1582,68 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
library (data.table)
+library(tidyr)
+library(dplyr)
+Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
+ str(Evol_exist)
+=======
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.>>
@@ -1254,17 +1678,45 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
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)
library (ggplot2) + + Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+ + geom_line (aes(color=Categoria))+ + geom_point(aes(color=Categoria)) + +Evoluc ++
ENDsrc
+>>>>>>> 1d4d4f8 (para discutir na reuniao)Exemplo 2 @@ -1514,9 +1977,24 @@ Exemplo 2
Exemplo 3 - +<<<<<<< HEAD +#+beginexport 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> +#+endexport> +=======
https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848 +>>>>>>> 1d4d4f8 (para discutir na reuniao)
Date: 08-31-2023
+<<<<<<< HEAD +Created: 2023-09-26 ter 20:42
+=======Created: 2023-09-20 qua 14:59
+>>>>>>> 1d4d4f8 (para discutir na reuniao)- Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. -
-
-
-
-
-
+ Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. +
+
+
+
+
+
+#+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 +
+ ++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: +
+| 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. +
+ +| 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 | +
+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. +
++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>. +
+| Constante | +ano 1 | +ano 2 | +ano 3 | +ano 4 | +ano 5 | +ano .. | +observação | ++ |
|---|---|---|---|---|---|---|---|---|
| Partos por vaca ano | +1 | +1 | +1 | +1 | +1 | +1 | ++ | + |
| Vacas Existentes | +20 | +- | +- | +- | +- | +- | +- a calcular | ++ |
| Novilhas (12 a 24) existentes | +05 | +- | +- | +- | +- | +- | +- a calcular | ++ |
| Bezerras existentes | +0 | +- | +- | +- | +- | +- | +- a calcular | ++ |
| Novilhas para vacas | +0 | +0 | +5 | +5 | +7 | +7 | ++ | + |
| % Bezerras para novilhas | +0.4 | +0.4 | +0.4 | +0.4 | +0.4 | +0.4 | +com base no total de nascidos | ++ |
| Vacas a vender | +0 | +0 | +0 | +3 | +3 | +5 | ++ | + |
| Novilhas a vender (Num) | +0 | +0 | +0 | +0 | +7 | +7 | ++ | + |
| Bezerras a vender | +0 | +0 | +1 | +1 | +1 | +1 | ++ | + |
| Vacas a comprar | +0 | +5 | +0 | +0 | +0 | +0 | ++ | + |
| Novilhas a comprar | +2 | +0 | +0 | +0 | +0 | +0 | ++ | + |
| Bezerras a compras | +1 | +1 | +1 | +1 | +1 | +1 | ++ | + |
+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 +
+ + +| Categoria | +ExttAnt | +TIR | +Compra | +Venda | +Saldo | +TIC | +ExttFin | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +20 | +0 | +0 | +0 | +20 | +0 | +20 | +
| NOVILHAS 12<>24 | +1 | +5 | +2 | +0 | +8 | +0 | +3 | +
| BEZERRAS <12 | +2 | +8 | +0 | +0 | +10 | +10 | +0 | +
| Outros | ++ | 0 | +0 | +0 | ++ | 0 | +0 | +
+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. +
+ + + + +| CATEGORIA | +EXTTANT | +TIR | +COMPRA | +VENDA | +SALDO | +TIC | +EXTTFIN | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +20 | +0 | +5 | +0 | +25 | +0 | +25 | +
| Novilhas 12<>24 | +3 | +10 | +0 | +0 | +13 | +13 | +0 | +
| Bezerras <12 | +0 | +10 | +1 | +0 | +11 | +11 | +0 | +
| outros | +1 | ++ | + | + | 1 | ++ | 1 | +
+Na tabela 3.3 podemos observar… +
+| CATEGORIA | +EXTTANT | +TIR | +COMPRA | +VENDA | +SALDO | +TIC | +EXTTFIN | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +25 | +13 | +0 | +0 | +38 | +0 | +38 | +
| Novilhas 12<>24 | +0 | +11 | +0 | +0 | +11 | +11 | +0 | +
| Bezerras <12 | +0 | +15 | +1 | +1 | +15 | +15 | +0 | +
| outros | +1 | ++ | + | + | 1 | ++ | 1 | +
+Na tabela 3.4 … +
+ +| CATEGORIA | +EXTTANT | +TIR | +COMPRA | +VENDA | +SALDO | +TIC | +EXTTFIN | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +38 | +11 | +0 | +3 | +46 | +0 | +46 | +
| Novilhas 12<>24 | +0 | +15 | +0 | +0 | +15 | +15 | +0 | +
| Bezerras <12 | +0 | +18 | +1 | +1 | +18 | +18 | +0 | +
| outros | +1 | ++ | + | + | 1 | ++ | 1 | +
+na tabela 3.5 +
+ + ++:TABLEEXPORTFILE: Documents/Tabela 3.5.csv +:TABLEEXPORTFORMAT: orgtbl-to-csv +
+| CATEGORIA | +EXTTANT | +TIR | +COMPRA | +VENDA | +SALDO | +TIC | +EXTTFIN | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +46 | +15 | +0 | +3 | +58 | +0 | +58 | +
| Novilhas 12<>24 | +0 | +18 | +0 | +7 | +11 | +11 | +0 | +
| Bezerras <12 | +0 | +23 | +1 | +1 | +23 | +23 | +0 | +
| outros | +1 | ++ | + | + | 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. +
+ + +| CATEGORIA | +EXTTANT | +TIR | +COMPRA | +VENDA | +SALDO | +TIC | +EXTTFIN | +
|---|---|---|---|---|---|---|---|
| VACAS >24 | +58 | +11 | +0 | +5 | +64 | +0 | +64 | +
| Novilhas 12<>24 | +0 | +23 | +0 | +7 | +16 | +16 | +0 | +
| Bezerras <12 | +0 | +26 | +1 | +1 | +26 | +26 | +0 | +
| outros | +1 | ++ | + | + | 1 | ++ | 1 | +
+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. +
++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 +
+| 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 | +
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)
+
++#+BEGINsrc R :file /evol1.png :results file graphics +library (ggplot2) +
+ +
+Evol1<-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")+
+ themebw()
+Evol1
+ENDsrc
+
+file /Evol1.png +
++Exemplo 2 +
++https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851 +
+ + ++Exemplo 3 - +#+beginexport 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> +#+endexport>
+