====== Bruno Sano ====== {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:foto_criada_em_2014-02-06_a_s_10.50.jpg?200|}} Mestrando em ecologia, Instituto de Biociências, USP. O Título do meu projeto é: “Taxa de herbivoria em diferentes modelos de restauração ambiental na Planície de Caraguatatuba”, orientado pela Professora Adriana Martini. {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:9.2.r|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:7b.r|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:7.2.r|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:exer5.txt|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:exer4.txt|}} {{:bie5782:01_curso_atual:alunos:trabalho_final:bsano00:exe1.txt|}} ====Trabalho Final==== ==Proposta A== Pensei em uma função que calculasse quantas mudas são necessárias para fazer um plantio em uma área de X ha ou metros quadrados. O input poderia ser a metragem do terreno, o sistema de plantio (com nucleação, isoladas, ou misto), tamanho do espaçamento (se a pessoa quiser algum), tamanho das bordas. O output seria o número de árvores. ==Proposta B== Uma outra função seria para calcular quanto de água uma casa ou estabelecimento pode juntar se eles utilizarem calhas para capturar água da chuva. O input poderia ser a precipitação média do local, cidade e a área do telhado. O output seria quantidade de água economizada, economia em reais, tempo para recuperar o tempo investido, gráficos. Bruno , achei a proposta A um tanto simples, pois, pelo que entendi, a sua função iria realizar essencialmente algumas operações de divisão. Acredito que você possa desenvolver a proposta B, que implicará em operações um pouco mais complexas e terá um output mais interessante. ----//[[millan.cristiane@gmail.com.br| Cristiane]]// ====Função coleta.agua.chuva==== coleta.agua.chuva=function(precip, ate, tt, dtr, per, ua, gma, pa) #argumentos da funcao ## { vol=round(precip*ate*0.8) ##volume de agua coletado=precipitacao*area do telhado*aproveitamento de coleta 80% ## #Investimento dependendo do tipo de telhado# if(tt=="UA") ##se o tipo do telhado for de 1 agua## { I=(per*23 + ##perimetro do telhado x valor do metro da calha## (per/3)*4.85 + ##a cada 3m de calha precisa de um suporte x valor do suporte## 10.6+14+130+170+350+ ##valor emenda+pe+separador folha+separador fluxo+cisterna 1000L## dtr*10 + ##distancia do telhado ate o resertorio x valor do cano## 1000) ##mao de obra## } if(tt=="DA") ##se o tipo do telhado for de 2 aguas## { I=(per*23 + ##perimetro do telhado x valor do metro da calha## (per/3)*4.85 + ##a cada 3m de calha precisa de um suporte x valor do suporte## 10.6+14+20+130+170+350+(2*19.2)+ ##valor emenda+pe+esquadro+separador folha+separador fluxo+cisterna 1000L+2cabeceiras## dtr*10 + ##distancia do telhado ate o resertorio x valor do cano## 1000) ##mao de obra## } if(tt=="QA") ##se o tipo do telhado for de 4 aguas## { I=(per*23 + ##perimetro do telhado x valor do metro da calha## (per/3)*4.85 + ##a cada 3m de calha precisa de um suporte x valor do suporte## 10.6+14+(4*20)+130+170+350+ ##valor emenda+pe+esquadro+separador folha+separador fluxo+cisterna 1000L## dtr*10 + ##distancia do telhado ate o resertorio x valor do cano## 1000) ##mao de obra## } ##uso da agua## if(ua=="E") ##se o uso da agua for para uso externo## { If=round(I) ##Investimento final é igual ao investimento inicial## econ=round((gma*0.15*pa)*12*2) ##economia é igual ao gasto mensal de agua x a porcentagem do consumo da casa que pode ser substituido pela agua coleta x preco da agua x 12 meses x economia com o esgoto## tempr= round(If/econ) ##tempo de retorno do investimento e igual ao investimento dividido pela economia em anos## } if(ua=="ED") ##se o uso da agua for para uso externo e descarga do banheiro## { If=round((I+300+200+(dtr*10+1000))) ##o investimento é igual ao investimento inicial+preco de outra caixa+preco da bomba+preco canos+custo com reforma## econ=round((gma*0.40*pa)*12*2) ##economia é igual ao gasto mensal de agua x a porcentagem do consumo da casa que pode ser substituido pela agua coleta x preco da agua x 12 meses x economia com o esgoto## tempr= round(If/econ) ##tempo de retorno do investimento e igual ao investimento dividido pela economia em anos## } resultado=data.frame("vol.colet(L)/ano"=vol,"Invest(R$)"=If,"Economia(R$)/ano"=econ,"tempo.retor(anos)"=tempr,row.names = NULL) return(resultado) } ====Help coleta.agua.chuva==== coleta.agua.chuva package: nenhum R Documentation Cáculo do investimento e tempo de retorno financeiro para captação de água da chuva. Description: coleta.agua.chuva é uma função que calcula o volume de água da chuva que pode ser captada pelo telhado do imóvel, o investimento necessário para implementar o projeto, a economia gerada e o tempo de retorno do investimento financeiro, a partir de valores de mercado do ano de 2014. Usage: coleta.agua.chuva(precip, ate, tt, dtr, per, ua, gma, pa) Arguments: precip precipitação media mensal da região (mm). ate área do telhado (m2). tt tipo de telhado do imovel. "UA"=uma água, "DA"=duas águas,"QA"=quatro águas. dtr distancia entre o telhado e o reservatorio (m). per perímetro do telhado em que a água pode ser captada(m). ua tipo de utilização da água coleta. "E"=uso externo, "ED"=uso externo e descarga. gma gasto mensal de água (mil L). pa preco da água na região (R$) Details: Para calcular o volume de água que pode ser captado pelo telhado basta multiplicar a precipitação media do local pela área do telhado. Porem temos que considerar que não é possível utilizar 100% desse volume, cerca de 20% é descartada. Tipo de telhado: uma água-telhado que é possível captar água em apenas um dos lados duas águas-telhado que é possível captar água em dois lados quatro águas-telhado que é possível captar água em quatro lados O tipo de telhado influencia o material utilizado para implementar o projeto, consequentemente, no calculo do investimento. Uso da água: "E"-Uso da água nas partes externas do imóvel "ED"-Uso da água nas partes externas e nas descargas dos banheiros O tipo de uso da água influencia a mão-de-obra, reforma da casa, e material utilizado no projeto, consequentemente, no calculo do investimento. O calculo do preço da mão-de-obra e materiais utilizados tiveram como base a cidade de São Paulo. O tempo de retorno não leva em consideração a inflação ao longo dos anos. Values: coleta.agua.chuva retorna um data frame com o volume(L) de água que pode ser coletado por mês/ano, o investimento(R$) para implementar o projeto, a economia(R$) por ano e o tempo para recuperar o investimento(anos). Author: Bruno Sano References: ANAUGER – Disponível em: Acesso em: 15/05/2014 AQUASTOCK – Água da Chuva. Sistema de Reaproveitamento da Água da Chuva. Disponível em: Acesso em: 15/05/2014. Companhia de Saneamento Básico do Estado de São Paulo - SABESP . Disponível em: Acesso 15/05/2014. Instituto Nacional de Meteorologia - INMET. Disponível em Acesso em: 15/05/2014. . Examples: coleta.agua.chuva(125, 60, "QA", 5, 18, "E", 20,4) coleta.agua.chuva(115,80,"DA",5,30,"ED",20,3) coleta.agua.chuva(125, 60, "UA", 5, 18, "E", 20,4) coleta.agua.chuva(115,80,"DA",5,30,"ED",20,3)